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FILE NAME: 


m 


build, c 




build.c 


FILE FUNCTION: 

This file contains the routines which allow source code files to be created and 
compiled. The routines contained in this file are invoked when the “install’' 
button is selected on the CCB program. 

The build process assumes that all elements and the COMP exist in the current 
directory. The following routines will create source files in the current directory 
for the COMP or element selected. The routines will then be passed to the compiler 
for the generation of object flies (in the case of an element) or an executable file 
(in the case of a COMP). 

The build process places as much code generation as possible on the preprocessor 
as possible. As a result, whenever and element is to be installed, an include file 
is created (using the COMP name as the name) to contain all external variable 
declarations. The include file will also contain macro definitions which are used 
to convert tokens trom GCB nomenclature to the target source language. 

Global variables are defined (storage allocated) when the main COMP is installed. 
When the main COMP Is Installed, a file called "skeleton_element .o" is included 
on the command line to provide support for process initiation/termination and 
matrix operations. 

The GCB “start" ami "stop" Is Implemented through the UNIX fork, exec, ami kill 
functions. The file "skeleton element. o" contains the code necessary to spawn and 
terminate COMPs through the use of the "start." and "stop" statements". The routines 
track a COMP ID (l.o. a character string) against the UNIX P ID number so th.it the 
routines can be manipulated. The routines will allow a finite number of processes 
to be "start'ed" — this number Is the same as the number of processes allowed by a 
single user as determined by the UNIX kernel configuration. 

During the execution of the GCB, the following routines assume that the file 
"skeleton_element .o" exists. The file should be compiled In the following manner: 


executable) 


The focus of the GCB prototype was to develop C source code. Some hooks exist with! 
this file to create other source languages but some re-work will be necessary to 
fully support other target languages. 


FILE MODULES: 

add_perl ns 
bu i 1 d_comp_f i 1 e ( ) 
build_element_f i le () 
ebrbui Id () 
compute_label_lndex () 

convert_expr_to_C ( ) 

convert_to_C_ass lgnment () 

create_global_va riables () 

create_local_var iables () 

create_label () 

create_proc_header () 

create_procedure_name () 

createCstringtype () 

makeheader () 

make_goto () 

make_if () 

make_pause 0 

make pr 1 nt () 

make sot () 

make_start () 

make_stop() 

make t railer () 

no labelrequi red ( ) 

traverse line() 


invoked to add perins in relational expressions 

function to build a COMP 

function to build an ELEMENT 

entry point from the button selection 

compute the Index Into the symbol array of an entry, 

this is used to determine a GOTO label 

performs necessary conversions from GCB syntax to C 

syntax for expressions 

converts a statement to C assignment syntax 
creates declarations for global variables 
creates declarations for local variables 
creates an in-line label 

creates the appropriate function header syntax 
creates the name of a function 

converts an integer type into a character string 

creates the header of an element file 

creates a goto statement 

creates an if statement 

creates a pause statement 

creates a print statement 

creates a set statement 

creates a start statement 

creates a stop statement 

creates the end of a function 

determines If a statement needs a proceeding label 
traverses the lines connecting GCB symbols 


cc -c skeleton olomont.c -1. 

in the home directory of the GCB. The resultant .o file should be placed in the 
same directory from which the GCB program is initiated. 


In summary, the following source files are used/manipulated by the build routine: 


! 

skeleton element. c 


skeleton_element .o 
skeleton_elemcnt . h 

skel et on_c lement 

ma t r 1 x . h 
xxxxxxx. h 

yyyyyyy. c 

yyyyyyy. o 

zzzzzzz . c 

zzzzzzz 


- source file for run-time utility routines; this file 
contains all process manipulation routines and matrix 
functions 

- object file for run-time utility routines 

- include file for run-time utility routines, this file is 
included in all element source files 

- source code which Is copied into the beginning of EACH 
element source tile 

- Include file used in mjirix manipulation routines 

- include file used to compile an element, the include file 
uses the COMP as its name (i.e. xxxxxxx = COMP name) 

- source file for an element, the name of the source file is 
the same as the element name (i.e. yyyyyyy - element name) 

- object file for an element, the name of the object file is 
the same as the element name (i.e. yyyyyyy *= element name) 

- source file for a COMP, the name of the COMP source file 
Is the same as the COMP name (i.e. zzzzzzz - COMP name) 

- executable file for a COMP, the name of the executable 
file Is the same as th» ! ..w name (I.e. zzzzzzz - 


1 1 ncl ude 
1 1 ncl ude 
•include 
•include 
•include 


<stdi o. h> 

<st rl ng . h> 

<X11/ Intrinsic. h> 
<X11/Shel 1 . h> 
<Xm/Xm. h> 


•include "geb.h" 

•include " symbol. h“ 
•include "gcb_parse. h" 
•include "widgets. h” 
•Include "element file.h" 


/* 

* Local defines. 

*/ 


•define SUCCESS 


•define NO_CLOSING 
•define NEEDS CLOSING 


•define MAX_COMMENT_HEADER 
•define MAX PROCEDURE_NAME 
•define MAX_LABEL 
•define MAX DATA LINE 
• define MAX ASSJ \i :> I'/v'i r.MKNT 


0 

0 

1 

20 

100 

120 

1024 

256 


| 91/08/29 




mmm 



Idefine 

MAX_DATA_TYPE 

16 

Idefine 

MAX_IF STATEMENT 

256 

Idefine 

MAX_LINE LENGTH 

256 

•define 

MAX_FUNCTION_SIZE 

16 

Idefine 

MAX_EXPRESSION 

256 

Idefine 

MAX_FILENAME 

MAX NAME + 3 

Idefine 

MAX_CS_C0MMAND 

1024 

Idefine 

SKELETON_ELEMENT 

'•/skeleton e 

•define 

SKELETON~OBJECT 

"/skeleton_e 

Idef 1 ne 

SEMI COLON 

...» 

Idefine 

NEWLINE 

' \n' 

Idefine 

/* 

BLANK 

t • 


build.c 

/ft************************************** * ***************************>********** 

* 

* MODULE NAME: add_perlns() 

* 

* MODULE FUNCTION: 

* 

* Function add_perins will add perlns to an IF expression to conform to C precadence 

* rules. 



REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* The end statement will always be at label L99999. The following constant is 

* utilized whenever a goto to the END statement is encountered. 

*/ 

Idefine END_LABEL 99999 

/* 

* The following global static variable is set to a pointer value when an end is 

* encountered. The end is not posted to the output file until the end of all 

* postings so that the closing of the procedure will be properly handled. 

*/ 

static Symbol *End_To_Be_Posted; 

/* 

* The following global static variable is used to remember the last symbol processed, 

* this is useful in determining if a label should be generated. 

*/ 

static Symbol * Last_Symbol_Processed; 

/* 

* The following global static variable Is set to the name of the main COMP 

* so that all references will be utilizing the same name. 

V 


* *< >“““ *ft*ft*******ftft«ft**ft*ft«ft***ft*ftftft* 

static void add_perins( source, replace_source, replace_dest ) 
char ‘source, ‘replacesource, *replace_dest ; 

{ 

char Lempdatal 1024 ], ‘remainder, ‘balance, temp_string( 1024 ]; 
strcpy{ temp_data, source ); 

while ( ( remainder - strstr( temp_data, replace_source ) ) ) I 
/* 

* Build the string to be exchanged. Copy the first part of the string to 

* the temp buffer with enclosing perins, add the modifier and then include 

* the balance of the string in perins at the end of the string. 

V 

balance = remainder + 4; 

•remainder - NULL; 

sprintf( tempstring, " ( %s ) %s ( %s )", tempdata, replacedest, balance ); 
strcpy( temp_data, temp_string ); 

I 

/• 

• Copy the string back to the original storage space. 

‘/ 


static char Comp_Name( MAX_PROCEDURE_NAME ); 

/* .1 
• Various external routines. 

*/ 


strcpy( source, tempdata ); 


extern struct symbol_entry * lookuplocalvarllst () ; 




MODULE NAME: create proc header () 


MODULE FUNCTION: 


Function creat e_proc_header is invoked when a procedure header needs to be printed 
to the target code output file. The data to be printed comes from various global 
variables. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1 .02 - 08/28/91 


static void create proc header! output file ) 


FILE *output_f i 1 e; 


register int i; 

char header l MAX_COMMENT_HEADER ), 
middle! MAX_COMMENT_HEADER ), 
trailer! MAX COMMENTHEADER ); 


* Based on cut rent language prctoronce, build the appropriate leadin comments. 

*/ 

switch! Target Language ) { 

case C : strepy! header, "/*" ); 

strcpy( middle, ** * M ); 
strepy! trailer, " */“ ); 
break; 

case MOAL : strepy! header, ); 

strepy! middle, "" ); 

strepy! trailer, “ M ); 
break; 

case U1L ; 

break; 

default : displayer! M \n*“ No target language sped f ied\n" ); 

break; 

I 


Print the necessary procedure header. 


fprintf( output.^ f i 1c, M %s\n M , header ); 

fprintf! outputfile, "isPosltion Name: %s\n", middle, pPosltlon ); 

fprlntf! output file, **%sAuthor: %s\n**, middle, Author ); 

fprintf! outputfile, "%sCreation Date: %s\n", middle, CreateDate ); 

fprintf! output file, **%sLast Update: %s\n", middle, UpdateDate ); 

fprintf! output file, *'%s\n\n M , trailer ); 


08:49:09 


build.c 


; H 

i ^ f 


MODULE NAME: convert_expr_to_C { ) 

MODULE FUNCTION: 


Function convert_expr_to_C will convert the specified expression to a C expresion 
from the format entered to the GCB. 


REVISION HISTORY: 


Check for M <=>" and ">- M . 


if ( {-prev ! “ '>') 66 (-prev 1= '<') 66 {-prev != '!')) 
{ 

pt r++? 

len * strlen( ptr ); 


* Move all the characters one place to the right so we will have room 

* to add the extra 

-/ 


* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 

************************************ ** **< >* ********** 

static void convert_expr_to_C ( expression ) 


char 

* expression 

char 

-prev, 

int 

-ptr, 

-newline, 

i, 

/* 

len; 


* Remove all newlines from the source string. 

*/ 

while ( newline - strchr( expression, NEWLINE ) ) 
•newline - BLANK; 


for ( 1-len; 1>=0; 1 — ) /* move the NULL also */ 

pt r ( 1+1] - ptr [1 ) ; 

•ptr = ' ; 

I 

) 

ptr++; 

I 


/* 

* If the inequality operator of GCB Is In the string, replace It with the C 

• inequality operator. 

*/ 


while ( strstr] expression, "<>“ ) ) 

strncpyt scrstrf expression, *<>* ), 2 ); 


/• 

* If the logical operator "and" and "or" appear In the string, then add the 

• necessary perlnthesls to Implement C precadence. 

*/ 


If ( strstr] expression, “ or ” ) II strstrf expression, “ and • ) ) ( 
add_perins( expression, “ or ", " I I " ); 
add_perlns( expression, “ and ", " it " ); 

) .1 


/* 

* Replace with for C logical expressions. 

*/ 


ptr = expression; 
while ( *ptr I- NULL ) 
t 

/* 

* Locate an equals sign - IFs can not contain assignments so we can 

• change all - to — . 

*/ 


If 


( ‘Ptr — ) 

I 

prev - ptr-1; 


/• 







MODULE FUNCTION: 


Function no_label_requ 1 red will determlnre If a label needs to be generated for 
the current symbol being processed. 


* REV 1 S 1 UN HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* * * - 

static Inc no__l abel_requ 1 red ( symbol ) 

Symbol ‘symbol; 


register int !lne_count; 

Symbol * temp_symbol ; 

LlneLlst 'line; 

/• 

* Count the number of lines pointing to the symbol. 

V 

line_count - 1; 
line - symbol ->from; 
while ( llne->next ) { 
line_count++; 

line - (LlneLlst * ) 1 ine->next ; 

) 

/• 

* It more than one line was coming in, the label must be generated. 

V 


If ( line count > 1 ) 
ret urn ( 0 ) ; 

/• 

* If the previous symbol Is an IF statement# a label needs to be 

* drawn based on how code Is generated. 

*/ 

If ( ( (Symbol *) {symbol“>from->l ine->from) ) ->symbol_type == IF ) 
return ( 0 ) ; 


At this point, only one line is coming to the symbol. If the previously 
processed symbol Is the same as where the line came from, the label does 
not have to be generated. 


if ( (Symbol * ) symbol ->f rom->J ine->f rom *»» Last_Symbol__Processed ) 
return ( 1 ) ; 


/ 


Issue a code to indicate that 


label needs to be generated. 



* * * 


* < >* 


***** 


ft * * * 


< > 


I 91/08/29 -j 


build.c 



*************** /******************** 


MODULE NAME: create_label () 

MODULE FUNCTION: 

Function create_label is called if a symbol has a line pointing to the symnbol that 
may require a goto in the code. 


MODULE NAME: create_procedure_name () 

MODULE FUNCTION: 

Create a procedure name by removing any file extension and only use the name after 
any slashes. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* < > * 


static int create_label { symbol, output_file ) 

Symbol * symbol; 

FILE *output_fi le; 

1 

/* 

* If no lines are drawn to the symbol, no label is required so simply return. 

V 

if { symbol->from =- NULL ) 
return { 0 ); 

/* 

* If the symbol only has a single line to the symbol and the previously 

* processed symbol is the one that points to the current symbol, no label 

* is necessary because they code will naturally fall through. 

*/ 

if ( no_label_required ( symbol ) ) 
return ( 0 ); 

/* 

* Based on current language preference, build the appropriate label. 

*/ 

switch ( Target Language ) ( 

case C : fprlntf( output_fi le, "\nL%05d: \n", compute__label_index ( symbol )); 

if ( symbol->symbol_type — END ) 

fprlntf( output_file, "\t;\n” ); 

break; 

case MOAL : fprintf{ output_fi le, ,, \nL%05d\n , \ compute_label_index ( symbol ) ); 
break; 

case UIL : 

break; 

default ; displayer( “** No target language specif ied\n" ); 
return! ERR ); 
break; 



static void create_procedure_name ( source ) 
char * source; 


register int i, index; 

/* 

* Copy the name over to the new variable. 

*/ 

strcpy( Comp_Name, source ); 

/* 

* Remove any trailing extension. 

V 

for ( i = strlen( Comp_Name ) - 1; 1 >=* 0; i — ) 
if ( Comp Name l i ] -- ' . ' ) | 

Comp_Name[ i 1 = NULL; 
brea k ; 

) 

/* 

* If any slashes exist in the name, find the last one and copy eliminate any data 

* before the slash. 

*/ 

index = - 1 ; 

for ( i = 0; i < strlen{ Comp_Name }; i++ ) 
if ( Comp_Name[ i ]=='/' ) 
index *= i; 

if ( index != -1 ) 

strcpy( Comp_Name, &Comp_Name[ index +1 ] ); 

/* 

* If the resulting name has no data left, return a generic name. 

V 

if { Comp_Name[ 0 ] — NULL ) 

strcpy( Comp_Name, '•generic procedure name* 1 ); 

J 



) 


I 



MODULE NAME: create_C_st ring_type () 

MODULE FUNCTION: 

Function creat e_C_st ri ng_type is invoked to convert an internal integer data type 
represeniiat ion to a C named data type (the conversion is used for variable 
decl a rat. ion) . 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1 .02 - 08/28/91 

* * * * * 

static void crcate_C_st r i ng^typc ( datatype, typo string ) 

int datatype; 

char *type_stri nq; 

{ 

switch ( datatype ) ( 

case INTEGER : strcpy( type_string, "int" ); 
break; 

case UNSIGNED ; strcpy{ type_strlng, "unsigned" ); 
break; 

e.iuo FLOAT : at ropy ( typo string, "Moat" ); 
break; 

case CHAR : strcpy( type_strlng, "char" ); 

break; 

case DOUBLE : st rcpy ( type_strlng, "double" ); 
break; 

case SHORT : strcpy( type_string, "short" In- 
break; 

I 

I 


MODULE NAME: create_local_variables () 

MODULE FUNCTION: 

The function will declare all local variables contained in the symbol table. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

. 

................ ...................I*. **c >* ********** 

static void create_l ocal_variables ( output_flle ) 

FILE *output_f i 1 c; 


char data_typei MAX_DATA_7YPE ); 
struct symbol_entry *local_vars; 

/* 

* Find the list of local variables for the current procedure (element). 

*/ 

i! ( ( local vats - lookup local varllsl. ( F. I omonl F l l o ) ) •• NULL ) 

return; 

/* 

* For each entry on the local variable list, create a variable 

* decleration. 

V 

while ( localvars ) [ 

/* 

* Based on the data type, create a variable data type variable. 

V 

create_C_st ring_type { ( loca l_va rs->se_type & SYMBOL_DATA_TYPE ), data_type ); 

/* 

* Write the variable declaration to the output file (If the variable is a 

* matrix then allocate the appropriate space). If the variable is of type 

* CHAR, then simply declare a pointer to char. 

V 

if ( local_vars->se_type & CHAR ) 

fprlntf{ output_flle, "\t%s *%s;\n", 
datatype, 

local _vars->se_symbol ); 
else if ( local_vars->se_type i MATRIX ) ( 

/* 

* Declare the variable as appropriate based on the number of declared 

* dimensions. At least one dimension will be specified, if additional 

* are required, the appropriate code will be generated. 

»/ 


fpr i nt 1 ( output file, "\t%s $>d }" , 


WiWM f 


build.c 



datatype, 

local_vars->se_symbol, 
local_vars->se_subs( SUB1 ] 
switch { local_vars->se_num_dimensions ) { 

case 2 : fprintf( output_file, M ( %d );\n", 


); 


local vars->se subs[ SUB2 j ); 


case 3 


ca se 4 


default 


break; 

fprintf( output_file, *•[ %d 


break; 

fprlntf( output_flle, 


break; 

break; 


%d |;\n", 
local_vars->se_subs [ SUB2 ), 
local_vars->se subs [ SUB3 ] ); 

*[ %d ] [ %d ) [ %d ] ; \ n H , 
local_vars->se_subs ( SUB2 1, 
local_vars->se_subs [ SUB3 J, 
local vars->se subs ( SUB4 ] ); 


fprintf( output_flle, *' \ t % s %s;\n", data_type, local_vars->se_symbol ); 


/* 

* Goto the next local variable. 

*/ 

locai_vars - i ocal_vars->se_next ; 


/A************************************** A< > A************************************* 

A 

* MODULE NAME: makeheader () 

A 

* MODULE FUNCTION: 


Function makeheader will post the necessary characters to the target output file 
to create a C function header. The GCB does not 1 allow formal parameters to functi 
so the syntax Is quite simple. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

A*************************************** < ft************************************* 

static void makeheader! symbol, outputflle ) 

Symbol ‘symbol; 

FILE *output_file; 


/* 

* Create a name based on the element iile name. 

*/ 


createprocedurename ( ElementFile ); 

/* 

* Based on current language preference, build the appropriate header. 

*/ 



switch ( Target Language ) { 


case 

C 

: fprlntf( output_flle, 

“void %s () \n) \n" 



create local variables! output file ); 



fprintf( output_file. 

"\n" ) ; 



create label ( symbol, 
break; 

output_file ); 

case 

MOAL 

break; 


case 

UIL 

: 



Comp_Name 


default 


I 


break ; 

displayer( No target language specif led\n" 
break; 


) ! 


MODULE NAME: makej: ra Her () 


MODULE FUNCTION: 

Function make_trailer will post the necessary characters to the target output file 
to create a C function trailer. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


/ 


static void make_u ra 1 ler { output file ) 
FILE *output_f lie; 


I 


Create a label before the end of the function. This is done because the end 
will almost always have a GOTO somewhere in the source file. This will 
sometimes result in two consecutive lines of the C source file to be a "goto" 
and then a "label". These statements will be removed by a good optimizing 
compiler. Embedding the logic to remove the extra goto/iabel into these 
routines would needlessly complicate the routines. 


create_label { End_To_Be__Posted, output_flle ); 

/• 

• Based on current language preference, build the appropriate trailer. 
V 


switch! Target Language ) I 


case MOAL 


fprintfl output_file, ** l\n" ); 
break; 


I 


) 


default 


break; 
dlsplayer ( 
break; 


No target language specified\n" ); 


< > 




MODULE NAME: make if() 


MODULE FUNCTION: 


Function make if will create the code for an IF statement. It is assumed that the 
logical expression contained in the GC8 symbol Is syntactically correct. Note that: 
if's are generated with goto' s for both the true and false case; attempting to put 
source code inline after the if's is not possible given the structuring capabilities 
of the GCB user Interface. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1 .02 - 08/28/91 


static int make_if( symbol, output_file 1 

Symbol ‘symbol; 

FILE ‘output^ I I lo; 


register int true, false; 

char expression! MAX_EXPRESSION I; 


* Set the global variable SetSym to indicate that we are parsing a Set symbol; 

* thus the parser will know what kind of expression to expect. 

V 

SetSym - 0; 

/• 

* Compute the Indecies for the true and false labels. These indecles will be used 

* to generate the appropriate goto's in the code generation phase below. 

*/ 

if ( symbol ->Sym . I fSym . t rue_l i ne ) 

true - compute_label_i ndex ( symbol->Sym. If Sym. true_l ine->to ); 

else 

true - -1; 

if ( symbol->Sym.l fSym. f alse_l ine ) 

false * compute_label_index ( symbol->Sym« IfSym. false_l ine->to ); 

else 

false = -1; 


* Copy the expression to local memory. 

*/ 


strepy! expression, symbol ->Sym. If Sym. comp_expr ); 


/* 

* Based on current language preference, build the appropriate conditional. If the 

* tagrget language is C the expression will be encased in peronthesis so that the 

* statement will be syntactically correct. 

*/ 


switch ( TargetLanguage ) 1 

case C : convert_expr_to_C ( expression ); 

if { { false > -1 ) && { true > -1 ) ) 
fprintf{ output_file, 

"\tif { %s )\n\t\tgoto L%05d;\n\telse\n\t\tgoto LI05d;\n" 


) 


case MOAL 


case UIL 
default 

\ 



expression, true, false ); 
else if ( ( false — -1 ) && ( true > -1 ) ) 
fprintf( output_flle, 

"\tif ( % s ) \n\t \tgoto L%05d;\n", 
expression, true ); 

else if ( ( false > -1 ) && ( true == -1 ) ) 
fprlntf{ output_file, 

H \tif ( %s ) \n\t\t; \n\telse\n\t\tgoto L%0Sd\n", 
expression, false ); 

el so 

fprintf( outputflle, 

"\tif { % s ) \n\t\t; \n\telse\n\t\t ;\n", 
expression ); 

brea k ; 

if ( ( false > -1 ) ( true > -1 ) ) 

fprintf( output_file, 

"if %s then\n\tgoto L%05d\nelse\n\tgoto L%05d\nendi f \n" 
symbol->Sym. IfSym.compexpr, true, false ); 
else if ( { false — -1 ) 44 ( true > -1 ) ) 
fprlntf( output file, 

"It %s Lheu\n\L<jolo I.t0bd\nendl I \n" , 
syrabol->Sym. I fSyra. compexpr, true ); 
else if ( ( false > -1 ) 44 ( true -= -1 ) ) 
fprintf( output_file, 

"if %s then\nelse\n\t \tgoto L%05d\nendi f\n", 
symbol->Sym.IfSym.comp_expr, false ); 

else 

fprintf( out put_f i le, 

"if %s then\nelse\nendif\n", 
symbol->Sym.IfSym.comp_expr ); 

break; 

break; 

displayer( "** No target language specif ied\n" ); 

return! ERR ); 

break; 



MODULE NAME: convert toCassignment ( ) 

MODULE FUNCTION: 

Function convert _to_C_assignment will convert the supplied character string to a 
valid C assignment statement. 



* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 



static void convert_to_C_assignment { statement ) 
char ‘statement; 

1 

/* 

* Concatenate a semi-colon to the end of the line for the statement terminator. 

•/ 


strcat ( statement, 

) 


SEMI_COLON ); 




91 / 08 / 

08 : 49 ;! 


1 






MODULE NAME: make_set () 


MODULE FUNCTION: 

Function make_set will create the code for a set command. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 



static i nt make_set( symbol, of ) 

Symbol ‘symbol; 

FILE *of ; 

1 

lnt operator, 

type ^ope rat 1 on; 

char st at union c [ MAX ASSIGN STATEMENT ), 

•operand, 

•ptr; 

struct matrix_data result, operand_l, operand__2; 

/• 

* Set the global variable SetSym to indicate that we are parsing a Set symbol; 

* thus the parser will know what kind of expression to expect. 

*/ 

SetSym - 1; 

/* 

• Copy the expression to local stack space to that modifications can be made w/o 

* effecting the COMP display. 

V 

strcpyf statement, symbol ->Sym. I fSym. comp_expr ); 

/* ; 

• Determine if the expression Js MATRIX or SCALER operation. 

*/ 

if ( ( type_operat ion ** returnjnat rlx_data ( statement, 

(operator, 

(result, 

(operand_l , 

(operand_2 ) ) “= ERR ) { 
dlsplayer( "Syntax error In expression, cannot build a COMP\n" ); 
return ( ERR ); 

I 

/* 

• Change the In t ho expression to a " -*• . 

*/ 

if ( (ptr - st rchr (statement =<= NULL ) 
return ( ERR ); 

el se 


•ptr = ' ' ; 

/* 

* If the operation is for a MATRIX statement, build the appropriate calls based 

* on the specified operator; otherwise, perform a scalar build. Matrix calls 

* are made to the routines defined in "skeleton_element . o" . 

•/ 

if ( type operation SCAIAROPERATION ) 

/* 

* Perform a scalar build. 

*/ 

switch ( Target Language ) ( 

case C : conver ttoCassignment ( statement ); 

fprint f< of, "\tls\n", statement ); 
break; 

case MOAL : fprintf( of, "set %s\n", statement ); 
break; 

case U II* : 

break ; 

default : dlsplayer( "•* No target language specif ied\n" ); 

return ( ERR ); 
break; 

1 

ei se 

/* 

* Perform a MATRIX build. 

•/ 

switch( operator ) ( 

case ADDOPER : fprlntf( of, "\tmatr lx_add ( %d, Is, Is, Id, Id, Is );\n", 

result .mdattributes ( SYMBOL_DATA_TYPE, 

operand_l .mdname, 

ope ra nd_2 . mdname , 

result .md_subs [ SUB1 J, 

resul t ,md_subs [ SUB2 ), 

result .md_name ); 

break ; 

case MINUS_OPER : fprintf( of, " \tmat rlx_sub ( Id, Is, Is, Id, Id, Is );\n", 

result ,md_attri but es ( SYMBOL_DAT A_TY PE , 

operand_l .md_name, 

ope ra nd_2 . md_name , 

result .mdsubs l SUB1 ), 

resul t ,md_subs f SUB2 I, 

resul t ,md_name ); 

break; 

case MULT_OPER : fprint f (of , " \tmatrix_mul t ( Id, Is, Is, %d. Id, Id, Is );\n", 

result ,md_attributes ( SYMBOL_DATA_TYPE, 

operand_l .md_name, 

operand_2 .md_name, 

operand_i .md_subs [ SUU1 J, 

operand_l .md_subs ( SUB2 ], 

operand_2 .md_subs ( SUB1 ), 

resul t .md_name ); 

break; 

case IDENTOI’ER : fprint f( of, " \t mat r 1 x^ident ( Id, Id, Is 

result ,md~attributes ( SYMBOL J)ATAJTYPE f 
resul t .md_subs l SUB1 J, 
result .md_name J; 

break; 

case INVER_OPER : fprint f( of, "\tmat rix_i nverse ( Id, Is, Id, Is );\n", 

result. md attributes ( SYMBOL_DATA TYPE, 


invoked. 


91/08/29 1 1 
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case TRANS OPER 


case DOT OPER 


default 


break; 

fprintft of. 


case CROSS OPER 


break; 
fprint f ( 


break; 


operand_l .md_name, 
result. md_subs[ SUB1 ], 
result .md_name ); 

"\tmatrix_transpose ( %d, %s, %d, %d, %s );\n", 

result .md_att ributes 6 S YMBOL_D AT A_T Y PE, 

operand_l .md_name, 

result .md_subs( SUB1 ], 

result . md_subs I SUB2 ], 

result. md name ); 


break; 

fprintf( of, 


%d, %s, %s, %s ) ;\n", 
& SYMBOL DATATYPE, 


of, 


M \tmatrix_cross ( %d, 
result .md_at tributes 
result .md_subs( SUB1 ), 
operand_l .mdname, 
operand 7.md name, 
result .md_name ); 

"\tmatrix_dot ( %d, %s, %s, %d, 6%s );\n", 

operand_l .md_at tributes & SYMBOL_DATA_TYPE, 

operand_l .md_name, 

operand_2 .md_name, 

ope ra nd_l . md_subs { SU B1 J , 

result ,md_name ); 


A simple assignment, if the attributes of the RHS 
indicate a matrix, then call the appropriate routine, 
otherwise invoke the routine to initialize a matrix 
with a scalar routine. 

This is only supported for ID and 2D matrices. 


if ( operand_l .md_att ributes ( MATRIX ) 

if ( opera nd_l .md_num_dimens ions <■= 2 ) 

fprintf( of, "\tmat rixcopy ( %d, %s, %s, %d, %d 


) ;\n M 


resul t .mdatt rl butes & SYMBOLDATATYPE, 

result .md_name, 

operand_l .md_name, 

result .md_subs ( SUB1 ], 

resul t .md_subs{ SUB2 | ); 

I else 

fprintf( of, 

"\tmatrix_copy4 ( %d, %s, %s, %d, %d, %d, %d );\n" 


;\n“ 


if ( ( operand - strstr( statement, 
return! ERR ); 


) ) -«= NULL ) 


/* 

* Call the appropriate routine based on how many 

* dimensions the result routine has. 

*/ 

if ( result .md_num_dimensions <® 2 ) 
fprintf( of, 

■\tmatrix_init ( %d, %s, %d, %d, (double) %s ) ;\n M , 
resul t ,md_att ributes & SYMBOL_DATA_TYPE, 
resul t . md_name, 
result .md_subs ( SUB1 ), 
resul t.md_subs( SUB2 ], 

( operand + 1 ) ); 

else 

fprintf( of, 

"\tmatrix_init 4 ( %d, %s, %d, %d, %d, %d, (double) %s ) 


resul t.mdatt ributes & SYMBOL_DATA_TYPE, 

result ,md_name, 

resul t .mdsubs ( SUB1 ), 

result .md subs [ SUB2 ] , 

result .mdsubs ( SUB3 }, 

result .mdsubs ( SUB4 ], 

( operand + 1 ) ) ; 

) 

break; 


/* 

* Return a successful return code. 

*/ 

return ( SUCCESS ) ; 

) 


result .md_att ributes & SYMBOLDATATYPE, 

result .md_name, 

ope ra nd_l . md_name , 

resul t .md_subs ( SUB1 }, 

resul t .md_subs ( SUB2 ], 

result ,md_subs [ SUB3 ], 

result ,md_subs ( SUB4 1 ); 

else { 


/* 

* Need to generate a pointer in to the expression to 

* get the RHS variable. We assume that the variable 

* starts immediately after the M «" sign (therefore add 

* one to the value returned by strstr to get to the 

* spot in the string. Cast the init value to double 

* so that the matrix_init routine will be properly 
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* MODULE NAME: popup^wait () 

* MODULE FUNCTION: 

* This routine does local processing until the user responds to the popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 « 08/28/91 


void popup_wait 0 


XEvent event; 

Act 1 vcPopupf ♦; 

PopupStat( ActlvcPopup 1 - -1; 

/* 

* throw out events until the PopupStat array is updated 
*/ 

while ( PopupStal( ActivePopup 1 < 0 ) 

I 

Xt AppNextEvent ( appcontext, tevent ); 

XtDispatchEvent { &event ); 

) 

ActivePopup — ; 


« 
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* MODULE NAME: process_popup 0 

* MODULE FUNCTION: 

* This routine manages the user_ack popup and does local processing until 

* the user responds. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***** 

void process_popup ( widget, wait_flag ) 

Widget widget; 
int waitflag; 


Dimension x,y; 

XtManageChild { widget ); 

if ( wa i t_f 1 ag ) 
popupwait {) ; 

1 



MODULE. NAME: redraw_sym_type 0 

MODULE FUNCTION: 

This routine redraws all symbols of specified type. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


void redraw_sym_type (type) 
int type; 

( 

int j; 

for ( j=0; j <MAX_S YMBOLS ; j + + ) 

l 

if ( Symbol_Map[ j] ,symbol_type *■= type ) 

( 

/* 

* set global text variables for draw symbol routine. 

*/ 


) 


If ( (type == IF) || (type — SET) ) 

( 

sym_text - Symbol_Map[ j I . Sym. I fSym. loglca l_expr; 
expr_text - Symbol_Map [ j ) . Sym. If Sym. comp expr; 

) 

else sym_text - SymbolMap ( j | . text ; 

draw_symbol( type, Symbol_Map( j| .mycanvas, WAgc, Symbol Map(J|.font ); 

I 



utils.c 


MODULE NAME: redraw_sym_num () . 

MODULE FUNCTION: 

This routine redraws symbol with specified index into SymbolMap. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void redr aw_sym_n urn ( num, font ) 

int num; 

Font font; 

i 

/* 

* set global text variables for draw_symbol routine. 
*/ 


\ 


if { {Symbol Map ( num) . symbol_type -« IF) |) 

(Symbol_Map[num) .symbol_type =- SET) ) 

( 

symtext = Symbol_Map[ num) .Sym. I fSym. logical_expr; 
exprtext “ Symbol_Map [num| . Sym. IfSym. comp_expr; 

I 

else symtext = Symbol_Map [num) . text ; 

draw_symbol ( Symbol_Map( num) .symbol_type, Symbol_Map(num) .mycanvas 


MODULE NAME: make_pause () 

MODULE FUNCTION: 


< > 


MODULE NAME: make_goto() 


Function make_pause will create the code for a pause command. The function will map 
the specified pause time (and units) to the appropriate UNIX system call. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


static void make_pause( symbol, output_file ) 

Symbol 'symbol; 

FILE 'output f i le; 


MODULE FUNCTION: 

Function makegoto will create the source code to Invoke a C function (l.e. a goto 
is simply a function call with no actual parameters). 


REVISION HISTORY : 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/20/91 


static void make_goto( symbol, output_file ) 

Symbol * symbol; 

FILE 'output file; 


unsigned seconds; 

char f unct ion ( MAX_FUNCT10N_SI ZE 1; 


Based on current language preference, build function Invocation statement. 


• Parse out the integer argument from the text. Then determine the units 

* specified, no units specified will default to seconds. 

*/ 

sscanf { symbol ->text , “iu", iseconds ); 
strcpy( function, “sleep" ); 

If { strstr( symbol->text, "min" ) ! = NULL ) 
seconds •- 60; 

else if ( strstr( symbol ->text , "ms" ) i* NULL ) ( 
seconds "• 1000; 
strcpy( function, "usleep" ); 


switch( Target Language ) I 

case C : fprintt( output_tlle, “\L%s();\n“, 

symbol->text ); 

break; 

case MOAL : fprintf< output_fllc, “start { %sL )\n“, 

symbol ->texl ); 

break; 

case U1L : 

break; 

default : displaycr( "*' No target language spccifiod\n“ ); 

break; 


Based on current language preference, build the appropriate pause command. 


switch! Target Language ) { 


case MOAL 


fprlntf( output_file, “\t%s( %u );\n“, function, seconds ); 
break; 


break; 

displayer( No target language specified\n" ); 

break; 
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y*************************************** *< >* *************************************** 

MODULE NAME: make_start () 

MODULE FUNCTION: 

Function make_start will create the code to issue a start command. The start comman 

is to invoke another previously created COMP. The make_start function will create a 
function call to the process manipulation routines defined in skeleton_element . o . 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************************* * * < >* ************* 

static void make_start{ symbol, output_file ) 

Symbol * symbol; 

FILE “output file; 


k*********************y 


* Based on current language preference, build the appropriate call to the process 

* manipulation routine. 

V 

swltch( TargetLanguage ) 1 

case C : fprlntf( output_file, “\tstart_process ( \"%s\" );\n“, 

symbol->text ) ; 

break; 

case MOAL : fprlntf( output_flle, 

"If fork!) » 0 then\n\texecl ( is, NULL ) \nendlf\n", 
symbol->text ) ; 

break; 


case U I L 
default 


break; 

: dlsplayer( “** No target language specified\n" ), 
break; 


y***************************** ***********<_____>****«* ********************************* 
MODULE NAME: make_stop() 

MODULE FUNCTION: 

Function make_stop will create the code to issue a stop command. The stop command 
is to terminate a previously initiated COMP. The make_start function will create a 
function call to the process manipulation routines defined in skeleton element .o. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


************************************* < >* ************************* 

static void make_stop{ symbol, output_file ) 

Symbol “symbol; 

FILE “output_f i le; 


* Based on current language preference, build the call to the process termination 

* routine. 

*/ 

switch ( TargetLanguage ) 1 

case C : fprintf< output_file, ”\tstop_process ( \"%s\" );\n M , 

symbol->text ) ; 

break; 


case MOAL 
case UIL 
default 


fprintf( output_file, "terminate { processed ) \n" ); 
break; 

break; 

dlsplayer( "** No target language specif ied\n" ); 
break; 


/ 


< > 


< > 


MODULE NAME: set attribsl) 


MODULE FUNCTION: 


This routine sets the width, height, and resize policy resources of the 
parameter widget. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

.......... 


void set_attrlbs( type, widget, datal, data2, data3 ) 

Widget widget; 

Inc type; 

caddrt datal, data2, data3; 


( 

Arg args [3 |; 


/* 

* set various attributes depending on the type of the widget. 

*/ 


If ( type — FORM ) 

t 

XtSetArgl args[0), XmNwldth, datal ); 

XtSetArgl argsdl, XmNhelght, data2 | ; 

XtSetArgl args(2|, XmNres LzcPol 1 cy , datal ); 
XtSotValuusl widget, args, 3 ); 

1 

el se 

( 

XtSetArgl args(O), XmNselect lonPol Icy, datal ) ; 
XtSetValuesl widget, args, 1 ); 

1 

I 


MODULE NAME: set posltlon () 

MODULE FUNCTION: 

This routine sets the top, bottom, left, and right positions of the parameter. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




void set posltlon 1 w, t, b, 1, r ) 


Widget w; 

int t, b, 1, r; 





register int 

n 

- 0; 



Arg 

args [8 ) ; 



if ( t !- IGNORE ) 





i 

XtSetArg( args(nl, 

, XmNtopAttachment , XmATTACll_POSlTION ); 

n* + ; 

XtSetArgl args 

l 

In 1 , 

, XmNtopPosit ion, t ) 

; n++; 


» 

if ( b ! => IGNORE ) 





1 

Xt Set Arg ( args 

In | , 

r XmNbottomAttachment 

, XmATTACHPOSITION 

); n + + 

XtSetArgl args(n|, 

l 

, XcnNbottomPosi t ion, 

b ); n++; 


I 

if ( 1 !- IGNORE ) 





{ 

XtSetArg( argsi 

in), 

, XmNleftAttachment , 

XmATTACH_POSITION ); 

n + >; 

XtSetArg( argsj 
\ 

[n 1 , 

XmNleftPosit ion, 1 

); n++; 


l 

if { r != IGNORE ) 





( 

XtSetArg( args| 

;n|. 

XmNrlght Attachment, 

XmATTACH_POSITION ) 

; n++; 

XtSetArg( args[n], 

i 

XmNrlghtPosit ion, r 

); nt+; 


i 

XtSetValues( w, args. 

n) ; 





MODULE NAME: ♦ ‘setMi'sWr data () 

• t: 

MODULE FUNCTION: 7 " 

This routine sets the XmNuserData resource of the parameter resource. 


* REVISION HISTORY*: v " 

* Graphical!' Comp Builder _ MO tif Release 1.0 - 07/17/91 

* • Release 1.02 - 08/28/91 

>***»***•*«• 

void set_user_data ( widget, data ) 

Widget widget; 
int data; 

( 

Arg args[l]; 


XtSetArg( args(0), XmNuserData, data ); 
XtSetValues( widget, args, 1 }; 
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/*************************************** * <___ > ************************* 

* MODULE NAME: set_wldget (> 

* MODULE FUNCTION: 

* This routine sets the top, bottom, left, and right widgets of the parameter. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void set_attach_widget ( w, t, b, 1, r ) 

Widget w; 

Widget t, b, 1, r; 


register int n 0; 

Arg args [8]; 

if ( t ) 

{ 

XtSetArg( args(n), XmNtopAttachment, XmATTACHWIDGET ); n++; 
XtSetArg{ args(n), XmNtopWldget, t ); n++; 

) 

if ( b ) 

( 

XtSetArg( args[nj, XmNbottomAttachment, XmATTACHWIDGET ); n++; 
XtSetArg{ args(n), XmNbottomWldget, b ); n++; 

) 

if ( 1 ) 

1 

XtSetArg( args[n], XmNleft Attachment , XmATTACH_WIDGET ); n + + ; 
XtSetArg( args(n], XmNleftWidget , 1 ); n++; 

) 

if ( r ) 

i 

Xt SetArg ( args In], XmNrightAttachment, XmATTACH_WIDGET ); n+ + ; 
XtSetArg( args[n), XmNrightWldget, r ); n++; 

1 
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MODULE NAME: make_print() 


MODULE (-'UNCTION: 

Function raake_print will create the code to issue a print command. Currently the 
prototype GCB does not support the printing of variables, therefore the print 
routine Is quite simple. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


static void make_print{ symbol, output_flle ) 

Symbol 'symbol; 

FILE ‘output_f 1 le; 


MODULE NAME: traverse line() 


MODULE. FUNCTION: 


Function traversel ine will traverse the specified list output the symbol structure t 

the (argot source file. The appropriate statement, building functions will be Invoked 
as they are encounter during the search. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 * 07/17/91 

Release 1.02 - 08/28/91 


[static void traverse linc( symbol, output_file ) 

Symbol ‘symbol; 

FILE *output_f lie; 


* Based on current language preference, build the appropriate print statement. 
*/ 

switch! Target Language ) \ 

case C ; fprintf( output_flle, "\tprintf( \“%s\\n\ M );\n", 

symbol ->text ); 

break; 

case MOAL : fprintt! output_filo, M prlnt( 0, %s )\n", 

symbol->text ); 

break; 

case U1L : 

break; 

default : dlsplaycr( "*• No target language spot: 1 fl ed\ n" ); 

break; 


* Loop through all the symbols linked together. 
•/ 

while ( symbol ) ! 

If ( symbol ->symbol_gene rated GENERATED ) 
return; 


Mark the symbol as generated. 


symbol ->symbol generated - GENERATED; 


Determine If a label should be made for the symbol. A label is not created 
if the symbol is begin (because the label has to be after the local variable 
declarations. 


if ( ( symbol ->symbol_type !- BEGIN ) &£ ( symbol->symbol_type !- END ) ) 
createlabel ( symbol, output_file ); 

/* 

‘ Based on what the symbol is, traverse the line alter outputlng the symbol. 
V 


switch! symbol ->symbol_type ) { 

case BEGIN: make_header( symbol, output_file >; 
break; 

case END : 

/* 

* If an end has not yet been encountered, record the current 

* position of the end (for use when ends are later 

* encountered) . 


/ 
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if ( End_To_Be_Posted — NULL ) 
End_To_Be_Posted - symbol; 


Create a label for the first encountered END to generate 
the goto. 


switch { TargetLanguage ) ( 

case C : fprintf( output_file, "\tgoto L%05d;\n", 

compute_label_index ( End_To_Be_Posted ) ); 
break; 

case MOAL : break; 
case UIL : break; 

default ; displayer ( m * * No target language specified\n") ; 
break; 

} 

break; 

case IF : make_if( symbol, output_file ); 

Last_Symbol_Processed - symbol; 
if ( symbol->Sym. IfSym. true^line ) 

traverse_line ( symbol->Sym.I fSym.t rue_line->to,output_fi le ) 

if ( symbol ^Sym. IfSym. false_line ) 

traverse_line ( symbol->Sym . IfSym. false_l ine->to, out put lie) 

return; 

case SET : make_set ( symbol, output_file ); 
break; 

case PAUSE: make_pause{ symbol, output_file ); 
break; 

case GOTO : make_goto( symbol, output_file ); 
break; 

case START: make start ( symbol, output_file ); 
break; 

case STOP: make_stop( symbol, output_file ); 

break; 

case PRINT: make print ( symbol, output__file ); 
break; 

case TEXT : break; 

default ; displayer ( "\n\n*** Unknown symbol type\n\n" ); 
break; 


Record the last symbol processed. 


Last_Symbol_Processed - symbol; 


Go the next symbol connected with a line. 


If ( symbol->next ) 

symbol - (Symbol *) symbol->next->to; 

else 

symbol - NULL; 


* If the next symbol has been generated, the insert a goto into the code 

* because the code has already been established and that implies that the 

* code should appear previously in the source file. 



if { symbol && ( symbol->symbol_generated -- GENERATED ) ) { 

fprintf( output_file, "\tgoto L%05d;\n M , compute label index ( symbol ) ); 
symbol - NULL; 




/ 


< > 



MODULE NAME: upd_mode_panel ( ) 

MODULE FUNCTION: 

This routine updates uppper left area with user name, etc. 


* REVISION 111 STONY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***•»< >* ** *••'*•** 

void upd_mode_panel () 


Arg args(l); 

XmString tcs, tcs2; 

/* 

* depending on the mode, create the appropriate XmString for the 

* mode label and the undo button. 

*/ 

switch ( Mode ) 

( 

case AddSymbol ; 

tcs2 - XmStrlngCreate ( "Add Symbol ", XmSTRING DEFAULT CHARSET ); 
tcs - XmStrlngCreate ( "CANCEL", XmSTRING_DEFAULT_CHARSET ); 
break; 

case LlneDraw : 

tcs - XmStrlngCreate ( "CANCEL", XmSTRING_DEFAULT_CHARSET ); 

tcs2 - XmStrlngCreate! "Connect Symbols", XmSTRING_DEFAULT_CHARSET ); 

break; 

case EdltSymbol : 

tcs - XmStrlngCreate! "UNDO", XmSTRING_DEFAULT_CHARSET ) ; 

tcs2 - XmStrlngCreate! "Edit Symbol", XmSTRING_DEFAULT_CHARSET ); 

break; 

case PrintBox : 

tcs - XmStrlngCreate! "CANCEL", XmSTRl NC_DEFAULT_CIIARSET ); 
Lcs2-XmStrlngCreate ( "Set Print Box", XmSTRING_DEFAULT_CHARSET ) ; 

•i break; 

case DeleteBox : 

■ tcs - XmStrlngCreate (• "CANCEL", XmSTRING_DEFAULT_CHARSET ); 

tcs2-XraStrlngCreate( "Set. Delete Box", XmSTRING_DEFAULT_CKARSET ) ,- 
break; 

1,1 case' 1 Help : ' ,-v * “ ! ' 

tcs " XmStrlngCreate! "CANCEL", XmSTRl NG_DEFAULT_CHARSET ); 

■' r '' ‘tcs2 --XmStrlngCreate ( "Help", XmSTRING_DEFAULT_CHARSET ); 
break; 

case MoveBox : 

' • tcs -•XmStrlngCreate! "CANCEL", XmSTRING_DEFAULT_CHARSET ); 

tcs2-XmStrlngCreate ( "Set Move Box", XmSTRING_D£FAULT_CHARSET ) ; 

. r ; ‘ f ?./.**, ’ break; 
case CopyBox : 

. . .• tcs”- XtnSt rTmjCrcate ( "CANCEL", XmSTR TNG DKFAUI.T CHARSET ); 

Ccs2»XmStrlngCreate{ “Set Copy Box", XmSTR 1NG_D£FAULT_C HA RSET ); 

break; * 

de fault: 

w tcs - XmStrlngCreate ( "CANCEL**,- XmSTRl NG_DEFAULT_CHARSET ); 

'■ ’***■■ ' . 

i ' cxV/J'.-IvSk' ,j 





MODULE NAME: upd_pos_panel {) 

MODULE FUNCTION: 



This routine updates the labels in the upper left box. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

** ****** ****** ****** ******** **********< >****«**•*•* 


void upd_pos_panel { purpose_type ) 
int purpose^type; 


utils.c 




1 


case 

COMPPURPOSE : 

arm_tgl ( tglcomp ); 
disarmjigl ( tgl_element 
break; 

case 

ELEMENT_PURPOSE : 

arm_tgl (tgl_element ); 
dlsarm_tgl ( tgl_comp ); 
break; 

case 

NOCHANGE : 

break; 


I 


/ 


} 


if ( XmToggleButtonGet State (tg l_element ) ) 

XmTextSet St ring ( txt_purpose, ElementPurpose ); 

else 

XmTextSet St ring ( txtpurpose, CompPurpose ); 


Arg args[l); 

XmStrlng tcs; 

/* 

* Update the status labels. 

*/ 

tcs - XmStrlngCreate ( Author, XmSTRING_DEFAULT_CHARSET ); 
XtSetArgl args[01, XmNlabelStrlng, tcs ); 

XtSetValuesl txtauthor, args, 1 ); 

XmStrlngFree! tcs ); 

tcs - XmStrlngCreate ( CompFUe, XmSTRING_DEFAULT_CHARSET ); 
XtSetArgl args(0], XmNlabelStrlng, tcs ); 

XtSetValuesl txtcomp, args, 1 ) ; 

XmStrlngFree ( tcs ); 

tcs - XmStrlngCreate! ElementFlle, XmSTRING_DEFAULT_CHARSET ); 
XtSetArgl args(0J, XmNlabelStrlng, tcs ); 

XtSetValuesl txtelement, args, 1 ) ; 

XmStrlngFree ( tcs ); 

tcs - XmStrlngCreate ( CreateDate, XmSTRING_DEFAULT_CHARSET ) ; 
XtSetArgl args[0j, XmNlabelStrlng, tcs ); 

XtSetValuesl txt_created, args, 1 ); 

XmStrlngFree ( tcs ); 

tcs - XmStrlngCreate ( UpdateDate, XmSTRING_DEFAULT_CHARSET ); 
XtSetArgl args(O), XmNlabelStrlng, tcs ); 

XtSetValuesl txt_last_update, args, 1 ) ; 

XmStrlngFree ( tcs ); 

tcs - XmStrlngCreate ( pPosltlon, XmSTRING_DEFAULT_CHARSET ) ; 
XtSetArgl args[0), XmNlabelStrlng, tcs ) ; 

XtSetValuesl txt_posit Ion, args, 1 ) ; 

XmStrlngFree ( tcs ); 

/* 

* Update the purpose textsw. 

*/ 


switch ( purpose_type J 



< > 


leader [ 0 ] = NULL; 


i\ 91/08/ 
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MODULE NAME: crea te_g loba l_va r i abl es ( ) 

MODULE FUNCTION: 

Function create_global_variables is invoked to create variable declarations for 
global variables. It the file pointer passed to the routine is valid, then it is 
assumed that variables are to be declared (and storage allocated); otherwise they 
are to be simply EXTERN' ed so that the compiler will know the base data types. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* * •••*•■■***••*•••< >*******.********* “***• **“*/ 

static lnt create globa l variabl es ( fp ) 

FILE * tp; 

( 

char filename ( MAX_F I LENAME |, 

leader ( MAX_LINE_LENCTH ), 
datatype l MAX_DATA_TYPE ); 
lnt file Close ; 

struct symbol entry *tump; 

/• 

* If the function was invoked with a valid file pointer (i.e. a Non-NULL value), 

* it Implies that the function is to write the symbol table with no EXTERN 

* statements (implying that the code is going in the main COMP body to actually 

* declare storage space) . Otherwise, a .h is created with the CompFile as the 

* predicate to be Included so that successful compilation can occur. 

*/ 

HI enclose - NO_CLOSING; 
if ( fp — NULL ) { 

/* 

* Creaccj the filename to be created. Open the file for writing. 

*/ 


/* 

* Scan through the symbol table root (where all globals are defined) and If a 

* global is found and its use count is greater than zero (which means it has 

* a current reference), place it in the output file. 

*/ 

temp * symbol_tabl e; 
while ( temp ) ( 

/• 

* If the entry is a global variable and its accessed, generate 

* a statement for it. 

V 

if ( ( temp->se_type & VARIABLE ) && ( temp->se_use_count > 0 ) ) ( 

/* 

* Create the string equivalent of the data type and place it in 

* the output stream. If the variable is of typo CHAR (implying 

* string then simply declare a character pointer). 

*/ 

create_C_st ring_type ( ( temp->se__type 6 SYMBOL_DATA_TYPE ), datatype ); 
if ( temp->se_type 4 CHAR ) 

(print f( fp, **%s%s *%s;\n", loader, data type, lomp->so_ symbol ); 
else If ( temp->se_type 4 MATRIX ) ( 

if ( (temp->se_type & WS GLOBAL) | \ (temp->so_typc 4 WS OBJECT) ) ( 
if ( leader ( 0 ) =“ NULL ) 

fprintf( fp, "%s%s %s( %d );\n", 
leader, 
datatype, 
temp->se_symbol , 
temp->se_subs ( SUB1 ) ); 

el se 

fprlnlf( fp, "4s%s * %s; \n" , 1 eador, data type, tcmp->se symbol ) 

) 

else ( 

/* 

• Declare an array with the appropriate number of dimensions. 
*/ 


sprint £( filename, "%s.h", CompFile ); 

If ( ( fp “ fopen ( filename, "w" ) ) *- NULL ) 
return ( ERR ); 


/* 

* Put a beginning comment in the file. Establish the leader to be printed 

* before each variable definition. 

*/ 

fprintf( fp, ”/*\n * Extern file for COMP: %s\n */\n\n", CompFile ); 
strepyf leader, "extern M ); 
f 1 1 enclose - NEEDS CLOSING; 

I 

e 1 se 

/* 

* Establish that no leader will be printed for the declaration. 

•/ 


fprintf( fp, "%s%s %s( %d )”, 
leader, 
data_type, 
temp->se_symbol , 
temp->se_subs ( SUB1 ] ); 
switch ( temp->se_num_dimensl ons ) ( 


case 

1 

: break; 



case 

2 

: fpr lnt f ( 
break; 

fp. 

*( %d |;\n“, turnp->so_subs | SUIJ2 

case 

3 

: f print f ( 
break; 

fP, 

M ( %d ] [ %d | ; \n", 
temp->se_subs( SUB2 ), 
temp->se_subs [ SUB3 ) ); 

case 

4 

: fprint f ( 

fp. 

M ( %d |( %d ] ( %d | ? \n" , 
temp->sc_subs ( SUB2 ), 
temp->se_subs ( SUB3 | # 
temp->se subs( SUB4 | ); 


break; 



default: displayer( 

“Attempted to declare an array with no dimensions specified" / 

) ; 

I * 

I * 

1 * 

else * 

fprlntf( fp, ”%s%s %s;\n", leader, data_type, temp->se_symbol ); * 

) /* of If */ * 

/* * 

* Go to the next symbol In the root of the symbol table. * 

*/ 

temp - temp->se_next ; * 

1 * 


************************************* ** *< >** ************************************** 

MODULE NAME: bu 1 1 d comp f 1 1 e ( ) 

MODULE FUNCTION: 

Function buildcompflle Is Invoked when a COMP file Is to be generated, complied 
and linked with the appropriate element files. The function will first generate 
the COMP main file (which holds global variable declarations and a call to the root 
element). The file will then be compiled and linked with all appropriate element 
files (those elements which exist in the root of the symbol table), the file 
skeleton_element .o and the math library (to resolve the GCB Intrinsic functions). 


REVISION HISTORY: 


/* 

* Determine If the file needs to be closed. 

•/ 


If ( flle_close — NEEDS_CLOSING ) 
fclose ( fp ) ; 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*************************************** < >* ***************************************/ 


static void build_comp_file ( source_fp ) 


/* 

* Issue a successful return code. 
*/ 

return ( SUCCESS )? 



FILE *source_fp; 


char cc_command [ MAX_OS_COMMAND ], 
skeleton_f i le [ MAX_PATH 1; 
struct symbolentry *temp; 

/* 

* Create the header information. 

*/ 

create_proc_header ( sourcefp ); 

/* 

* Create the global variables for the main COMP. 

V 

fprintf( sourcefp, M /*\n * Global variables\n */\n\n M ); 
create_global_variables ( source_fp ); 

/* 

* Create the main routine and place a call to initialize the process table. 
*/ 


fprintf( source_fp, M \nmain() \ni\n\tinitialize_process_table {) ;\n" ); 

/* 

* Add the statements to bind the any workstation globals or objects to the 

* appropriate memory address. The root of the symbol table is scanned for 

* any of these type of variables. 

*/ 


temp » symbol_table; 
while ( temp ) { 

/* 

* If the entry is for a workstation global or for an object (scalar data 

* only), generate a define statement. 

*/ 



MODULE NAME: upd_status() 

MODULE FUNCTION: 

This routine determines If the element Is complete and updates the status 
field accordingly. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void updstatus) complete ) 
lnt complete; 

1 

Arg args(l); 

XmStrlng tcs; 

If ( complete ) 

tcs - XmStrlngCreate ( “Complete", XmSTRING_DEFAULT_CHARSET ); 
else tcs - XmStrlngCreate! "Incomplete", XmSTRING_DEFAULT_CHARSET ); 
XtSetArg! args[0|, XmNlabelStrlng, tcs ); 

XtSetValues! txt_status, args, 1 1; 

XmStrlngFreo ( tcs ); 

1 





MODULE NAME: user ack () 


MODULE FUNCTION: 


This routine popups up a message requiring user acknowledgement and waits until 
the user answers it. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void userack ( message ) 
char "message; 


Arg args [ 1 | ; 

XmStrlng string; 


* Setup up the message to display to the user. 

*/ 

XtSetArg! args(0), XmNlabelStrlng, XmStrl ngCreate (message, XmSTRING__DEFAULT_CHARSET) 1 
XtSetValues! lblack, args, 1 ); 

/* 

* Set the size (width) of the userack () popup. This Is a pretty ugly 

* method, but It works. 

*/ 

elog (3, “sett lng user ack width to %1”, 200+ (8‘strlen (message) ) ); 

XtSetArg! args[0], XmNwldth, (200+ (8«strlen (message) ) ) ); 

XtSetValues) frmack, args, 1 ) ; 

process_popup( dlg_ack, WAIT ) ; 

XtSetArg! argsfOJ, XmNlabelStrlng, sstrlng ); 

XtGetValues( lbl ack, args, 1 ) ,- 
XmStrlngFree ( string ); 


.ri.: bON'"'""’ 
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MODULE NAME: whirl 

MODULE FUNCTION: 

This routine prints t | or a * In turn to show the progress of the GCB 
Initialisation routines. 


REVISION HISTORY: 

Graphical Comp Builder - NOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/26/91 

>">>••••111 


void whirl)) 


static int direction = 0; 

if ( Idlrectlon ) 

prlntf (“\010\05b") ; 

else 

prlntf ("\010\174”) ; 
f flush! stdout ) ; 



/• 

• reverse direction of line for next time. 

*/ 


If ( direction ) 
direction = 0; 
else direction - 1; 

) 




MODULE NAME: wrlte defaults <) 

MODULE FUNCTION: 

This routine writes the current Settings out to the user's defaults file. 


« REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.01 - 08/01/91 

* Release 1.02 - 08/28/91 

* *••■•• >"""..,."""...."......"".. 1 ."../ 

void wrlte defaults () 


FILE *fp; 

/* 

* Open the defaults file. 

*/ 

If (! (fp = fopen (DefaultsFile, “w”) ) ) 

I 

use rack (“Could not open User Defaults file for writing!”); 

elog (1, “wrltedefaults: Could not open User Defaults file for writing!”); 

return; 

) 

/* 

* Go through the options. Set the values In the defaults file to 

* to the values of the GCB options. 

* Opening the file for writing discards the old contents. 

* Don't mess with the order of options without extreme care. For example, 

* the LIB_PATH must preceed the ELEMENT_TYPE and ELEMENT_FILE. If 

* changes must be made, check open_read_defaults () for side effects. 

*/ 

fprintf (fp, "LIBRARY_PATH\t%s\n", LlbPath) ; 

If (Element Type — ELEMENT) 

fprintf (fp, “ELEMENT_TYPE\tELEMENT\n") ; 
else 

fprintf (fp, ”ELEMENT_TYPE\tLIB\n”) ; 


fprintf (fp, “DISPLAY_FILE\t%s\n", DlsplayFlle ); 

fprintf (fp, ”COMP_FILE\t%s\n", CompFlle ); 

fprintf (fp, ”ELEMENT_FILE\t%s\n“, ElementFlle ) ; 

fprintf (fp, "L0G_FILE\t %s\n", LogFile ); 

fprintf (fp, "LOG_I.EVEL\t%d\n", ErrorLogLevel ); 

fprintf (fp, “MACROS_PATH\t/GCB/Macros\n”) ; 
fprintf (fp, ”OBJECT_TABLE\t»s\n“, MSIDTable ) ; 

fprintf (fp, “POSITION_PATH\t%s\n", PosltlonPoth ); 

fprintf (fp, "POSITION\t%s\n“, pPosltlon ); 


If ( Target Language == C ) 

fprintf! fp, ”TARGET_LANG\tC\n“ ); 
else if ( TargetLanguage -- MOAL ) 

fprlntf( fp, “TARGET_LANG\tMOAL\n” ); 
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if ( tcmp->se_type 4 WS GLOBAL } 
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Place a call to the bind routine to bind the variable to a location 
in the data acquisition shared memory segment. If the variable is a 
matrix then simply pass the name of the matrix as the binding location. 

/ 

if ( temp->se_ type 4 MATRIX ) 

fprintf{ sourcefp, "Ntbindwsgloba 1 ( \"%s\", %d, %s ) ; \ n *\ 

temp->se_symbol , 

temp->se”type & SYMBOL^ATTR IliUTES, 
temp->se_symbol ) ; 

else 

fprlntf< source_fp, “\tbind_ws_global ( \"%s\", %d, &%s ) ; \n" , 

temp->se_symbol, 

temp->se~type 4 SYMBOL_ATTRIBUTES, 
temp->se_symbol ); 

if ( temp->se type s ws^OBJECT ) 

/* 

Place a call to the bind routine to bind the variable to a location 
in the data acquisition shared memory segment. If the variable is a 
matrix then simply pass the name of the matrix as the binding location. 

if ( temp->se typo 4 MATRIX ) 

tpr 1 nt f ( sourceip, "Ntbi nd_wa_obJoct ( V%s\", %d, %s );\n", 

temp->se_symbol , 

temp->se_type 4 SYMBOL_ATTR I BUTES, 
temp->se_symbol ); 

else 

fprint f I source_fp, "\tbind_ws_ob ject ( \ M %s\ M , *d, 4%s ) ;\n", 

temp->se_symbol , 

temp->se_type 4 SYMBOL_ATTRIBUTES / 
t emp->se_symbol ); 


Go to the next symbol in the root of the symbol table. 


skeleton_f l le ) ; 

/» 

* Temporairly increase the use count of the RootElement so that it will 

* be included in the "cc" line. 

*/ 

if { i ncrement_symbol_use_count { NULL, RootElement ) •- ERR ) { 

displayer{ "Could not find root element in the symbol tableNn" )/ 
return; 

} /* of if V 

temp = symbol_table; 
while ( temp ) [ 

/* 

* If the entry Is a global variable and It is accessed, generate 

* a statement for it. 

V 

if ( ( t emp->se_t_ype 4 PROCEDURE ) 44 ( temp->se_use count > 0 ) 44 
( ( temp->se_type 4 INTRINSIC I ““ 0 ) ) ( 

/* 

* If the function accessed is a user defined function, sot the path 

* to where the user defined functions are stored. 

V 

It { strnempt t.cmp->so_ syrnbo 1 , "KN_", 3 ) 0 ) 

/* 

* Append the *.o name with the path to the user defined function 

* area. 

•/ 

sprint f( cc_command, "%s %s/%s.o ", cc_command, 

UserFuncsPat h, 
temp~>se_symbol ) ; 

else 

i 


temp - temp~>se_next ; 

I 

/* 

* Place the ca 11 to the root element in the output file and complete the 

* basic structure of the COMP. 

V 

fprint £( source^fp, ”\n\t%s () ; \n)\n", RootElement ) ; 

/* 

* Close the source file and build the cc command to compile and link the COMP 

* file and Its associated ELEMENT files. All Elements listed in the root of 

* the symbol table which are used are included on the CC command. 

*/ 

fclosei source_fp ); 

strepy ( skeleton_f i 1 e, Swd ); 

streat ( skeleton_f ile, SKELETONOBJECT ); 

sprintfl cc_command, “cc >/dev/null 2>4l -o %s %s.c %s", 

CompFi le, 

CompFl le, 


/* 

• We have an Element name, see if its object file is up to date. 

V 

if ( (tcmp->se_t ype 4 INSTALLED) »■ 0 ) 

1 

displayer ("\nElement file: %s has not been Installed, build halted", 
temp->se symbol ); 
di splayer ("\n\n") ; 

/* 

* We temporarily incremented the user count of the RootElement, 

* now decrement. 

*/ 

if ( decrement_symt>ol_use__count (NULL, RootElement ) -- ERR ) 

I 

displayer! "Could not find root element in the symbol tableNn"); 
elog(l f "build: Could not find root element In the symbol table"); 
) 

return; 

1 





91 08/29 

08 : 49:09 


build.c 


* Append the .o name to the CC line for Inclusion in the link process. 




************** *< > **************** 


sprintf( cc_command, "%s %s.o ", cc_command, temp->se_symbol ); 

I 


* Go to the next symbol in the root of the symbol table. 

•/ 

temp = temp~>se_next ; 


* Decrease the use count of the RootElement. 

* in the "cc" line. 


if ( decrement_symbol_use_count ( NULL, RootElement ) — ERR ) { 

displayer{ "Could not find root element in the symbol table\n" ); 
return; 

} /* of if */ 


MODULE NAME: build element file() 


MODULE FUNCTION: 


The function build_element_f lie is Invoked to create and compile an element file. 
The function will create a ,c file in the current directory and build the source 
file by traversing the sysmbol structure created by the GCB user interface. The 
C source file created will then be compiled with the -c option so that it may 
later be linked with a COMP file. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/01/91 


****************************** 


*< >**** 


k*************** 


static void build_element_f ile ( source_fp ) 
FILE *source_fp; 


* Concatenate on the loading of the math library. 
*/ 

strcat ( cc_command, " -lm" ); 


* Compile and link the COMP by invoking the CC compiler through the system 

* command. All output from the CC command is dumped to /dev/null. 

V 

displayer { "Compiling and link COMP: %s\n", CompFile ); 

if ( system ( cc_command ) ) 

< 

displayer ( "Compile of COMP: %s failed — contact GCB support personnel\n" , 
CompFile ); 

displayer( "Compile command was: %s\n", cc_command ); 

. > 

else 

displayer{ "Compile of COMP: %s was successf ul\n", CompFile ); 


int i; 

char cc_command[ MAX_OS_COMMAND ], 

skeleton_f ile [ MAX_PATH ), 
source_llne[ MAX_LINE_LENGTH ); 
FILE ^skeleton; 


* Invoke the routine to create a include file which contains EXTERNs for all 

* global variables (this file is then "included" into the source file being 

* created. 

*/ 

if { create_global_varlables ( NULL ) I « 0 ) { 

displayer ( "Could not create global reference file — check permissions\n" >; 
return; 

} 

/* 

* Place an include in the ELEMENT source file to include the globals EXTERN file. 
*/ 

fprintf( source_fp, "iinclude \"%s.h\"\n\n", CompFile ); 

/* 

* Mark all entries in the symbol table as not generated. This bit will prevent 

* the traverse_l ist function from being called forever recursively. 


for ( i =0; i < MAXSYMBOLS; i + + ) 

Symbol_Map[ i 1 . symbol_generated « NOT GENERATED; 


* Set the posting variable for the end and the last processed symbol to be NULL. 

*/ 


End_To_Be_Posted « NULL; 
Last_Symbol_Processed - NULL; 
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/* 

* Copy the skeleton comp source file to the source file. 
*/ 



build. c 


strcpy( skeleton_f i le, Swd ); 

st rcat ( skeleton^ f lie, SKELETON_ELEM£NT ); 

if ( (skeleton = fopen (skeleton_f 1 le, “ r" U ““ NULL ) 

{ 

displayer{ "\n** Could not open skeleton COMP - notify adm i n 1 st rator . \n" ); 
dl splayer { “\n** BUILD HALTED DUE TO UNRECOVERABLE ERROR! \n\n" ); 
return; 

I 

while ( fget s ( source_llne, MAX_L1NE_LENGTH, skeleton ) ‘ * NULL ) 
fprlntf( source_fp, "%s", source^line ); 
fc lose { skeleton ) ; 


/* 

* Invoke the routine to print procedure header information to the target code 

* output file. 

V 



create_proc__header ( source_fp ); 
/* 

* Traverse the linked list. 

V 


traverse^l ine { Begin_Sym, source_fp ); 

/* 

* If an end exists to be posted to the output file, output the data. 
V 


if ( End_To_Be Posted ) 

make j rai ler ( source_fp ); 

/* 

* The source file Is now complete. Close the file and send It to be 

* compiled. All output from the compiler is dumped to /dev/null. 

V 

fclose( source_fp ); 

sprintf( cc_command, "cc -c %s.c -I%s -I. >/dev/null 2>il", ElementFile, Swd ); 
dlsplayer( “Beginning compilation of: %s\n“, ElementFile ) ; 

/* 

* Display an appropriate error based on the CC command. 

V 

if ( system( cc_command ) ) 
l 

displayer( “Compile of Element: %s failed — contact GCB support personnel \n", 
ElementFile ); 

displayer{ "Compile command was: %s\n", cc command ); 

I 

else 

1 

displayer{ “Compile of element file %s was successful\n", ElementFile ); 
set_sym_attribs ( ElementFile, INSTALLED, TRUE ); 
update__comp_file ( GCompFile, NULL, NULL, NULL, NULL ); 

} 


\ 



MODULE NAME; cbr__build{) 

MODULE FUNCTION; 

Function cbr_build In the entry point into the build process when the GCB user 
selects that a "install" should occur. The function will either build an element 
file or a COMP file depending on the selection of the GCB user. 

REVISION HISTORY; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* >**************»***********.*»**»********/ 


XtCa 1 IbackProc cbr_build{ w, client_data, call_data ) 


Widget 
caddr_t 
caddr t 


w; 

cl lent _dat ar- 
ea 11 _dat a; 


char source_f 1 1 o [ MAX^FI LENAME ); 
FILE *source_fp; 


* Create the source filename, if the build is for a COMP then then use the COMP 

* name as the predicate to a .c; otherwise use the ELEMENT name as the predicate. 
•/ 


if ( (int) clientdata == BUILD_COMP ) 
strcpyt source_flle, CompFile ); 

else 

strcpy( source_file, ElementFile ); 
strcat( sourcefile, ".c" ); 

displayer { "Building source file; %s\n", source_flle ); 

/* 

* Open the target file (for the specified source to be generated). 

V 

if ( ( source fp « fopen (sourcef i le, “w" ) ) «*“ NULL ) ( 

displayer( "\n‘* Could not open source file %s - check permissions .\n", 
source^file ); 

displayer ( "\n** BUILD HALTED DUE TO UNRECOVERABLE ERROR. 1 \n\n" ); 
return; 

I 

/* 

* Invoke the appropriate routine based on whether or not a COMP or an ELEMENT 

* build was requested. The routine Invoked will build a source file and compile 

* the source code. The two following build routines currently assume only a 

* C source code file is being generated. 

*/ 


/* 

* Make sure that edit mode is not currently active. 

V 

if (Mode I- Ed it Symbol) 
return; 

/* 

* If the currently selected target language is UIL, simply return because the 

* code generation does not support UIL (if the code generation routine was 

* invoked MANY syntax errors would be reported) . This conditional should be 

* removed as the GCB matures. 

*/ 


if ( (Int) cl ient__data BUILD_COMP ) 
build_comp_f lie ( source_fp ); 

else 

build_element_f 1 le ( sourcefp ); 


if ( TargetLanguage -- UIL ) 

I .1 

user_ack ("Sorry, but UIL is currently not supported"); 
return; 

1 

/* 

* Audit the element. 

V 


show_displayer ( True ); 

displayer ( "Auditing element: %s\n", ElementFile ); 

If ( 1 (audit (LINES_AND_EXPR) ) ) ( 

displayer ( "\n** Build failed; highlighted symbols are incomplete. Select \n" ); 
displayer ( " Element -> Audit -> Clear Audit to restore symbols. \n" ); 
displayer ( "\n ** BUILD HALTED DUE TO UNRECOVERABLE ERROR ! \n\n" )? 
return? 






FILE NAME : cal l_f low. c 

FILE FUNCTION: 

Contains the routines which generate and display the Comp Call Flow. 

SPECIFICATION DOCUMENTS: 

/home/ pro ject/35 31 /Docu/GCB. spec .doc 


FILE MODULES: 

cbrcal Inflow () 
f ree_node_l 1 st () 
Indent () 

print_node_li st {) 


- generate and display the Comp Call Flow 

- free the linked list built during cbr_call flow {) 

- indent a specified number of spaces during call flow output 

- display the linked list of element calls 




include <stdlo.h> 
include <X1 1 / Int r 1 nsi c. h> 
include <Xm/Xm.h> 

Include "geb.h” 
include "cbr.h" 
include "widgets. h M 
include "call flow.h" 


MODULE NAME: cbr_ca 1 If low { ) 

MODULE FUNCTION: 

This routine generates and displays the Comp Call Flow. The Comp 
Call Flow is a list of every element call generated by each element. The Comp 
Call Flow starts at the root element and lists every element called by the root, 
then every element called by the first level elements are listed until the 
leaves of the element tree are reached. The comp call flow looks like the 
following : 

root -> elementl -> elementa 
elementb 
element2 -> elementc 
elementd 

Each node of the linked list contains two pointers: 

child -> this will point to the first element called by the current element 
next -> this will point to the next element in the list 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1 .02 - 08/28/91 

* 


XtCal IbackProc ebr call flow( w, closure, calldata ) 

Widget w; 

lnt closure; 

caddrt calldata; 

I 

char names (MAX_ NODES) (MAX_NAME), 

types 1MAXN0DES) ; 
int cont - True, 

count, 

dot_count = 0, 

i, 

num_names » 0, 
num_nodes = 0, 
width » 0; 


/• 

* Initialize the dlsplayer for CallFlow output. 

V 

show_displayer ( True ); 

displayer( "\nBuilding comp CallFlow for:\n\n" ); 
dlsplayer ( "\tComp: %s\n“ / CompFile ); 

dlsplayer ( "\tRoot Element: %s\n", RootElement ); 
dlsplayer ( " \n\nExtract i ng calls in Element FllesNn" ); 


/• 

* Build a linked list of the element calls. 

*/ 


else 



call_flow.c 



rootPtr - {struct node *) mallocf si zeof (struct node) ); 

rootPtr->child - NULL; 

rootptr->next - NULL; 

rootPtr->processed * False; 

rootPtr->type = 'E'; 

strcpyt rootPtr->name, RootElement ); 

prevPtr - rootPtr; 


* Loop through each of the element flies called within this comp. Each 

* time an element file is opened to extract Its list of calls, display 

* a dot to the user so they get some feedback. 

*/ 

while ( cont ) 

I 

displayer( " . 14 
dot_count++; 

If ( dot_count 

{ 


) ; 


50 ) 


dlsplayer( "\n" ); 
dot_count - 0; 

) 


Keep a count of the widest element name so we will be able to 
print them out In a nicely formatted fashion. 




parentPtr->next = currPtr; 
parentPtr - currPtr; 

1++; 

1 

currPtr->next = prevPtr; 
prevPtr - nextPtr; 

parentPtr - nextPtr; 

) 


else 


{ 

while ((prevPtr ! = rootPtr) it (prevPtr->processed) ) 
prevPtr - prevPtr->next; 

If ( prevPtr — rootPtr ) 
cont - False; 

I 


/* 

* Print and free the linked list nodes. 


prlntnodellst ( width ); 
free node list () ; 


prevPtr->processed • True; 

If ( strlen (prevPtr->name) > width ) 
width » strlen (prevPtr->name) ; 


/* 

* Extract any element calls from the current element file. 

*/ 

num_names - get_element_calls ( names, types, prevPtr->name, prevPtr->type ); 
If ( num_names ) 

( 

parentPtr = prevPtr; 

1 ° 0 ; 

while ( 1 < num names ) 

(l 

If ( num_nodes++ — MAX_NODES ) 

1 

dlsplayer(“\n\n\n*** Number of nodes exceeded! !! \n”) ; 
dlsplayer("*** Infinite loop possible! \n\n") ; 
prlnt node llst ( width ); 
return; 

I 

currPtr « (struct node *) malloc( sizeof (struct node) ); 

currPtr->chlld - NULL; 

currPtr->next - NULL; 

currPtr->processed - False; 

currPtr->type - types [ 1 J ; 

strcpy( currPtr->name, names(l) ); 

If ( 1 — 0 ) 

I 

nextPtr - currPtr; 

parentPtr->child - currPtr; 

) 






call_flow.c 


MODULE NAME; free no<Je__listO 
MODULE FUNCTION; 

This routine frees the linked list of structures built during the generation 
of the Comp Call Flow. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 

****“****»“•“ < >• 


/ 


I 


1 

while ( currPtr ! 
f ree ( root Pt r ) ; 


void f ree_node_l 1st {) 
( 

currPtr * rootPtr; 
nextPtr - rootPtr; 


* It the list Is only 1 deep, free the root pointer here. 


If ( rootPtr->ehl Id -- NUI.L ) 

I 

t roc ( root Pt r ) ; 
return; 

I 

/‘ 

* Mark all nodes/structures to a known state. 

•/ 

do i 

Oil 1*1 4*1 r->procos:;od - NOT Cl. EAR El); 

if { (currPtr->chlld) && (currPtr->chi ld->processed !“ NOT_CLEARED) ) 
currPtr - currPt r->chi Id; 

el se 

currPtr » currPt r->next ; ^ 

while ( currPtr !» rootPtr ); 

/* 

* Free all the linked list nodes/structures. 

*/ 

do { 

If ( (currPtr->processed « CLEARED) || (currPt r->chl Id = ~ NULL)) 

( 

nextPtr « currPt r->next; 
free( currPtr ); 
currPtr - nextPtr; 

) 

o 1 so 

I 

noxLPtr - currPtr; 
currPtr - currPt r->chl Id; 
nextPtr->processed - CLEARED; 

) 


= rootPtr ) 





else 

( 

user_ack ("Target Language not set correctly during save of Defaults file"); 
elog (1, "Target Language not set correctly during save of Defaults file"); 

I 

fprlntf (fp, , 'USER_FUNCS_PATH\t%s\n'', UserFuncsPat h ); 

fprlntf (fp, “WS_GLOBALS\t%s\n", WSGlobals ); 

I f ( LogOrCompText ) 

(print f (f|>. "DISPLAY T0GC1.F.U 1 \n" ); 

i: ] »:o 

fprlntf (ip, "DISPLAY_TOGGLE\tO\n" ) ; 
fclose ( fp ) ; 


preceding page blank not FILMED 
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*********** ****************< >****************«************* 

* FILE NAME: validate.c 

* > 

* FILE FUNCTION: 

* 

* This file contains the routines which perform the Comp Validate function. 

* 

* 

* FILE MODULES: 

* 

* cbr_validate 0 - perforin the Comp Validate function 

* 

************************** ************ * ft< >*************************.*.*** 


•Include <stdio.h> 

•include <X1 1/ Intrinsi c. h> 
•include <Xm/Xm.h> 

•include “gcb.h" 

•include "widgets. h" 




*< >** 




MODULE NAME: cbrvalldate {) 

MODULE FUNCTION: 

This routine Is called from the main menu to perform the Comp Validate function. 

NOTE: this routine has not yet been implemented. This routine will be completed 
when the structure of the Object Access and Work Station Global tables has 
been defined. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 -07/17/91 

Release 1.02 - 08/28/91 




************** <_____>* *********< 
XtCallbackProc cbr_val idate ( w, client_data, call data ) 


Widget 
caddr^t 
caddr t 


w; 

cl ient_data; 
call data; 


show displayer { True ); 

displayer ( " Validating Work Station GlobalsXn" ); 

di splayer ( " \n\n" ) ; 

displayer( "Opening Work Station Global table: %s\n\n\n", WSGlobals ); 


displayer ( 
displayer ( 


Validating Object Access\n" ); 
\n\n" ) ; 


displayer ( "Opening Object Access stable: %s\n\n\n", MSIDTable ); 
displayer { "\n\n*** THIS FEATURE HAS NOT YET BEEN IMPLEMENTED!! ); 




FILE NAME: var llst.c 


FILE FUNCTION: 


This file contains the routines which pop up if/set symbol creation popups. 


FILE MODULES: 

al l_vars_complete () 
bui ld_var_list () 
build_new_var_list 0 
canceT_var_l 1st 0 
cbr_unknown_type_done 0 
cbr_unknown_is jnat { ) 
cbr_unknown_type_select 
cbr_unknown_type_select 
change_list_use_count () 
check_al Invars () 
destroy_va r_l 1st {) 
dupe U 

edlt_vnr_l 1st O 
get_type_f rom_name () 
ls_local () 
keyword ( ) 

look_on_last_l 1st () 
set_Iast_var_l ist () 
set_type_strlng O 

st rl ng_ln_expr () 


- determines if user has provided type for each variable 

- builds list of var name/var type pairs from string 

- ensures that each var in the expr is in symbol table 

- cancels draw or edit, deletes vars with use count of 0 

- adds new variables to the symbol table. 

- reacts when user (de) selects matrix toggle 

name() - reacts when user selects variable to specify type 
type{) * reacts when user selects a type for a variable. 

- ++ or — use count of each variable in string. 

- deletes all global and local vars with use count <** 0 

- deallocates the space taken up by a name/type pair list 

- sees if first name on list is duplicated in list. 

- ♦♦ use counts of vars In new version, -- them in old 

- converts the string representation of a type to value 

- uses naming conventions to determine scope of variable 

- determines If word extracted by the scanner is keyword 

- checks most recently deleted variables for parameter 

- copies var to list of most recently deleted variables 

- sets the type string In the "unknown type" popup 

- determines If parameter expression contains a string. 


•include <stdio.h> 

•include <X11/Intrlnsic.h> 
•Include <Xm/Xm.h> 

•Include "geb.h" 

•include "symbol. h" 
•Include "widgets. h" 
•include "var llst.h" 


NUM_KEYWORDS 26 

last_selected_name - 0, 
last_selected_type • -1; 


struct list elem 


•last list = NULL; 


*type_choices ( 6] - 
"int", 

"float ", 

"double", 

"short ", 

"unsigned" , 
"string" 

I; 

*keywords(26) - ( 


"acos", 

"sin", 

"asin", 

"tan", 


Char 


atan' 



•power", 

-log", 

"nlog", 

•exp", 

"sqrt", 

"ADD", 

"SUB", 

"MULT", 

"IDENT", 

■INVERSE", 

"TRANSP", 

■CROSS", 

"DOT", 

"PI"# 

"not", 

"and", 

"or", 

"bltAnd", 

"bltOr", 

"bitXor" 

); 




preceding page blank 


********* 
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^*************************A**************^ >** * 

* 

* MODULE “NAME: all_vars_complete () 

* 

* MODULE FUNCTION: 


**************************** 


This routine determines if, in the unknown_vars popup, the user has provided 
a type for each variable with an unknown type. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**************************************** ft**************************************/ 

int all_vars_complete ( num_undecl ) 
lnt num_undecl; 

( 

int 

XmString 
Arg 
char 
char 


for ( 1 - 0 ; 

( 

/* 

* retrieve label of this variable's type 

*/ 

XtSetArg( args[0], XmNlabolStrlng, stcs ); 

Xt Get Val uos ( lbl _unknown_type_name 1 1 ] , args, 1 ); 

XmStrlngGetLtoR ( tcs, XmSTRING_DEFAULT_CHARSET, stype ); 

If ( ! strcmp (NULLS, type) ) 

( 

user_,ack ("must assign a type to each variable"); 
return ( 0 ) ; 

I 

else 

( 

/* 

* scan the type string 

*/ 

el og (3, " f 1 rst word In sscanf: Ai\n", sscanf(type, "\s", mat) ( ; 

It ( !strcmp(mat, “matrix") ) 

( 

elog (3, "matrix: I of converted Items In sscanf: %l\n", 

num_conv = sscanf (type, "%s %s %s %s *s As As As As As", 
mat, rows, xl, cols, x2, d3, x3, d4, tempof, temp_type) ) ; 


1, string_mat, num_conv; 
tcs; 

args (1 ) ; 

‘type; 

mat(9), temp_of[9), temptype ( 9) , rows[3), xl[2], x2[9|, x3(9|, cols(3], 


<13(9], d 4 ( 9 ) ; 

1 < num_undecl; 1++ ) 


if ( ( atol(rows) < 1) I I (atol(cols) < 1) I I 
( atoi (rows) > 10) I I (atol (cols) > 10) ) 

( 

user_ack ("matrix bounds exceeded"); 
return ( 0 ); 

) 

/* 

* Don't allow STRING MATRIX 

*/ 

string_mat - 0; 
switchf num_conv ) 

1 

case 6: If (I strcmp (d3, “string") ) 
strlngmat - 1; 
break; 

case 8: If (! strcmp (dl, "string") ) 
strlng_mat - 1; 
break; 

case 10: If (! strcmp (temp_type, "string") ) 
string_mat - 1; 
break; 

I 

if ( strlngmat ) 
t 

userack ("The GCB currently does not support STRING MATRICES"); 
return ( 0 ); 

) 

) 


) 

return! 1 >; 


/* 

‘ Do some bounds checking 
*/ 



< > 


MODULE NAME: bulld_var_list {) 

MODULE FUNCTION: 

This routine builds a list of var name/ var type pairs from the string 
parameter. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***< >* *» «*»*»**» 

struct list_elem *build_var_list ( str, elementName ) 

char *str, 

•elementName; 


Int attrlbs, len, siart_lndex - 0, curr_index, scope; 

struct list_elem *list_head » NULL, • new_l ist_elem; 

struct symbol_entry *sym_entry; 

char temp^name [MAX_NAME] ; 

/• 

* If we don't have a string, then we don't have a list of variables. 

*/ 

if ( !str ) 

return { NULL ) ; 

while ( str(start_lndex] ) 

I 

if ( isalpha (str (start_lndex] ) ) 

I 

/* 

* we have found the start of a word 
*/ 

curr_index » start_index; 

while { (isa lnum {str (currlndex) ) ) || (str [curr_index] '_') } 

curr_lndex++ ; 

/* 

* extract this word 
V 

len = curr_index - start_index; 
if ( ! len ) len - 1; 

strncpy{ temp_name, & str [start_lndex J , len ); 
temp_namc ( len] - 'NO'; 

if ( keyword (tomp_namc) ) 

{ 


* we have found a keyword - ignore 

*/ 



varjjst.c 



/ 



i f ( st r [curr_index] ) 

start_index - curr_lndex +1; 

else 

start index “ curr_index; 
i 

else 

1 

/* 

* build new list elem structure 

*/ 

If (! (new_l i st_elem“ (struct llst^elem * ) ma 1 loc (si zeof (st ruct llst_elom))) 
( 

user_ack ("malloc failed in build var list**); 
exit ( ERR ) ; 

} 

/* 

* malloc space for var name 

*/ 

if ( !'(new_llst_elem->var_name - (char *)malloc( slzeof (char) * len f 1)) 
I 

user_ack ("malloc failed in build var list"); 
exit ( ERR ); 

strncpy( newl ist_elem->var_name, &str ( start^l ndex) , len ); 
new_list_elem->var_name( len] - '\0'; 

/•DEBUG*/ 

elog (3, "bul Id var list: %s not keyword, len - 
new_list_elem->var_name, len); 

new ! i st_elem->var__type » 0; 

/* 

* determine scope of new variable 
V 

attrlbs - ls_local ( new_l i st_elem->var_name ); 
if ( attribs & GLOBAL_VAR ) 
scope - 1; 
else scope - 0; 

/* 

* if it's in the symbol table, record its type 

*/ 

if ( (sym_entry “ (struct symbol^entry * ) lookup_symbol ( scope ? 

NULL : elementName, new_llst_elem->var_name) ) !» NULL ) 
new_list_elem->var_type - sym_entry->se_type; 

else 

elog(3, "build var list: can't find %s %s\n", 

scope ? ’•global" : "local", new list e lcin->var_name) ; 

/* 

* add new list element to list 

*/ 

new list elem->next « list_head; 



list_head - new_list_elem; 

if ( str [curr_index] ) 

start_index - currlndex + 1; 

else 

start_index = curr_index; 

1 

I 

else If ( str[start_lndexl — ) 

l 

/♦ 

* skip over everything within quotes 

*/ 

/•DEBUG*/ 

elog (3, ”bulld_var_llst : string var“); 
start_index++; 

while ( str[start_lndex] !• ) 

start_indext+; 
start_lndex*+; 

If ( str[start_lndex) != '\0' ) 

elog (3, “build_var_llst : string rhs has extra chars at EOL-); 

1 

else 

/• 

* operators, etc. - Ignore 
•/ 

start_index++; 


return! llsthead ); 

I 


varjistc 

/A************************************** ^ **************************************** 

* 

* MODULE NAME: bui ld_new_var_l 1st () 

* " ■” 

* MODULE FUNCTION: 

* 

* This routine builds a list of var/type pairs and ensures that each var in the 

* expr is in the symbol table with a type. If it isnt, the routine pops up a 

* window that allows the user to input the variable's type. 



REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

A************************************** < > * ***************************************/ 


int buildnew var_l ist ( str, add ) 

char *str; 

int add; 


struct list_elem 
int 

XmString 

Arg 


*temp_list, *new_list; 
1, undeclared - 0; 
tcs; 

args [1 ] ; 


newllst - bui ld_var_list ( str, ElementFile ); 

/* 

* see if any of the variables in this expression are undeclared; if they are, 

* put them in the undeclared popup and post it. 

•/ 


temp_list = (struct list_elem *)new_list; 
while ( templist ) 

( 

/* 

* don’t want a var to appear >1 in the list 
V 


if ( ( ! temp_list->var_type) && ( !dupe (temp list) ) ) 

{ 

/* 

* undeclared var; set string in next name field to this var' s name 
*/ 


tcs = XmStringLtoRCreate ( temp_l ist->var_name, XmSTRING _DEFAULT_CHARSET ); 
XtSetArg( args[0), XmNlabelString, tcs ); 

XtSetValues( tglunknowntypename ( undeclared ], args, 1 ); 

XmStringFree ( tcs ); 
undeclared**; 

if ( undeclared > MAX_UNDECLAREDS ) 

I 

user_ack (“too many undeclareds**) ; 
dest roy_var_list ( new_llst ); 
return ( 0 ); 

} 


) 



WWW?? 



dest roy_var_l 1 st ( new_llst ); 
if ( undeclared ) 
l 

/* 

* unmanage all tgls and labels that are not being used 

* this time in the popup. 

*/ 


MODULE NAME: cbr_unknown_type_done () 

MODULE FUNCTION: 

This routine ensures that every variable in the popup has been given a type, 
then adds them to the symbol table. It then remanages all the popup components 
for the next time. 


lor ( 1-MAX UNUECI.AKEUS-1 ; 1 >- undeclared; 1-- ) 
( 

XtUnmanageChl Id ( tgl_unknown_type_name [ 1 ] ); 
XtUnmanageChlld ( lbl_unknown_type_name [ 1 | ); 

1 


last_selected_name - 0, 
last_selected_type - -1; 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 

Release 1.02 


07/17/91 

08/28/91 


XtCallbackProc cbr_unknown_type_done ( w, closure, calldata ) 


/* 

* Set defaults for popup: first variable name, type Is lnt, 

* It Isn't a matrix. 

*/ 


arm_tgl< tgl_unknown_type_name (0 | ); 
for ( 1-1; 1 < MAXJJNDECLAREDS; ltt ) 

dlsarm_tgl( tgl_unknown_type_name ( 1 | ); 
arm_tgl( tgl_unknown_lsnt_mat ); 
dlsarm tgl ( tgl_unknown_ls_mat ); 

XtSetArgl args[0|, XmNuserData, undeclared ); 
XtSetValuesI dlg_unknown_type, args, 1 ); 


Widget 

w; 

int 

closure; 

XmListCallbackStruct 

*call_data 


lnt 

numconv, j, 1, num_undecl, global, attributes - 0 
rows, cols, dlm3, dlml, num_dlm; 

XmStrlng 

tcs; 

Arg 

args [1 ) ; 

char 

•varname, ‘type; 

char 

temp mat[9|, temp of[9|, temp type[9], r|3), xl [ 2 ] 
x3 [ 9 ) , C [3 ) , d3[9], d4 | 9 | ; 


/* 

* pop up window to receive types of all undeclareds. 

*/ 


/* 

* Give the user a chance to cancel declaration popup. 

•/ 


XtManageChlld ( dlg_unknown_type ); 
return) 0 ); 

I 

return! 1 ); 

) 


If ( Iclosure ) 

I 

reset_unknown_popup() ; 
return; 

) 

/* 

* Retrieve the number of undeclared variables from the userData 

* resource of the unknown type popup. 

*/ 


XtSetArgl args(0|, XmNuserData, inum_undecl ); 
XtGetValues! dlgunknowntype, args, 1 ); 


/• 

* do we have types for all vars In popup? 
*/ 


If (! al l_vars_complete ( num_undecl ) ) 
return; 


/* 

* put each variable In the symbol table with Its type 
*/ 

for ( 1-0; 1 < num_undecl; 1++ ) 



* get each var name and sscanf Its type out of Its corresponding 

* text field. 

*/ 

XtSetArgl args(O), XmNiabelString, stcs ); 

XtGetValuesf lbl_unknown_type_name (i ) , a rgs, 1 ); 

XmStringGetLtoR ( tcs, XmSTRINGDEFAULT CHARSET, stype ) ; 

XtSetArgl args[0|, XmNiabelString, stcs ); 

XtGetValues( t g l_unknown_t ype_name 1 1 ) , aigs, 1 1; 

XmStringGetLtoR! tcs, XmSTRING_DEFAULT_CHARSET, Svar_name ); 

attributes |- ls_locai ( var_name ); 

elog (3, "first word in sscanf: %l\n“, sscanf (type, "%s“, tempmatj); 
if ( ! strcmp (temp_mat, "matrix") ) 

{ 


var_list.c ; 

if ( (j - add_symbol_entry ( (attributes S GLOBALVAR) ? NULL : 
varname, attributes, num_dim, rows, cols, dim3, dim4)) !■ 
( 

elog (3, "add unknown symbol entry failed, returned %i", 
user_ack ("add unknown symbol entry failed"); 
exit ( ERR ) ; 

) 

attributes - rows = cols - 0; 

) 

/* 

* remanage and reset all tgls and ibis for the next time 

*/ 

reset_unknown_popup () ; 

i 


/» 

• scan out matrix's dimensions 

*/ 

elog(3,"» of converted items in sscanf: %l\n", numconv - sscanf (type, 
"%s %s %s %s %s %s %s %s %s %s", temp mat, r, xl, c, x2, d3, x3, d4, 
temp of, temp type)) ; 
attributes |» MATRIX; 
rows « atol ( r ) ; 
cols - atol ( c ) ; 
num_dlm = 2; 
if ( num_conv > 6 ) 

( 

dlm3 - atol ( <13 ) ; 
num_dlm =3; 

I 

if ( num_conv > 8 ) 

( 

dlm4 - atol ( d4 ) ; 
num_dim - 4; 

) 

I 

else 

I 

elog (3, “ f 1 rst word in scanf Imatrlx: tl\n“, sscanf (type, “»s”, temp_type) ) ; 
num_dlm - rows = cols - dlm3 = dim4 = 0; 

1 

if ( num_dlm -- 2 ) 

attributes |= get_type_f rom_name ( d3 ); 
else if ( num_dim -".3 ) 

attributes |= get_type_f rom_name ( d4 ); 

else 

attributes |- get_type_from_name ( temptype ); 
if ( attributes s MATRIX ) 

elog (3, "unknown done: MATRIX! rows %i, cols %l\n", rows, cols); 

elog (3, "adding %s symbol %s with attrlbs %i and r %i c %1 d3 %1 d4 %l\n", 
(attributes & GLOBAL_VAR) ? "global ":"local ", var_name, attributes, 
rows, cols, dim3, dlm4 ) ; 


/* 

* add new var to symbol table with proper attrlbs and scope 

*/ 




ElementFlle, 
SUCCESS ) 

j); 





MODULE NAME: cbr_unknown_type__sel ect_name () 

MODULE FUNCTION: 

This routine reacts when the user selects a variable to specify its type. 


• REVISION HISTORY: 

• 

• Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

ft 

ft************************************ ft ft ft < >* *« ft ftftftftftftftftftft.ftftftftftftftftftftftftftft* 

XtCa 1 IbackProc cbr_unknown_type_select_name ( w, closure. call_data ) 

Widget w; 

lnt closure; 

XmToggleButtonCal 1 backSt ruct *cal l_data; 

I 

It ( caU_data->roason XmCRDISAKM 1 
return; 

/* 

* record last selected type to update text string of var being defined. 
•/ ' 

lastselectedname - closure; 

elog (3, "last selected Is %d\n“, last_selected_name - closure) ; 

I 
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MODULE NAME cbr unknown_ls_mat () 

MODULE FUNCTION: 

This routine reacts when the user selects or deselects the matrix toggle 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCallbackProc cbr_unknown_is_mat ( w, closure, call_data ) 

Widget w r * 

int closure; 

XmToggleButtonCal 1 back St ruct *cal l_data; 

/* 

* accept only arm toggle calls 
*/ 

if ( ca 1 l_data->roason »» XmCR^DISARM ) 
return; 

/* 

• update type string of var being defined. 

V 

set_type_string ( closure ); 
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/*****<******* *******************< >*****»********************************** 

* MODULE NAME: cbr_unknown_type_select_type {) 

* 

* MODULE FUNCTION: 

* 

* This routine reacts when the user selects a type for a variable. 

* 

* 

• REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

******* c 

XtCallback Proc cbr_unknown_type_select_type ( w , closure, call_data ) 

Widget w; 

let closure; 

XmLlstCallbackStruct *call_data; 

I 

If ( call_data-> reason -- XmCRDISARM ) 
return; 

last_selected_type - closure; 

/* 

* reset type string depending on whether or not matrix Is set. 

*/ 

If ( XmToggleButtonGetState (tgl_unknown_ls_mat) ) 
set_type_strlng ( 0 ); 


* MODULE NAME: cancel_var_llst () 

* MODULE FUNCTION: 

* This routine cancels a draw or edit In progress. It checks all global and 

* local variables: If any have a use count of 0, It decrements their use count. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 



lnt cancel_var_llst () 

t 

/•DEBUG*/ 

elog (3, "cancel var list: checking all vars*); 

/* 

* must remove from the symbol table all vars Introduced during this 

* expression's creation, so they may be reused. 

*/ 

check all_vars(); 

1 


# 91/08/2? i 

tmm? 
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MODULE NAME; change_l 1 s t_use_count { ) 

MODULE FUNCTION: 

This routine creates a list of name/type pairs from the parameter string; 
it then Increments or decrements the use count of each variable. If a 
variable whose use count is to be incremented is not in the symbol table, 
its symbol must have been deleted and is now being restored; look on the list 
of variables from the last symbol to be deleted. 

REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


look_on_last_l 1st ( temp_list->var_name, local ); 

i 

(struct list_elem *) temp list->next; 


temp_list 
) 

destroy_var_list ( templist ); 


* user may have introduced extraneous variables during this expression 

* creation - delete them from the symbol table. 

V 

check all vars () ; 


int change_list_use _count ( sym, str, incr_decr ) 

Widget sym; 
char *str; 

int lncr_decr; 


struct lifit_i!lom 
struct symbol _ent ry 
int 

if ( ! (temp_i i st - bulld_var_list (st r, ElementFlle) ) ) 

{ 

/ * DEBUG*/ 

elog (3, "change u.c.: build var list returned NULL"); 
return; 

) 

while { temp_list ) 

l 

/•DEBUG*/ 

elog (3, "changing use count for %s", temp_list->var_name) ; 

/* 

* determine scope of variable 
V 

local » is_local (temp_l ist->var_name) ; 
if { local & GLOBAL__VAR ) 
scope -1; 
else scope = 0; 

if { entry - (struct symbol_entry *) lookup_symbol (scope ? NULL : 
ElementFlle, temp list->var_name) ) 
t 

if ( incr_decr ) 

1 - increment_symbol_use_count ( scope ? NULL : ElementFlle, 
temp_llst->var_name ); 

else i - decrement_symbol_use_count ( scope ? NULL ; ElementFlle, 
temp_list->var_name ); 

I 

else 

i • 

elog (3, "can' t find %s %s\n", scope ? “global" : "local", temp_l lst->var_name) ; 


*tcmp_l 1 st ; 
•entry; 

1, local, scope; 




/ 


< > 


MODULE NAME: dupeO 

MODULE FUNCTION: 

This routine returns true if the first name on the parameter list is duplicated 
elsewhere in the list. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


1 nt dupe ( list } 

struct list_elem “list; 

i 

struct list_elem *temp_list; 
char name(20); 

strcpy( name, 1 i st ->var_name ); 

temp_list - (struct list_elem *) llst->next; 

while ( temp_l 1st ) 

{ 

if { ! stremp (temp_llst->var_name, name) ) 
return ( 1 ); 

temp__llst - (struct llst_elem •) temp_list->next ; 

} 

return! 0 ); 

I 


MODULE NAME: ed lt_var_l ist () 


MODULE FUNCTION: 

This routine Is called when a symbol has been edited; it increments the use 
counts of the variables in the new version, decrements them in the old. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int edit_var_l i st ( oldstr, newstr ) 
char *old_str, *new__str; 

{ 

elog(3," edit var list: incrementing use count for string %s \n", new_str>; 
change_list_use_count ( NULL, new_str, 1 ); 

elog(3," edit var list: decrementing use count for string %s \n", old_str); 
change_list_use_count ( NULL, old_str, 0 ); 
check all vars () ; 

) 



/ft************************************* * *< — -__>* * ************************************** 

* MODULE NAME: get_type_f rom_name 0 

* MODULE FUNCTION: 

* This routine converts the string representation of a type to a value. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 




/********************************♦****** *< > * ************************************** 

* MODULE NAME: ls_2ocal {) 

* MODULE FUNCTION: 

* This routine uses the naming conventions to determine the scope of a variable. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

« Release 1.02 - 08/28/91 

* . ..< >« * 


lnt get_type_from_name ( temp_type ) 


char 

*temp_type; 


if ( 

!strcmp(temp type, "lnt 
return! INTEGER ); 

") ) 

else 

if ( !strcmp(temp type, 
return( FLOAT ); 

-float”) ) 

else 

If ( !strcmp(temp type, 
return! UNSIGNED ); 

“unsigned” 

else 

If ( !strcmp(temp type, 
return ( DOUBLE ); 

-double”) 

else 

If ( !strcmp(temp type, 
return! SHORT ); 

-short”) ) 

else 

else 

If ( !strcmp(temp type, 
return) CHAR ) ; 

-string”) ; 


( 

user_ack ("get_type from name: unknown type”); 
return ( ERR ) ; 

) 


lnt lslocal) str ) 
char -str; 

i 

lnt attributes = 0; 

/* 

* Userdeflned functions start with FN 

*/ 

if ( (str(0] == 'F') a 

(str [I | -- 'N') tt 

(str {21 — ) 

attributes I- PROCEDURE; 
else attributes |- VARIABLE; 

/* 

* Objects start with V 

*/ 


if ( st r [0 1 -= 'V' ) 

attributes |- WS_OBJECT; 

/* 

* Workstation parameters start with WS 
*/ 


else if ( |str[0] *== 1 

'W’| 

I & & 

(str [1 1 — ‘ 

’S'] 

1 && 

(str [21 — ' 

’_*] 

1 ) 

attributes I = 

WS 

GLOBAL; 


/* 

* Globals start with GV_ 

*/ 

else if ( (str 10 J — ' G' ) St 
(str (1 ) == 'V' ) ss 
(str(2) — ) 

attributes GLOBALVAR; 

/* 

* everything except user-def funs that is not an object, ws param, 

* or global is a local. 

*/ 



else If ( attributes t VARIABLE ) 
attributes I- LOCAL_VAR; 


< > 


* 

* MODULE NAME: keyword {) 

* 

* MODULE FUNCTION: 

* 

* This routine determines it the word extracted by the scanner Is a keyword. 


* REVISION HISTORY : 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

........................................ c .../ 

Int keyword ( name ) 
char “name; 

( 

lnt 1; 

/* 

* If we find the parameter In the keywords array, return true, else false. 

*/ 

for ( 1-0; l<NUM_KEYWORDS; 1++ ) 

If ( I strcmp (keywords | 1 | , name) ) 
return ( 1 ) ; 

return! 0 ) >* 

1 


/* 

* everything that Is not a local Is also a global. 
*/ 

If ( ((attributes i I.OCAL VAR) ) 
attributes |- GLOBALVAR; 

return! attributes ); 


/* ********** * * * *********** ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft A ************** * * | / 

* MODULE NAME: look_on_last_list () 

* MODULE FUNCTION: 

* This routine checks the list of most recently deleted variables for the 

* parameter name. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

...**«*.*....*».*....,*****«< >****«**.*•*••*«**»•*******«**•****•**»*«/ 

int look_on_last_list ( str, local ) 

char *str; 

int local; 


a************ * * < > * ************************************* 

* MODULE NAME: resetunknownpopup () 

* 

* MODULE FUNCTION: 

* This routine 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.02 - 08/28/91 

«ft*ft**ft*****«ft*ftftft*********ft************< >**M***»***t*««*»*»»*»M»*****0»****i>* 

int reset_unknown_popup () 

( 

int i; 

XmSt ring tcs = XmSt ringLtoRCreate ( NULLS, XmSTRING_DEFAULT_CHARSET ); 

Arg args(l); 


struct llst_elem ‘temp - last_list; 
int scope; 

while ( temp ) 

{ 

/* 

* go through list of most recently deleted vars; find the parameter 

* and increment its use count 
*/ 

if ( ! st rcmp (temp->var_name, str) ) 
i 

if ( local & LOCAL_VAR ) 
scope =0; 
else scope = 1; 


/* 

* add var back into symbol table. 

*/ 

if { (add_symbol_ent ry ( scope ? NULL : Element File, temp->var_name, 
temp->var_type, temp->rows, temp->cols) ) !** SUCCESS ) 

{ 

user_ack ("look on last list: add local symbol entry failed"); 
exit { ERR ) ; 

) 

elog (3, " look on last list: added sym %s with type %l\n", 
temp->var_name, temp->var_type) ; 

increment_symbol_use_count ( scope ? NULL : ElementFile, temp->var_name) ; 
return; 

) 

el se 

temp = (struct list_elem *) temp->next; 

1 

elog (3, "never found symbol %s on last list", str); 


for ( i=0; i < MAX_UNDECLAREDS; i++ ) 

{ 

XtManageChild ( tglunknowntypename ( i 1 ); 
XtManageChild { lblunknown typename [ i } ); 

Xt Set Arg ( args(O), XmNlabelString, tcs ); 
XtSetValues( lbl_unknown_type_name [ i ) , args, 1 ); 
) 

XmSt ringFree ( tcs ); 


Xt Unma nageCh i 1 d ( 
XmTextSetString ( 
XmTextSetString ( 
XmTextSetString ( 
XmTextSetString ( 


dlg_unknown_type ); 
txt jnatnumrows, NULLS ) ; 
txt_mat_numcols, NULLS ); 
txt_mat_dim3, NULLS ); 
t xt_mat_dim4, NULLS ); 


91/08/29 




MODULE NAME: set last var llst() 


MODULE FUNCTION: 



This routine sets the list of most recently deleted variables to be the 
parameter list. 


REVISION HISTORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt set_last_var_llst ( str ) 
char *str; 

I 

/* 

“ retain list of most rccenLly deleted vacs In case ot untit). 
V 

If ( last_llst ) 

destroy _var_llst ( last_llst >; 
last list * bulld var list( str, ElementFlle ); 

) 
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>***************** 

* MODULE NAME: settypestring {) 

* MODULE FUNCTION: 

* This routine sets the type string in the "unknown type" popup 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* * / 

int set_type_string ( matrix ) 
int matrix; 

{ 

XmString tcs; 

Arg args[2); 

char temp (SO); 

if 1 lastselectedtype < 0 ) 

/* 

* user has not yet selected a type. 

*/ 

return ( 0 ) ; 
if ( 'matrix ) 

I 


/* 

* if they're not there, assign defaults to numrows and cols 
V 

strcpy( temp, XmTextGetString (txt_mat_numrows) ) ; 
if ( l temp (0 | ) 

XmTextSetSt ring ( txt_mat_nurnrows, "2" ); 
strcpy( temp, XmTextGetString (txt_mat_numcols) ); 
if (! temp[0J ) 

XmTextSetString ( txt_mat_numcols, "2" ); 
strcpy( temp, "matrix " ); 

strcat ( temp, XmTextGetString (txt_mat_numrows) ); 
strcat ( temp, " x • ); 

strcat ( temp, XmTextGetString (txt_mat_numcols) ); 

/* 

* if they've been specified, add 3rd and 4th dims to string. 

*/ 

if { atoi (XmTextGetString (txt_mat_dlm3) ) ) 

1 

strcat ( temp, " x " ); 

strcat ( temp, XmTextGetString (txt_mat_dlm3) ); 

) 

if ( atoi (XmTextGetString (txt_mat_dim4 ) ) ) 

{ 

strcat ( temp, " x ■ ); 





strcat ( temp, XmTextGetString (txt_mat_dlm4) ) ,- 

) 


strcat ( temp, " of " ) ; 

strcat ( temp, type_choi ces ( last_selected_type ] ) ; 

I 

else strcpy( temp, type_cholces [ last_selected_t ype | ); 
/* 

* replace string next to variable name with new type. 

*/ 


tcs - XmSt ringLtoRC reate { temp, XmSTRING_DEFAULT_CHARSET ) ; 
XtSetArg( args[01, XmNlabelStrlng, tcs ); 

XtSetValues( lbl_unknown_type_name [ last_selected_name 1, args, 1); 
XmStringFree ( tcs ); 
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FILE NAME: var_list.h 

FILE FUNCTION: 

This file contains the global variables and function prototypes for var_list.c 


varjist.h 


SPECIFICATION DOCUMENTS: 

/home/pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 
N/A 


/* 

* This structure is used during the building of a list of variables which are 

* contained in an expression. 

•/ 

struct list_elem 
i 


lnt. 

var_type; 

char 

*var_name 

lnt 

rows, 


cols; 

struct llst_elem 

♦next; 


I; 


/• 

* Function prototypes for var_list.c 
*/ 

struct llst_elem *build_var_list {) »* 

void dest roy_var_list () ; 






widgets.h 

/****** ********************************* *< >** ************************************** 

* 

* FILE NAME: widgets.h 

* 

* FILE FUNCTION: 

* This file contains the all the widget declarations for the Comp Builder. Most 

* widget names use the following convention: 



dlg_help, dlg_dis_status, dlg_logic_attrlbs, dlg_def_fn, dlg_logic_type, 
dlg_var_type, dlg_other_input, dlg_displayer, dlgselroot, 
dlg_unknown_type, dlg_str_input, dlgstart, 

eq_btn, 

frame_call, f rame_math_menu, frame_sym, frame_palette, frame_mbar, 
frame_status, frame_cancel f frame_WA, f rame_matr ix_menu, f ramet rigmenu. 


liiiiiii 

flip* 


btn_ 

- push but. ton/command 

button widget 

dlg__ 

- dialog 

widget, Ui 

;ually popup dialog 

frm 

- form 

widget 


lbl_ 

- lable 

widget 


pix_ 

- pixmap 

widget 


sep_ 

- separator 

widget 


txt_ 

- text edit 

widget 



This file also contains the function prototypes for the widget creation "helper" 
routines . 


SPECIFICATION DOCUMENTS: 

/home /pro ject/3531/Docu/GCB. spec.doc 


f rm math menu, frm status, frm WA, f rm cancel, frm sym, 

Irm logic, Irmask, frm_maln, Irmack, frm_mbar, Irmjnatrixjnorm, 
frm_def_fn, frm_other_input , frm_var_type, f rm_t rig_menu, 

Iblcallheader, lbl_ack, lbl_text_header, lbl_color_header, lbi_ask / 

lblvalfuncpath, lbl_cre_pos_ne, lbl_cre_pos_ppath, lbl_start_hdr, 

lbl_var_input_header, lbl_tl_header, lbl_sel_pos_pat h, 

lbl_file, lbl_val_pname, lbl_val_cname, lbl_va l_ename, lbl_val_cwd, 

lbl_val_err f i le, lbl_val_iib_path, lbl_val jnac_path, lbl_val_msid, 

lbl valwsglob, lbl_val_snap, lbl_val_audit, lbl_va l_language, lbl_val_user, 

lblvaltype, lblvalt ime, lblval date, lblvalcf low, 

list elem, 1 1 st_del_elem, ] i st_sel _e lem, 1 ist_se l_comp, ] 1 st_sol_pos, 
listselpos, list _sel_root, list_comp, 

Lmenu_popup, Rmenu_popup, menu_pane, menu_pul 1 rite, menu_pul 1 r ite2, menu_item, 


FILE MODULES: 
N/A 



/* 

* GCB high level widgets - main form, main window, and others. 
V 

Display ‘display; 


pix_help, 

rb_del_elem, rb_cre_elem, rb_t l_select , rb_purpose, 

rc color, rb_sel_elem, rb_prlnt_elem, rb_copy_elem, rc_pause_num, rc_pos, 
rbcall, rb color, rb_sym_sl 2 e, rb_font_sl ze, rb_var_type, rb_isit_mat, 
r b_u nk nown t ype_name , rb_u nk nown_t ype t y pe , r b_u nk nown_i s 1 t_ma t , 

rc_pause_uni ts, rc_help, rc_loglc, rc_var, rc_math, rc_oper, rc_mat hmenu, 
rcpalette, rc_rel, rc_color_iname, rc_color_t emplate, rc_def_fn, rc_expr_num, 
rcmat, rctrig, 

scr_cre_comp, scrWA, scr_comment, scr_help, scr_logic, screxpr, scr_text, 
scrcreelem, scrpurpose, scr_var_lnput , scr_displayer, 


XtAppContext app_context ; 


sampleSymbol , selbxdef f n, selbx var_type. 


Widget f rm_container, 

mnb_maln, 
top, 

win_main; 

/* 

* Popup widgets and main screen widgets.. 

*/ 

Widget CancelW, DoneW, FormW, HelpW, BtnW, ResetW, 
bboard, btn_cancel, 

btn_color_template, btn_ask_y, btn_ask_n, btn_ask_h, 
btn_cre_pos_show, btn_logic_at tribs, btn_logic_parse, 

cascade, 

draw_area, 

dlg_help, dlg_logic, dlg_call, dlg_pause, dlg_copy_elem, 
dlg_text, dlg_color, dlgask, dlg_ack, dlgjpurpose, dlg_sel_comp, 
dlg_sel_elem, dlg_cre_elem, dlg_cre_comp, dlg_sel_comp, dlg_print_elem, 
dlg_del_elem, dlg_cre_pos, dlg_sel_pos, dlg_tl_select, dlg_var_input , dlg_file. 


tgl_comp, tgl_element, tgl_call_ce, tgl_call_le, 

tgl_color_back , tgl_color_fore, tgl_sel_elem_le, tgl_sel_elem_ce, 
tglcreelemle, tgl_del_elem_le, tgl_del_elem_ce, tgl_cre_elem_ce, 
tgl_print_elem_red, tgl_print_elem_norm, tgl_language_c, tgl_language_moal, 
tgl_language_uil , tgl_copy_elem ce, tgl_copy_elem_le, tglsymsi ze sm, 
tglsymsi zelg, tgl_font_size_lg, tgl_font_si ze_sm, tgl_var_type_int, 
tgl_var_type_double, tgi_var_type_real , tgl_var_type_string, 
tgl_var_type_unsigned, tgl_var_type_short, tgl_is_mat, tgl_lsnt_mat , 
tgl_unknown_type_int , tgl_unknown_type_f loat , t gl_unknown_type_double, 
tgl unknowntypeshort , tgl_unknown_type_unsigned, tgl_unknown_type_string, 
tgl_unknown_is_mat , tgl_unknown_isnt_mat, 

txt_author, txt_comp, txt_created, txt__element , txt_call_ne, txt_start, 
txt_print_elem_nc, txt_pause_value, txt_last_update, txt_mode, txt_posit ion, 
txt_purpose, txt^status, txt_cre_elem_ne, txt_cre_comp_name, txt_del_el, 
txt_cre_comp_re_name, txt_cre_pos_ppath, txt creposne, txt_sel_pos, 
txt_cre_pos_nd, txt_copy_elem_ne, txt_file, h_scroll, txt_sel_root , 
txt_matdim_x, txt_matdim_y , txt_matdim_3 , txt_matdim_4 , txt_mateim 3, 
txt_matelm_4 , txt_str__input, txt_matelm_x, txt_matelm__y, txt_var_name, 
txt_mat_numrows, txt_mat_numcols, txt_mat_dim3, txt_mat_dim4 , txt_def_fn, 
txt_print_elem_pname, 





PRECEDING PAGE BLANK NOT FILMED 


lit?!; 


widgets.h 


v_scroll, h rule, vrule; 


* Various widget arrays. 


Widget helpl6|, 

lbl_unknown_type_name(S) , 
menu_llst (7) , 
symbol s (MAX_SYMBOLS | , 
tgl_unknown type name|5|, 
w(41); 

Widget symbol; 


* Function prototypes for widget creation “helper" routines. 

•/ 


Ncr_command ( ) , 
Ncr_rel_cmd() , 
Ncr_toggle () , 
cr_cascade () , 
cr_command () , 
cr_form 0 , 
cr frame () , 
cr_label () , 
cr_Ust () , 
cr_plxmap<) , 
cr popupo , 
cr_pulldown(), 
cr_radlo_box () , 
cr_rel_cmd () , 
cr_rowcol () , 
cr_scr_text () , 
cr separator () , 
cr_text () , 
cr_toggle() ; 


/* Ncr_* routines are temporary replacements for cr_* */ 
/* routines. The Ncr_* versions accept XtCallbackProcs •/ 
/* Instead of XtCallback lists. */ 


j l i 1/08/29 ' | 
10:15:16 


* define 

# define 

• define 

# define 
f define 

# define 
ff define 
I define 

# define 

# define 

• define 

• define 

• define 

• define 
I define 
I define 

• define 
I define 

# define 
I define 
I define 

# define 

• define 

• define 
I define 

• define 
I define 
f define 
I define 
I define 
» define 
f define 
f define 
I define 
f define 
I define 
I define 
I define 

# define 


L_PERIN 257 
R_PERIN 258 
REL_OPER 259 
ID 260 
WSID 261 
OBID 262 
MUL 263 
DIV 264 
SIGN 265 
FIXED_FUNC 266 
USERFUNC 267 
STRING 268 
POWER 269 
PERIOD 270 
COMMA 271 
LOG_OPER 272 
NOT 273 

UNSIGNED_REAL 274 
UNSIGNED_HEX 275 
CJNSIGNED_INT 276 
SET EQ 277 
EQEQ 278 
MATRI X_OPER 279 
L BRACK 280 
RBRACK 281 
MADD 282 
MSUB 283 
MMULT 284 
IDENT 285 
INVERS 286 
TRANSP 207 
CROSS 288 
DOT 289 
PI 290 

BIT_OPER 291 
SHIFT 292 
ADD 293 
MINUS 294 
UNARY 295 


y.tab.h 



'term L_PERIN R_PERIN REL_OPER ID WSID OBID MUL DIV SIGN FIXED FUNC USER FUNC STRING P 
OWER 

'term PERIOD COMMA LOC_OPER NOT UNSIGNED_REAL UNSIGNED_HEX UNSIGNED_INT SET_EQ EQEQ 

'term MATRIX_OPER L_BRACK R BRACK MADD MSUB MMULT IDENT INVERS TRANSP CROSS DOT PI operator 

'term BIT_OPER SHIFT 

'left ADD MINUS 

'left MUL DIV 

'left BITOPER SHIFT add op 

'right UNARY - 

" 


expr 


set_expr 


set_expr_expr 


sut_cxpr_rhs 


1 f_expr 


slmple_expr 


shl f t_expr 


I 


I 


l 

I 

I 


/* expression must 

match symbol type • 

/ 

lf_expr 

1 

if { SetSym ) 

i 



parse error value - SYNTAX ERR; 


YYERROR; 

) 


set_expr 

) 

i if ( ! SetSym ) 

i 



parse error value - SYNTAX ERR; 


YYERROR; 

1 

1 


identifier 

1 set_state(7, 1); 

1 

SET_EQ 

( WhereAmI ~ RHS; 

set stated, 1); 1 

set_expr_rhs 

1 stable state - 1 

; 1 

identifier 

( 1 


matrixaccess 

1 set_state(7, 1); 

1 

SETJSQ 

( WhereAmI - RHS; 

set stated, 1); 1 

set_expr_expr 

1 stable_state - 1 

; 1 

slmple_expr 

1 set_state (2, I) ; 

1 

simplc_expr 

1 set_stato (1 6, 1 ) ; 

1 

matrix 
shi ft_expr 

1 set_state (16, I) 

; 1 

simple expr 

( set state (10, 0) 

; 1 

rel_oper 

( WhereAmI=RHS; set state(5, 1); } 

simple_expr 

I set_state(2, 0); 

stable state - 1; ) 

simple expr 

{ set state(10, 0) , 

r 1 

EQEQ 

( WhereAml-RHS; set state(5, 1); | 

slmple_expr 

{ set_state{2, 0); 

stable state *= 1; } 

if expr 

{ set state (9, 0); 

I 

log_oper 

{ WhereAml-LHS; set state (5,1); 1 

1 f_expr 

( set_state(9, 0); 

stable state - 1; | 

terminator 

( set_state(2, 0); 

1 

simple_expr 

( set statelll, 0) 

; 1 

operator 

I ) 


terminator 

( set_state(2, 0); 

1 

simple expr 

( set_state(ll, 0 ) , 

r 1 

SHIFT 

( set_state (23, 1); 

; save_operator ( SHIFT_OPER ); 


mul_op 


matrix 


matrixaccess 


vectoraccess 


double 


triple 


matrlxoper 


terminator 


factor 


shift_value 

{ lnit_inputs( 

-3 

); ) 


add_op 

( ) 




mul_op 

( ) 




ADD 

| set_state (5, 

l); 

save__operator ( 

ADD OPER ) ; } 

MINUS 

1 set_state(5. 

l); 

save operator ( 

MI NUS_OPER ); 

BIT_OPER 

( set_state (5, 

l); 

1 


MUL 

( set_state (5, 

l); 

save_operator ( 

MULT OPER ) ; 

DIV 

( set_state(5, 

l); 

saveoperator ( 

DIVJ3PER ); I 


(actor 

IDENT 

INVERS 

identifier 

TRANSP identifier 

identifier 

matrlxoper 

identifier 




1 

save_operator ( IDENT_OPER ); 

} 


save_operator (INVER_OPER) ; ) 
save_operator ( TRANS_OPER ); 


1 

) 

1 


I 

) 


: vectoraccess 

| double 
| triple 
| triple 

vectoraccess 


1 process_matrix_dimensions 0 ; ) 
{ processmatrixdimenslons {) ; 1 
l processmatrixdlmensions O ; \ 
[ ) 

l processjnatrlx_dlmenslons () ; 1 


L_BRACK { set_bracket 0 ; I 

UNSIGN ED_INT 
R BRACK l ) 


vectoraccess 

vectoraccess 


( I 

i ) 


double 

vectoraccess 


I ) 
I i 


MADD 

MSUB 

MMULT 

CROSS 

DOT 


{ save_operator { MADD_OPER ); } 

{ save_operator ( MMINUS_OPER ); | 
| save_operator ( MMU LT_OPER ); | 

{ save_operator ( CROSS_OPER ); } 

| save_operator ( DOT_OPER ); ) 


factor 

factor 

matrixaccess 


( set_state{2, 0); ) 
[ set__state (2, 0); ) 


NOT 

factor 

functioned 

LPERIN 

simpleexpr 

R PERIN 


{ set_state (5 # 1 ) ; ) 

| set__state (2, 0 ) ; | 

{ set_state(2 # 0); | 

{ paren_count++; set_state<5, 1); 1 
( set_state{l, 0); ) 

1 parencount — ; set_state(2, 1); 1 


PRECEDING PAGE BLANK NOT FILMED 
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UNSIGNED_INT 

sign 

( set_state(2, 

( set_state(12, 

1) ; save type ( 
r 1); ) 

INTEGER ) ; } 

identi tier 


ID 

UNSIGNED INT 

( set_state(2. 

1); save type { 

INTEGER ); } 


i 

WSID 

UNSIGNED_REAL 

( set_state(2. 

1); savetype ( 

FLOAT ); } 


i 

OBID 

sign 

UNSIGNED_REAL 

( setstate (12, 
( set state(2. 

rl);l 

1 ) ; save type ( 

FLOAT ); ) 

string 


STRING 

UNSIGNED_HEX 

1 set_state(2. 

1); save type ( 

INTEGER ) ; ) 


• 




I sign 

UNSICNF.DJ1EX 
I string 

| identifier 
1 PI 

• 

function_ld 

: FIXED_FUNC 

N ); 1 

L_PERIN 

FF >; t 

pa ram 
R_PERIN 

| POWER 

N ); ) 

L_PERIN 

F ); ) 

pa rams 
R_PERIN 

| USERFUNC 

N ); | 

L_PERIN 

F ); 1 

param_list 

R_PERIN 

shift value 

: pa ram 

I USER_FUNC 

N ); 1 

L_PERIN 


. param_list 
R PERIN 


f ); 1 


I setstate (1 2, 1); | 

I set_state(2, 1); savetypo ( INTEGER ); I 
I set_state(2, 1); savetype ( CHAR ); ) 

( setstate (20, 1); ) 

( setstate (20, 1); ) 


( set_state (13, 1); 

setfunctype ( GCB DEFINED ); 1 
( paren_count++; setstate (19, 1); func_state( 0 

( set_state (18, 1); | 

1 paren_count — ; set_state(2, 1); func_state( O 

( set_state (13, 1); 

set_func_type ( GCBDEFINED ); | 

( paren_count++; setstate (1 9, 1); funcstatef O 

( set_state(14, 1); | 

( parencount--; sec_state(2, 1) ; func_state ( OF 

{ set_state (13, 1); 

set_func_type ( USER DEFINED ) ; ) 

( paren_count++; set_state (1 5, 1); func_state( O 


1 paren_count--; set_state(2, 1); func_state( OF 


( I 

( set_state(13, 1) ; 

setfunctype ( USERDEFINED ); | 

( paren_count++; setstate (15, 1); func_state( 0 


I pa ren_count--; set_state(2, 1 1 ; func state ( OF 


sign : MINUS %prec UNARY ( ) 


1 % 

/* 

* COTS Include files. 

*/ 

llnclude <stdio.h> 

/* 

* Custom Include files. 

*/ 

•include "symbol. h" 

•include “gcbparse.h" 

/* 

* Local defines. 

*/ 

•define MAXERROR 1024 

•define MAXPARSEDATA 1024 

extern char *yytext; 
extern char parse_error_message [ 1 ; 
extern char *parse_data_ptr; 
extern int parse_error_value; 


yywrap () 

I 

parse_error_value * END_OF_FILE; 
return 1 ,- 

1 


pa ram list 


1 set 

state (21 , 

l); 1 

1 

/* 




1 pa rams 

( set 

state (14, 

0); ) 

* Function yyerror is called from the YACC generated 

* encountered during the parsing process. 

* / 

source code when an 

error is 

pa rams 

: pa rams 

( set 

state (14 , 

0); | 

/ 




COMMA 

( set 

state (15, 

l); I 

yyerror { err message ) 




pa rams 

( set 

_state(14. 

01; ) 

char *err message; 




| pa ram 

» 

( set 

state (14, 

X); 1 

( 

if ( pa rseerro revalue != END_OF_FILE) 



pa ram 

: identifier 

1 1 



( 

sprint f (pa rseerrormessage, "%sSyntax error in 

express lon\n" , parse_ 

errormessage) 


| UNSIGNED_INT 
| UNSIGNED REAL 

1 1 
( I 



# 

parse error value = SYNTAX ERR; 




| UNSIGNED_HEX 

1 > 



} 




; 




} /* of function */ 




SiV .9lM/29 
; Kkt$:l$ 



» 


yacc.src 


/* 

* 

on 

* 

he 


Function parse_expression Is Invoked when an expression is to be parsed. The functi } 
Is passed a character string pointer which points to the expression to be parsed. T 
function returns the following values: 


PARSE_SUCCESS 
NOJ>ARSE_MEMORY (01): 
UNDECLARED (02): 

SYNTAX_ERR (04): 


(00) : Success 

Insufficient storage for parse string 
Indicates an undeclared variable 
Indicates a syntax error In the expression 


* the global variable **parse_error_message" can be accessed for more informative human 

* Interpretable diagnostics. 

•/ 

lnt parse_expresslon ( expression ) 
char ‘expression? 

( 

char local_data ( MAX_ PARSE DATA |; 
lnt i; 

If (expression) 

{ 

/* 

* Initialize the error variables. 

*/ 


return ( parse_error_value ) 
/• of function */ 


parse_error_value - PARSESUCCESS; 
parse_error_messagel 0 ) - NULL; 
stable_state - 0; 


/* 

* Copy the data to local storage (because the parsing routine will change the 

* data) and initialize the data pointer to point to the data. 

•/ 


If ( ( strlen( expression ) + 1 ) > MAX_PARSE_DATA ) 
return ( NO_PARSE_MEMORY ); 

strcpy( local_data, expression ); 
parse_data_ptr - local_data; 

\ 

else 

1 

stable_state « 1; 
return~£ND_OF_FI LE; 

) 


/* 

* Invoke the parsing routine and return any diagnostic values. 
V 

paren_count - 0; 

WhereAmI - LHS; 
yyparse () ? 

if ( (parse_error_value — END_OF_FJ LE) && (stablestate) ) 
parse_error_value - PARSE_SUCCESS; 



.preceding page blank 



p 0® il 


/ft************************************** • < > A******************************** 

* 

* FILE NAME: call_flow.h 

* 

* FILE FUNCTION: 

* 

* This file contains the structure, variable, and function definitions for the 

* Display Comp Call Flow function. 

* 

* 

* SPECIFICATION DOCUMENTS: 

* 

* /home /pro ject /3531 /Docu/GCB. spec.doc 

* 

* FILE MODULES: 

* 

* N/A 


calljlow.h 


Call Flow constants. 


•define CLEARED 99 

•define NOT CLEARED 100 


* Linked list node definition and pointer declarations. 

*/ 

struct node 
( 


struct 

node *child f 

/* 

pointer to first child element 

*/ 

int 

♦next; 

/* 

next element pointer (sibling or parent) 

*/ 

processed; 

/* 

flag used during printing and freed 'ing 

*/ 

char 

name [MAX NAME J , 

/* 

element name 

•/ 

1; 

typo; 

/* 

comp or library element 

*/ 


struct node *curtPtr, 
♦nextPtr, 
♦parentPtr, 
♦prevptr, 
♦rootPtr; 


* Function prototypes. 
*/ 


free_node_list 0 , 
indent () , 

print_node_list {) ; 


void 



FILE NAME; cbr.h 
FILE FUNCTION; 

This tile contains many of the the callback function prototypes for the 
Graphical Comp Builder. These prototypes are needed during the building of 
the MOTIF menus and buttons. 

This file also contains several program constants that relate to MOTIF menus 
and their current state. 

FILE MODULES: 

N/A 

* >'* 


/ 


Idefine CBR_LANG_APPLY 1 

• define CBR_LANG__RESET 2 
Idefine CBR_LANG__S ELECT 3 

•define CBR^COMP TYPE 0 

•define CBR~COMP~TYPE DONE 1 

• define CBR_COMP JTYPEJTANCEL 2 

/• 

* Callback routine function prototypes. 

V 


XtCallbackProc cbr_att r ibs_done () , 
cbr audi t {) , 
cbr ;iu<ll( on () , 
cbt__bu i U1 O , 
cbr_cal 1__£ 1 ow { ) , 
cbr_cal l_cgl () , 
cbr_cancel () , 
cbr_canvas {) , 
cbr_c!ear_popup ( ) , 
cbr_color_choice () , 
cbr_color_done () , 
cbr_color_menu () , 
cbr_color_sym_choi ce 0 , 
cbr_copy_element () , 
cbr__create_elem_copy () , 
cbr_cre_comp {) , 
cbr_cre_el em {) , 
cbr_cre_pos ( ) , 
cbr_done ( ) , 
cbr_elem_popup () , 
cbr_el_delete {) , 
cbr_el_selected () , 
cbr_enter_canvas 0 , 
cbr__exi t () , 
cbr_expose () , 
cbr_expr_l nput () , 
cbr_help () , 




cbr help area () , 
cbr_language 0 , 
cbr_language_menu () , 
cbr_motion_canvas () , 
cbr_new_element () , 
cbr new posi t ion () , 
cbrparse () , 
cbr pause units () , 
cbr_pause_va lue () , 
cbrprint { ) , 
cbr_print_comp 0 , 
cbr purpose { ) , 
cbr_rule_expose () , 
cbr_root_elem () , 
cbr_sav_element ( ) , 
cbr_scroll_expose {) , 
cbr_sel_comp () , 
cbr_sel_elem () , 
cbr sel pos {) , 
cbr_set_sym _di splay () , 
cbr show_status ( ) , 
cbr_snap () , 
cbr_symbol (} , 
cbr_symbol_move ( ) , 
cbr text proc {) , 
cbr tgl purpose ( ) , 
cbr_va 1 i date (} , 
cbr var type done () ; 


'PRECEDING PAGE BLANX NOT FILMED 




•Include <stdlo.h> 

•include <X11/Intrinslc. h> 
•include <Xm/Xm.h> 

•Include "gcb.h" 

•Include “constant s . h" 
•Include “widgets. h“ 
•Include "menu.h" 

•Include “symbol. h“ 
•Include “gcb_parse. h“ 
•Include “lines. h" 

•Include "cursors. h“ 

static int last_chosen; 


If ( Mode -- AddSymbol ) 

1 

/* 

* Loop through the array of symbol pointers until we find the symbol 

* the user was working on, then destroy the symbol the user was working 

* on. Mark the symbol array pointer as unused. 

*/ 

for ( 1*0; KMAXSYMBOLS; 1 + + ) 

If ( symbols [11 — current_symbol ) 

I 

/‘DEBUG*/ 

elog (3, “cancel ling draw: unmapplng symbol* %i“, 1) ; 

XtUnmapWldget ( currentsymbol ); 

XtUnrealizeWidget ( current_symbol ) ; 

symbols! 1) ” NULL; 

break; 

) 

) 

/* 

* Take down the window, reset to Edit mode, and update the status Indicator 

* to reflect the change back to Edit mode. 

*/ 

popdown ( last_chosen ); 

Mode = EdltSymbol; 
upd_mode_panel () ; 



PRECEDING PAGE BLAMK WOT FILMED 
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cbr_cance|.c 


! p»^ v - 
• 

; I r - - 
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MODULE NAME: cbr_cancel {) 

MODULE FUNCTION: 

This routine handles events when the user pushes the CANCEL button which is 
found in the status area. The CANCEL button allows the user to cancel most 
any operation, including Work Area edits, expression building, etc. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*•***•«*«*. .A************************ * *< >* * ft****************************** 

XtCal 1 backProc cbr^cancel ( w, closure, call data } 

Widget w; 

i n t closure; 

caddr t call_data; 


Arg args ( 1 J ; 
lnt type; 

i t (closure — FILE OK) 
I 


* bring down the help popup; reset the mode if necessary. 


if (Mode Help) 

( 

Mode - Ed it Symbol; 
upd mode_panel () ; 

) 

XtSetArg( args(0j, XmNdialogStyle, XmD I A L0G_AP P L I CAT ION_MODA L ); 
XtSetValues( dlg_file, args, 1 ); 

XtUnmanageChild ( dlg_flle ); 

\ . i 


* User wants to abort from selecting a User defined function for insertion 

* into an expression. 


else if (closure DEF_FN_CANCEL) 
XtUnmanageChild ( dlgjdef fn ); 


* User wants to abort the Help selector/displayer. 
*/ 

else if (closure »« HELP_JIELP_CANCEL) 

XtUnmanageChild ( dlg__help ); 


* User wants to abort while in the middle of adding a new symbol. 


else if (Mode *== AddSymbol) 

{ 

XtSetArg( args[0], XmNuserData, stype ); 
XtGetValues( currentsymbol, args, 1 ); 
if ( (type — IF) || (type — SET) ) 
cancel var_list( exprtext ); 
cancel draw () ; 

) 


If the matrix functions menu is up, take it down and redisplay the 
math/logical s menu. 


else if ( Mode -- MatrixMenu ) 

{ 

XtUnmapWldget ( f rame jnat rix_menu ); 
XtMapWidget ( f rame_math_menu ); 

Mode » OldMode; 

} 


* It the trigonometric functions menu is up, take it down and redisplay the 

* math/logicals menu. 

•/ 

else if ( Mode *■ TrigMenu ) 

{ 

XtUnmapWldget. ( frame trlg menu ); 

XtMapWidget ( C i amejnat h_menu ); 

Mode = OldMode; 

1 

/* 

* User wants to abort while in the middle of line draw. 

V 

else it ( Mode *•-» LinoDraw ) 

{ 


* Clear the line that is being drawn and restore the mode and cursor, the 

* cursor is changed to a cross-hair during line draw. 

V 

if ( LDendX != -1 ) 
clear_li ne () ; 
cancel_line () ; 

Mode « Ed it Symbol; 

XDef ineCursor ( display, XtWindow (draw__area) , basic_cursor ); 
upd_mode_panei () ; 

1 


* User wants to abort while In the middle of a "right-button" edit. 
*/ 

else if ( Mode -= EditSymbolContents ) 

i 





* delete variables Introduced during edit; popdown proper window 

•/ 

XtSetArgl args[0), XmNuserData, (type ) ; 

XtGetValues( current_symbol, args, 1 ); 

If ( (type — IF) | | (type — SET) ) 
cancel_var_llst ( ); 

XtSetArgl args(0], XmNuserData, (type ); 

XtGetValues( current_symbol, args, 1 ); 
popdown( type ); 

Mode - EdltSymbol; 

1 


j * * * * ft ft ft * ft ****************** • ***** ft ****** * * * Ik * * * * Ik * * * fc * * * * 

* MODULE NAME: invert () 

* MODULE FUNCTION: 

* This routine records the most recently selected palette item. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 


/* 

* See if the user was in the middle of doing something with a rubber-banded box. 
V 


a************************************* *< ->* ************************************•**/ 


void invert ( item ) 


else if ( ( Mode =» 
( Mode -- 
( Mode - - 
( Mode 
{ Mode 
{ Mode — 
( Mode ” 
( Mode -- 
( Mode -• 
{ Mode -- 


StretchPrintBox ) 
St ret chDeleteBox) 
St retchCopyBox) 

St retchMoveBox) 
PrintBox ) 

Copy Box ) 

MoveBox ) 
GhostCopyBox ) 
GhostMoveBox ) 
DeleteBox) ) 


( 


int item; 


( 

last_chosen - item; 

} 


/* 

* erase box drawn so far; restore mode and cursor 

*/ 


if ( ( Mode =“ StretchPrintBox ) | | 

( Mode — StretchCopyBox ) | | 

( Mode -- StretchMoveBox ) | | 

( Mode — GhostCopyBox ) | | 

( Mode »«■ GhostMoveBox ) | | 

( Mode Stret chDeleteBox) ) 

draw_ghost ( FALSE, BStartx, BStarty, 0, 0 ); 

Mode - EdltSymbol; 
upd_mode_panel () ; 

XDef ineCursor ( display, XtWindow (draw_area) , basic_cursor ); 

} 


/* 

* For all other CANCEL possibilities, call undo to undo the previous operation. 
V 


else 




undo () ; 




cbr cancel. c 


MODULE NAME: popdown!) 


MODULE FUNCTION: 


This routine urunanaqes the popup corresponding to the parameter palette item type. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int popdown { symbol ) 
ini symbol; 


switch! symbol ) 
( 


• depending on the type of popup, reset the popup's text fields and 

* bring down the popup. 

*/ 

case BEGIN: 
case END: 
break; 

case IF: 
case SET: 

XmText SetString{ serologic, NULLS ); 

XraTextSetStr Jng ( scr_expr, NULLS ); 

XmTcxt SetSt ring ( scr_comment, NULLS ); 

XtUnmapWidget ( f rame_math_menu ); 

XtMapWldget ( f ramepalette ); 

XtUnmanageChild ( dlg_logic ); 
break; 

case GOTO: ! 

XmTextSetSt ring ! txt call ne, NULLS ); 

XtUnmanageChild! dlg_call ); 
break; 

case START: 
case STOP: 

XmTextSetSt ring ( txt_start, NULLS ); 

XtUnmanageChild! dlg_start >; 
break ; 

case PAUSE: 

XmTextSetStr ing ( txt_pauso_value, NULLS ); 

XtUnmanageChild! dlg_pause ); 
break; 


case TEXT: 
case PRINT: 

XmTextSetString ( scr_text, NULLS ); 
XtUnmanageChild! dlg_text ); 
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cbr_canvas.c 


********* 


* * < > * * * 





FILE NAME: cbr_canvas.c 

FILE FUNCTION: 

This file contains the routines which respond to events in the draw area. 


/*************************************** * < > ********************************** 

* 

* MODULE NAME: cbrcanvas () 

* 

* MODULE FUNCTION: 


This routine handles events when the user pushes a mouse button while in 
the work area canvas. 


FILE MODULES: 


cbr_canvas () 
cbr_enter_canvas 0 
cbr_expose () 
cbr_mot ion_canvas () 
cbr_rule_expose ( ) 
cbr_scroll_expose {) 
check_from_lines 0 
check^line () 
check_sym () 
copy_box () 
copy_symbol () 
copy_symbols 0 
copy_text_f ields () 
draw_ghost () 
get_copy_f romsource () 
handle_button_press_ca 
line_enters_box ( ) 
line_within_box (> 
move_box {) 
move_l ine ( ) 
move_llnes () 
move_ok () 

set_up_line_globals () 
s y m_ i n_o r i g_box { ) 
sym_within_box 0 
trial_move () 


- handles mouse button events in the work area canvas. 

- handles enter events In the drawing area. 

- handles events when the canvas draw area is exposed. 

- handles motion events in the drawing area. 

- handles events when the ruler bars are exposed. 

- handles expose events in the windows containing rules. 

- do moved lines entering symbol impose on line or symbol. 

- does single moved line impose on another line or symbol. 

- does a moved symbol impose on a line or another symbol. 

- checks impending copy; then copies the symbols in box 

- copies a single symbol within drawn box to new location. 

- copies all the symbols within box to their new locations 

- mallocs space for global text vars; copies text fields. 

- erases the old ghosted box and draws a new one. 

- determines the new version of a symbol 

nvas 0 - handles button press events in the canvas. 

- determines if a line ever enters the parameter box. 

- determines if a line is wholely within the parameter box 

- determines if box can be moved; then moves contents 

- moves each line segment in a line to its new location. 

- moves all lines wholely within a box to new locations 

- performs move of symbols and lines if move can be done 

- sets the globals required for a delete line operation. 

- determines if a symbol was in the original drawn box. 

- determines if a symbol is wholely within parameter box. 

- determines if the symbols and lines within box, if moved 
will impose on anything in their new locations. 

**************< > **«*. ********** ******** **************** 


/ 


(include <stdlo.h> 

(include <X11/Intrins‘ic. h> 
'include <Xm/Xm.h^ 

include "gcb.h" 

Include "cbr.h" 
include "widgets. h" 
include "lines. h" 
include "menu.h" 
include "element_fi le .h" 
include "fonts. h” 
include "cursors. h" 
include "cbr canvas. h" 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*******************•********************< >*****«*•*•* 

XtCallbackProc cbr_canvas { w, clientdata, call_data ) 

Widget w; 

caddrt client data; 

XmDrawlngAreaCal 1 backs truct *call_data; 


XEvent ‘event; 

extern int Red; 

void copy box () , move box () ; 


/•DEBUG* / 

if {( c all_data — NULL) || (call_data->event == NULL)) 

{ 

printf ("\nSomehow got into cbr_canvas with NULL ptr\n"); 
return; 

1 

event = (XEvent *) call_data->event ; 

if { SValidElement ) 

{ 

user_ack ("A valid Element has not been selected or created"); 
return; 

) 

if ( event->type -==- ButtonPress ) 

handle_button_press_canvas ( event ); 

else if ( event->type == ButtonRelease ) 

{ 

if ( (event->xbutton. button »» Button2) && (Mode == LineDraw) ) 

1 

/* 

* The line has already been drawn, so make sure the line is 

* legal. If not, remove the line, let the user know he/she 

* is stupid, and then let them draw a new line. Otherwise, 

* set a new anchor point. 

V 


if 



( valid_l ine (LDtype) ERR ) 

( 

XBell< display, 0 ); 

userack ("Invalid connector - cannot go through a symbol"); 
clear line () ; 
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set_l ine () ; 
mid_LIne () ; 

LDstartX « LDendX; 
LDstartY = LDendY; 
LDtype - MID_SEGMENT; 
) 


else if { (event->xbutton. butt on *»=* Buttonl) && ( (Mode — PrintBox) || 
{Mode DeleteBox) || (Mode — MoveBox) II (Mode »- CopyBox) ) ) 

{ 


set ulcx of bounding box and stretch mode; change cursor 


BStartx " cvent->xbutton.x; 

BStarty - event->xbut.ton .y ; 
if ( Mode PrintBox ) 

Mode “ StretchPrintBox; 
else if ( Mode -- DeleteBox ) 

Mode = StretchDeleteBox; 
else if ( Mode -- CopyBox ) 

Mode - StretchCopyBox; 
else if { Mode -» MoveBox ) 

Mode - StretchMoveBox; 

XDef ineCursor ( display, XtWlndow (draw^area) , lr_cursor ); 


draw each ghost using Rod foreground. 


XSet Foreground ( display, LDgc, colors (Red) A LDbackground ); 

) 

else If ( (event ->xbut ton. button -- Buttonl) && ( (Mode StretchPrintBox) || 
(Mode — StretchDeleteBox) | | (Mode =* = St retchCopyBox) | | 

(Mode — Stret chMoveBox) ) ) 

1 

XDef 1 neCursor ( display, XtWl ndow (draw_area) , basic_cursor ); 
if ( Mode «= StretchDeleteBox ) 


erase the last banded box 


highl ight_box ( BStartx, BStarty, old_lrcx, old_lrcy ); 
delete_box( BStartx, BStarty, old_lrcx, old__lrcy, TRUE ); 
XSetForeground ( display, LDgc, colors[Redj A LDbackground ); 
draw ghost ( FALSE, BStartx, BStarty, 0, 0 ); 

\ 

else if { Mode StretchPrintBox ) 


ask the user for print specs 


XtManagcCh i 1 d (dlg_pri nt_cl em) ; 

else if ( (Mode ==■ StretchCopyBox) | | (Mode -- StretchMoveBox) ) 



[ 

/* 

* erase the last banded box 
V 


draw_ghost ( FALSE, BStartx, BStarty, 0, 0 ); 
ghost_wldth - event->xbutton,x - BStartx; 
ghost_length « event->xbutton .y - BStarty; 
draw ghost { TRUE, event->xbutton . x, event->xbutton .y, 

event ->xbut Lon . x + ghost. width, event ->xbut. ton. y « ghost length ); 

1 

if ( Mode StretchCopyBox ) 

Mode - GhostCopyBox; 
else if ( Mode — StretchMoveBox ) 

Mode - GhostMoveBox; 
else Mode * Edit Symbol; 
upd_mode_panel () ; 

I 

if ( (event->xbutton. button -- Buttonl) && ( (Mode ■■ GhostCopyBox) || 
(Mode »■ GhostMoveBox) ) ) 

I 


/* 

* erase ghost box 
V 


drawghost ( FALSE, event->xbut ton. x, event->xbut ton . y , 

event**>xbutton.x + ghost_wldth, event ->xbutton. y + ghost_length ); 

/* 

* copy contents of box from original ulc ♦ size to current ulc « size. 

•/ 


If ( Mode GhostCopyBox ) 

copy box ( BStartx, BStarty, ghostwidt h, ghost^length, 
event->xbutton.x, event->xbutton .y ); 
else if ( Mode -- GhostMoveBox ) 

move_box ( BStartx, BStarty, ghost_width, ghost^length, 
event->xbutton.x, event->xbutton .y ); 


/* 

* restore default mode. 
*f 


Mode = Edit Symbol; 
upd_mode_panel () ; 

\ 
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/*************************************** * < > ********** 

* 

* MODULE NAME: cbr enter_canvas () 

* MODULE FUNCTION: 

* 

* This routine handles enter events in the drawing area. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

************ ****************************< >****************************************/ 

XtCallbackProc cbr_enter_canvas ( w, client_data, event ) 

Widget w; 

caddrt cl lent data; 

XCrosslngEvent “event; 


XWindowAttrlbutes attrlbs; 

if ( (w — NULL) | | (event — NULL) ) 

I 

prlntf ("cbrentercanvas: window or event is null\n“); 
return; 

1 

if ( ( event->type =- EnterNotlfy ) a ( Mode -= AddSymbol) ss 
( (XtlsManaged (dlgpause) ) li ( IXtlsManaged (dlg_call) ) it 
( IXtlsManaged (dlg_loglc) ) SS ( IXtlsManaged (dlgtext) ) it 
( 1 XtlsManaged (dlg_start) ) ) 

{ 

/* 

* get window x and y 

*/ 


if (! XGetWindowAttributes (display, XtWindow (current_symbol ) , sattribs) ) 
error_handler ( ERR_SYM_ATTRIBS, "cbr_enter_canvas“ ); 

I 

/* 

* record midpt and ulc of symbol. 

*/ 


originx = attribs . width / 2; 
orlglny - attribs . height / 2; 
newx - attribs. x; 
newy - attribs. y; 


/* 

* move and map window 

“/ 

XMoveWindow( display, XtWindow (current_symbol) , event->x, event->y ); 
XtMapWldget( current_symbol ); 

) 





1 
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****** **.*,< 

MODULE NAME: cbr_mot i on_can va s { ) 

MODULE FUNCTION: 

This routine handles motion events In the drawing area. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* • < >* ****•****••• 

XtCa 1 1 backProc cbr_mot ion_canvas ( w, client_data, event ) 


Widget 
caddr_t 
XMot ionEvent 


w; 

cl ient^data; 
•event; 


XWl ndowAt t rl butes attribs; 

if ( (w -- NULL) || (event — NULL) > 

I 

print f ("cbr_enter_canvas : window or event is null\n M |; 
return; 

1 


• accept only motion events. 

•/ 

If ( event ->type !*• MotionNotify ) 
return; 


only Interested in motion events with no buttons down. 


*1 


clear 1 i n c { ) ; 

Get current mouse location and draw line from anchored start 
point to current mouse location. 


LDendX 

LDendY 


event->x; 
event ->y; 


* Determine othogonal direction. 

V 

if ( abs (LDendX-LDstartX) > abs (LDendY-LDstart Y) ) 
LDendY - LDstartY; 

el se 

LDendX - LDstartX; 
draw_l i ne { ) ; 

/* 

* Update the ruler bars. 


XMoveWi ndow ( display, XtWl ndow (v_rule) , event->x +2, 0 ); 
XMoveWindow ( display, XtWindow (h_rule) , 0, event->y f 16 ); 

) 

else if ( (Mode *== StretchPrint Box) || (Mode -= St retchDeleteBox) || 
(Mode — StretchCopyBox) II (Mode — Stret chMoveBox) ) 

drawghost ( TRUE, BStartx, BStarty, event->x, event->y ); 
else if ( (Mode — GhostCopyBox) | | (Mode -- GhostMoveBox) ) 

1 

drawghost ( TRUE, event->x, evcnt->y, 

event->x + ghostwldth, event->y * ghost length ) ; 

) 

1 


it ( event ->st ate & ButtonlMask) 

clog (3, "rrtot ion: button 1 down’*); 
else if { event->state & Button2Mask) 
elog (3, “mot ion: button 2 down"); 
else if ( event->state & Button3Mask) 
elog (3, "motion : button 3 down"); 

el se 

{ 


/* 

• no buttons down; the user is drawing a line. 

V 


if ( Mode — LlneDraw ) 

/■ 

• Clear previous line if one existed. 
*/ 


if ( LDendX !- -1 ) 
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>******•**************< 

MODULE NAME: cbr_expose() 

MODULE FUNCTION: 

This routine handles events when the canvas draw area is exposed. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


************************************* < -> * * * * , 

XtCallbackProc cbr_expose( w, clientdata, event ) 
Widget w; 

caddr_t client_data; 

XEvent ‘event; 


XSetWindowAttributes attrlbs; 

1£ ( (w — NULL) II (event — NULL) ) 

( 

prlntf ("cbr_enter_canvas: window or event Is nullAn"); 
return; 

1 


attrlbs. backlngstore - Always; 

XChangeWlndowAttrlbutes ( display, XtWlndow (draw_area) , CWBacklngStore, sattrlbs); 
XUngrabButton ( display, AnyButton, AnyModlfler, XtWlndow (draw area) ); 


y. ...... .......... *.*••. ............ •*.**< 

* 

* MODULE NAME: cbrruleexpose ( ) 

MODULE FUNCTION: 

This routine handles events when the ruler bars are exposed. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


************************************* > *********4 

XtCallbackProc cbr rule expose ( w, client_data, event ) 


******** 


Widget 

caddr_t 

XEvent 


cl ient_data; 
♦event; 


if ( (w — NULL) | | (event — NULL) ) 

{ 

printf ("cbrentercanvas: window or event is null\n"); 
return; 

} 


when the ruler bars are exposed, redraw them. 


XClearWindow ( display, XtWlndow (h rule) ); 

XClearWindow ( display, XtWlndow (v_rule) ); 

XSetFunction ( display, WAgc, GXxor ); 

XSet Foreground ( display, WAgc, colors [MAXCOLORS-l ] A LDbackground ); 
XDrawLlne( display, XtWi ndow (hrule) , WAgc, 0, 0, 13, 0 ); 

XDrawLine( display, XtWi ndow (vrule) , WAgc, 0, 0, 0, 13 ); 

XSet Foreground ( display, WAgc, BlackPixel (display, Default Screen (display) ) 
LDbackground ); 

XSetFunction ( display, WAgc, GXcopy ); 
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/* **********•*******< >*••* **•*.*•* 

MODULE NAME: cbr_scroll expose {) 

MODULE FUNCTION: 

This routine handles events when the windows containing the rules are exposed. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*< >* ***»»»» M »»» M M »»»» M »» M •**«** M » 

XtCa 1 lbackproc cbr_scrol l_expose { w, client data, event ) 


Wi dget 

caddri 

XEvent 


int 

/• 


w; 

cl lent data; 
•event ; 


when the ruler bars are exposed, redraw them. 


XSetFunctlon { display, WAgc, GXset )? 

XSet Foreground { display, WAgc, BlackPlxel (di splay, Default Screen (display) ) ); 
for ( i-1; 1 < ( (MAIN_CANVAS_HEIGHT)/40) ; i++ ) 

XDrawLi ne ( display, XtWlndow (v scrol 1 ) , WAgc, 0, 1*40, 13, 1*40 ); 
for ( 1-1; 1 < ( (MAIN_CANVAS_WIDTH)/40) ; i+ + ) 

XDrawLlne ( display, XtWlndow (h_scrol 1) , WAgc, 1*40, 0, 1*40, 13 ); 
XSetFunctlon ( display, WAgc, GXcopy ); 


MODULE NAME: check_f rom_l ines () 

MODULE FUNCTION: 


This routine checks the lines entering a symbol to see If, In their new location, 
they impose on another line or a symbol. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 




int check_from lines ( type, new_x, new_y, sym, orlg_x, orlg_y, width, length ) 


int 

type, new x, new y; 

Symbo 1 

• sym; 

int 

orig x, orlg_y, width, 

Li ne 

•tempi ine; 

LineLlst 

•tempi 1 st ; 

LlneSeg 

•tempseg; 

int 

/* 

fail; 


do symbol's lines In their new location Impose on anything else 


tempi 1st = sym->from; 
while | templist ) 

I 

templine ■ (Line *) tempi ist->l ine; 

if ( 1 lnc_within_box (templine, orlg__x, orig_y, width, length) ) 
{ 


* trial move line to new location and check It. 


move_line( tempi i ne-> 1 ine, orig_x, orig_y, new_x, new_y ); 

fail - check_line( type, templlne, orig_x, orig_y, width, length ); 

move_line( templine->line, new_x, new_y, orig_x, orig_y ); 

if ( fail ) 

return ( 0 ) ; 

I 

templist = (LineLlst •) tempi ist->next ; 

) 

return ( 1 ); 
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* * * * * * 


MODULE NAME: check line() 


MODULE FUNCTION: 


This routine checks a single line to see If, In its new location, 
It imposes on another line or a symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


MODULE NAME: check_symO 


MODULE FUNCTION: 


This routine checks a single symbol to see if, in its new location, 
it imposes on a line or another symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


int check_line( type, line, orig_x, orig_y, width, length ) 

int type; 

Line *llne; 

int orig_x, orig_y, width, length; 


int check_sym( type, new_x, newy, sym, origx, orig_y, width, length ) 

int type* newx, new_y; 

Symbol *sym; 

int origx, orig y, width, length; 


Li neSeg 
int 


* temps eg; 
fail; 


tempseg - {LineSeg * ) 1 ine->l ine; 
while ( tempseg ) 

( 


* does symbol in its new location impose on anything else 
V 

int cellx “ (new_x ♦ (sym->ulcx - orig_x)) / CELL_SIZE; 
int celly - (newy ♦ (sym->ulcy - origy)) / CELLSIZE; 


* check the rectangle enclosed by the line; determine the rectangle based 

* on the direction of the line. 


can't copy BEGIN symbol 


if ( tempseg->orientat ion -- RIGHT ) 

fall » check_rect ( type, tempseg->cell_start_x, 

tempseg->cell_start_y, tempseg->cell_start_x - 
tempseg->cel l_end_x, 1, orig_x, orig_y, width, length ); 
else if { tempseg->orientation LEFT ) 

fail ** check_rect ( type, tempseg->cell_end_x, tempseg->cell_end_y, 
tempseg->cell_start_x-tempseg->cel l_end_x, 1, 
l orig_x, orig_y, width, length ); 
else if { tempseg->orientation »= UP } 

fail - check_rect ( type, tempseg->cel l_end_x, tempseg->cell_end_y, 
1, tempseg->cell_start_y-tempseg->cell_end_y, 
orig_x, orig_y, width, length ); 
else if ( tempseg->orientation DOWN ) 

fail » check_rect ( type, lempscg->col 1 start x, 

tempseg->cel i_start_y, 1, teinpseg->cel l_end_y - 
tempseg->cell_start_y, orig_x, orig_y, width, length ); 

if ( ! fail ) 

return ( ERR ) ; 

tempseg - (LineSeg * ) t empseg->next ; 

) 

return ( OK ); 


if ( ( sym- > symbol type BEGIN) 66 (type -» CopyBox) ) 
1 

user_ack ("can' t copy BEGIN symbol"); 
return ( 0 ); 

) 

if ( ! check_rect (type, cellx, celly, 
sym->cell_width, sym->cell_height , 
orig_x, origy, width, length) ) 
return ( 0 ); 

return ( 1 ); 


rlcanvasx! 


MODULE NAME: copy box () 


MODULE FUNCTION: 


This routine checks the Impending copy for correctness, then copies all the 
symbols In the drawn box to their new locations. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1 .02 - 08/28/91 


void copy_box ( orig_x, orlg_y, width, length, new_x, new_y ) 
lnt orig x, orig_y, width, length, new__x, new y; 


MODULE NAME: copy_text_f ields () 


MODULE FUNCTION: 

This routine mallocs space for global text variables; copies text fields. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt copy_text_f ields ( symbol ) 
Symbol ‘symbol; 


numsyms, i; 


if ( symbol ->symbol_type == END ) 


* reset the copy array. 
V 


* no text to copy 

*/ 


for ( 1 = 0; KMAX SYMBOLS; i + + ) 

I 

copy_a rray ( i ] . source_num - -1; 
copy_a rray [ i ) . copy_num - -1; 

) 


* if we can copy all the symbols in the box, and no symbols or lines 

• interfere, create copy of each symbol and line wholly within box. 

■/ 

if ( numsyms » trial move (CopyBox, orig_x, orig y, width, length, new_x, new_y) ) 

l 


* copy all symbols within box first 

h / 

if ( copy^symbol s (numsyms, or ig_x, orlg y, new_x, new_y) ) 
return; 


* copy all lines within box 


copy_lines( numsyms, orig_x, origy, width, length, new_x, newy ) ; 

set_nu 1 l_undo_event () ; 
i 


else if ( (symbol->symbol_type -- IF) I I (symbol -> symbol _type SET) ) 

( 


* malloc data space for global text fields depending on symbol's type; 

* set global text fields to this symbol's text (s) 

*/ 

if ( symbol ->Sym. I fSym.logical_expr ) 

1 

if ( (symtext - (char * ) mal loc (st rlen (symbol ->Sym. I fSym. 1 og i ca l_cxpr) ♦ 1)) 
— NULL ) 

( 

user ack ("Fatal error - Out of memory - couldn't mallocO"); 
el og (1 , "copy symbol () : couldn't mallocO IF text"); 
return ( ERR ); 

I 

strcpy( symtext, symbol -> Sym. I f Sym. logica l_expr ); 

) 

else sym_text ° NULL; 

if ( symbol->Sym. I fSym.comp_expr ) 

{ 

if ( (expr_text - (char *) malloc (strlen (symbol -*>Sym. J f Sym. comp_cxpr) + 1) ) 
— NULL ) 

( 

user_ack ("Fatal error - Out of memory - couldn't mallocO**); 
elog (1 , •*copy_symbol () : couldn't mallocO IF text"); 
return ( ERR ) ; 

) 

strepyl expr_text, symbol->Sym . I fSym.com p_expr ); 

1 

else expr_text » NULL; 
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if ( symbol->Sym. I fSym. comment ) 

( 

if ( (comment_text - (char * Jmalloc (strlen (symbol->Sym. I fSym. comment) + 1) ) 

=- NULL ) 

( 

user_ack (“Fatal error - Out of memory - couldn't mallocO"); 
elog (1, "copy symbol () : couldn't mallocO IF text"); 
return ( ERR ); 

I 

strcpyj comment_text, symbol->Sym. I fSym. comment ); 

I 

else comment_text - NULL; 

I 

else 


/•****** 44 ««****»*********************** *< >** ************************************** 

* MODULE NAME: copy_lines() 

* MODULE FUNCTION: 

* This routine copies all the lines within a drawn box to their new locations. 

* REVISION HISTORY : 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 




/* 


void copy_lines( numsyms, orig_x, orlgy, width, length, new_x, new_y ) 


* goto, start, stop, etc. : Just copy the text field 
*/ 


( 

if ( (sym_text - (char- * ) mal loc (st rlen (symbol->text ) + 1 ) 1 -- NULL ) 

( 

user_ack ("Fatal error - Out of memory - couldn't mallocO"); 
elog (1, “copy symbol () : couldn't mallocO IF text"); 
return ( ERR ) ; 

I 

strcpy( sym_text, symbol ->text >; 

1 

) 


int numsyms, orig x, orig_y, width, length, 

int 

1, from_num, to num, type; 

Line 

*copyline, ‘teinpline; 

Line Li st 

♦templlst; 

Symbol 

♦tempsym; 

for { i-0; 

icnumsyms; i+f ) 


new_x. 


new_y; 


I 

templlst » Symbol Map [new_sym_l 1st (1 | J .from; 
while ( templlst ) 

I 

templlne - (Line *)templlst->llne; 

if ( llnewlthlnbox (templlne, orlgx, orlgy, width, 

I 


length) ) 


/* 

* copy line; move it; place copy of original. 

•/ 


copyllne » (Line *)copy_llne( templlne ); 

move_llne( copyl lne->l lne, orlgx, orlgy, nowx, newy ); 
tonum - getcopyfromsource ( new_sym_l 1st [ 1) ); 

fromnum - getcopyfromsource ( compute_label_lndex (templlne->from) ); 
if ( (from_num ■>= -1) | I (to_num =■■ -1) ) 
l 

user_ack (“couldnt find copy of sym“); 
return; 

) 

tempsym = (Symbol *) templine->from; 

If ( tempsym->symbol_type ■=» IF ) 

I 

If ( tempsym->Sym. If Sym. true_l lne == templlne ) 
type = 1; 

else If ( tempsym->Sym. I fSym. false_llne == templlne ) 
type - 2; 

else user_ack (“sym Is if but templlne != lines"); 

I 

else 

type = 0; 

restoreline ( copyllne->line, type, Symbol_Map[from_num) .mycanvas, 
Symbol_Map[to_num) .mycanvas ); 

) 


templlst (LlneLlst * ) templlst->next ; 
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* 

MODULE NAME: copy symbo 1 s () 

MODULE FUNCTION: 

This routine copies all the symbols within a drawn box to their new locations. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 

******** >*•'****»*•*** * 


int copy_symbol s { numsyms, orlg__x, orig_y, new_x, new_y ) 
int orig_x, orlg_y, new_x, new_y; 


int 1 , 

new_num; 

/* 

* Record the link between original and copy so that when we are 

* drawing the lines of the copy, we can know the type of the original's 

* source symbols. 

V 

for ( 1=0; i<numsyms; i++ ) 

I 

/* 

* if copying of symbol fails, return error. 

*/ 

if ( (new num = copy_symbo l (s Symbol Map[ ncw_sym_list ( i j j , 
orig x, origy, new_x, new^y) ) ERR ) 
return ( ERR ) ; 

copy_array ( 1 ] . copy_num ■ new_num; 
copyarray (i J . sourcenum - new_sym_l 1st ( i J ; 

) 

return! OK ); 

) 



to 


tM«ll 


•«•••••»•< >«**<•*■* *<*•••»<•<*»»••*»«*»*** 

* 

* MODULE NAME; copy_synjbol () 

* 

* MODULE FUNCTION: 

* 

* This routine copies a single symbol within a drawn box to its new location. 
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If ( (n - install_symbol (symbol->symbol_type, symx, symy, symbol-> height, 
*•***«» symbol->wldth, sym_text, current_symbol, symbol->font) ) >- 0 ) 

return! n ); , 

el se 

I 

cancel_draw (I ; 
return ( ERR ) ; 

) 

i 



REVISION HISTORY : 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************************* * * < ___> * ********** 


lnt copysymbol ( symbol, box_x, boxy, new_x, newy ) 

Symbol 'symbol; 
lnt box_x, box_y, 
newx, newy; 

I 

Arg argslS]; 

lnt n, 

symx, symy; 

If ( (next_avall_sym () ) < 0 ) 

return! ERR ); 


/* 

* create new symbol In Image of original. 
*/ 


n ~ 0; 

XtSetArg! args[n], XmNheight, symbol->helght ); n++; 
XtSetArg! args[n), XmNwldth, symbol->wldth ); n++; 
XtSetArg! args(n), XmNuserData, symbol->symbol_type ); n**; 
XtSetValues! current_symbol, args, n ); 


/* 

* move ulc of window to new location relative to copy box 
*/ 

I 

symx - new_x + ( symbol->ulcx - boxx ); 
symy - new_y + ( symbol->ulcy - box~y ); 

XMoveWlndow! display, XtWlndow (current^symbol) , symx, symy ); 

/* 

* copy text fields of original sym to global text variables used In 

* draw_symbol. 

*/ 

copy_text_f lelds ( symbol ); 

/* 

* draw and Install new symbol 
*/ 


draw_symbol ( symbol->symbol_type, current_symbol , WAgc, smallfont ) ; 
XtMapWldget! current symbol ); 





MODULE NAME: draw_ghost () 


MODULE FUNCTION: 

This routine erases the old ghosted box and draws a new one. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* ******* »«»*****< **/ 

void draw_ghost ( flag, ulcx, ulcy, Ircx, lrcy ) 
lnt flag, ulcx, ulcy, lrcx, lrcy; 

{ 

int i; 

for (1-0; ( 17 ag-^TRUE) ? { i < 2) : (1 < 1 ) ; U i ) 

I 

XSotFunct Ion ( display, LDgc, GXxor ); 

/* 

* draw over old box; If oldlrc? not yet given value, draw box of width 

* 0. Draw now box It (lag Is true. This enables cancel and print to 

* erase the last box drawn without drawing a new one by passing in a 

* false flag. 

*/ 

XDrawRectanglo ( display, XtWlndow (draw_area) , LDgc, 

(i--0) ? old_ulcx : ulcx, 

(i«=0) ? oldulcy : ulcy, 

(1--0) ? ( (old_lrcx >-0) ? abs (oldl rcx-oldulcx) : 0 ) : abs ( 1 rcx-ulcx) , 

(i--0) ? ( (oldlrcy >«0) ? abs (old_l rcy-old_ulcy) :0 ) : abs (1 rcy-ulcy) ); 

if { 1 ) 

( 

/* 

* reipember the endpts of the box just drawn so we can erase it. 

•/ 

old_lrcx « lrcx; 

old_lrcy - lrcy; 

old_ulcx - ulcx; 

old_ulcy - ulcy; 

) 

I 

/* 

* If we are erasing the last ghost box, reset global vars to original values. 

*/ 

It ( ! flag ) 
i 

XSetForeground { display, LDgc, BlackPlxel (dl splay, 

Defaul tScreen (display) ) A LDbackground }; 
old_lrcx - old_lrcy - -1; 

old_ulcx - old_ulcy - 0; 




v 


IliiiM! 
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/ * * * ************************************ * <ww > **************************************** | / 

* MODULE NAME: get_copy_f rom_source () 

* MODULE FUNCTION: 

* This routine determines the new version of a symbol by consulting an array that 

* maintains original /copy pairs of symbols. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*************** 

int get_copy_from_source { source ) 

{ 

int i; 

for ( 1-0; i <MAX_SYMBOLS; 1++ ) 

if { copy_array ( i ] . source_num — source ) 
return { copy_array f i ) .copy_num ); 
return ( ERR ) ; 


,\ 



< ._>* ************************************** 

MODULE NAME: handlebuttonpresscanvas () 

MODULE FUNCTION: 

As the self-documenting name implies, this routine handles button press events. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*******•*««**«********••*«***•**•**•****< >•*******•*« 

int handle_button_press_canvas ( event ) 

XEvent *event; 


/•DEBUG*/ 

elog (3, "cbrcanvas : button l%u down", event->xbutton .button) ; 

if ( (Mode *== EditSymbol) && (event->xbutton. button Button2) && 

(event->xbutton. state & ShiftMask) ) /*shlft down*/ 

/* 

* user wants to delete line. 

V 

{ 

if ( !set_up_line_globals (event) ) 
return; 

/* 

* Save seg ptr for undo 

*/ 

set_line_event ( Cell_Map [LDlineY] [LDlineX) ,cell_entry. llnes->line ) ; 
delete_line () ; 
if ( Audit ) 

audit ( JUST_LINES ); 

} 

else if ( (Mode == EditSymbol) 66 (event ->xbutton. button *»» Buttonl) && 
(event->xbutton. state 6 ControlMask) ) /‘control down*/ 

( 

/* 

* user wants to audit the line under the cursor. 

*/ 

if ( lAudited ) 

I 

if ( ! set_up_line_globals (event ) ) 
return; 
audit_llne () ; 

Audited » 1; 

) 

else 

1 

/' 




* clear any kind of audit by redrawing all lines and symbols. 

*/ 


cl ea r_audi t ( ) ; 

Audited - 0; 

1 

\ 

else if ( (Mode -■ EditSymbol) && (event->xbutton . but ton — Button3) ) 
I 


/* 

* pop up shortcut file menu. 

V 


XmMenuPosl t Ion ( Rmenu_popup, event ); 

XtManageChi Id ( Rmenu popup ); 

1 

else If ( (Mode EditSymbol) && (event~>xbutton. button -- Buttonl) ) 

1 


/' 

* pop up shortcut edit menu. 

•/ 


XmMenuPosl t ion ( Lmenu__popup, event ); 
XtManageChi Id ( Lmenu popup ); 

1 





/****************************************< > **************************************** 

* 

* MODULE NAME: line_within_box () 

* 

* MODULE FUNCTION: 

* 

* This routine determines If the parameter line is wholely within the parameter box. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

**************************************** <- _> * a**************************************/ 

int 1 ine_within_box ( line, b_ulcx, b_ulcy, w, 1 ) 

Line *line; 

int bulcx, b_ulcy, w, 1; 

{ 

LlneSeg ‘tempseg; 


/*************************************** *< > **************************************** 

* 

* MODULE NAME: movebox () 

* MODULE FUNCTION: 

* This routine determines if the drawn box can be moved; if so, it calls the routine 

* to perform the move. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**************************************** < >* ***************************************/ 

void movebox ( origx, orlgy, width, length, new_x, newy ) 
int origx, origy, width, length, new_x, newy; 

( 

int numsyms; 


* if 1 ine->l lne->start_[xy | in box... 


tempseg - llne->llne; 
while (tempseg) 

( 

it ( ! ( ( (tempseg->start_x > bulcx) ss (tempseg->start_x < bulcx + w) ) is. 
( (tempseg->start_y > bulcy) a (tempseg->start_y < bulcy +1)) ) ) 
return ( 0 ); 

/* 

* and if llne->llne->end_(xyl in box... 

*/ 


/* 

* try to move each symbol; if we can, move each symbol and each line 

* entering it that is wholly within the box. Delete all other lines. 

*/ 

if ( numsyms » trial move (MoveBox, origx, orlg y, width, length, new_x, newy) ) 

1 I 

moveok ( numsyms, newx, new_y, orig_x, origy, width, length ); 
set_null_undo_event {) ; 

I 


} 


else if ( ! ( < ( tempseg->end_x > b_ulcx) && (tempseg->end_x < b_ulcx + w) ) && 
{ (tempseg->end_y > b_ulcy) && (tempseg->end_y < b_ulcy + 1) ) ) ) 
return ( 0 ) ; 

else tempseg “ (LineSeg * ) tempseg->next; 

i i 

return ( 1 ); 




MODULE NAME: move_labels{) 

MODULE FUNCTION: 

This routine moves the TRUE/FALSE labels of the parameter symbol to their 
new locations. 


REVISION HISTORY: 

Graphical Comp Builder - 


void move^label s ( 1, new_x, 
lnt 1, new x, new_y, 


MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


new_y, orig_x, orlg y ) 
orig_x, orig y; 


I 


this is not pretty, but since the label info is in the symbol, not the 
line, the labels must be moved before the symbol. We know the new 
location; just clear the old labels and draw them in their new 
location . 


if ( Symbol_Map( new sym list (1 J J .Sym. I fSym. true_i ine ) 

I 

clear^text ( draw_area, Symbol_Map(new_sym_list [1 J J .Sym. I fSym. t ruex, 
Symbol^Map (new_sym_l 1st ( 1 J | . Sym. If Sym. true_y, “TRUE" ); 

Symbol _Map[new_sym_l 1st l i ) ) . Sym. IfSym. true y - 

new_y 4 ( Symbol _Map (new_sym_l 1st ( i 1 J .Sym. IfSym. true_y - orig_y ); 

Symbol_Map(new_sym_l 1st [ill .Sym. IfSym. true_x = 

newx 4 ( Symbol _Map[new_sym_l 1st ( 1 | J . Sym. I f sym. true_x - orlg x ); 

XDrawString( display, XtWindow (draw a rea) , I.Dgc, 

Symbol Map [ncw^sym 1 i st ( l 1 | . Sym. I f Sym. t. r ue x. 

Symbol _Map(new_sym_l 1st [ 1 1 j .Sym. I f Sym. t ruey , 

“TRUE” , st rlen ("TRUE") ); 

) 

if { Symbol_Map[ new_sym_l 1st ( 1 J J .Sym. IfSym. false__line ) 
l l 

clear_text ( draw_area, Symbol_Map[new_sym_l 1 st ( i J j .Sym. I fSym. false x, 
Symbol_Map[new_sym_list [ l | | .Sym. IfSym. falsely, "FALSE" ); 

Symbol_Map[new_sym_l 1st [ill. Sym. IfSym. falsey - 

new_y 4 ( Symbol_Map[new_sym_llst [ i ) 1 . Sym. IfSym. fa lsey - orig_y ); 

Symbol_Map[new_sym_l ist [ 1 J J . Sym. IfSym. false_x * 

newx + { Symbol_Map[new_sym_l ist [ i J ) .Sym. IfSym. fa lsex - orig_x ); 

XDrawString( display, XtWlndow (draw^areal , LDgc, 

Symbol_Map [new_sym_l ist [ i J J . Sym. IfSym. fa lsex, 

Symbol_Map [new_sym_l ist [ill. Sym. IfSym. fa lse_y, 

"FALSE”, strlen ( "FALSE") ); 

) 

) 



MODULE NAME: move_line() 

MODULE FUNCTION: 

This routine moves each line segment in the parameter line to its new location. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* >,,.*.*....***.*..•...•.4 4 ***.....***..../ 

void move_line{ line, orig_x, orig_y, new x, new_y ) 

LineSeg Mine; 

int orlg x, orig y, new_x, newy; 


LineSeg ‘tempseg = line; 

while { tempseg ) 

I 

/* 

* set each pt to new box ulc + offset into original box. 

V 

tempseg->start_x = new_x 4 ( tempseg->start_x - origx ); 

tempseg->start_y - newy 4 ( tempseg->start_y - orlg_y ); 

tempseg->end_x * new_x + ( tempseg->end_x - origx ); 

tempseg->end_y - newy 4 ( tempseg->end_y - orlg_y ); 

tempseg->cell_start_x - tempseg->start _x / CELL_SIZE; 
tempseg->cel lstarty - tempscg->start y / CEI.L_SIZE; 
tcmpscg->cel I end_x - tempseg->cnd_x / CELL^SIZE; 
tempscg->cel l_end_y - tempscg->end_y / CELL_S1ZE; 
if ( tempseg->arrow_x ) 

tempseg->arrow_x *» new_x 4 { tempseg->arrow_x - orig_x ) ; 
if ( tempseg->arrow_y ) 

tempseg->arrow_y » new_y + ( tempseg->arrow_y - orlg_y ); 
tempseg * [LineSeg • ) tempseg->next ; 

1 


cbr_canvas.c 


! - 91 / 08/29 

/************* 


************ 


ili: 


MODULE NAME; move_lines() 
MODULE FUNCTION: 


templist « (LineList “Jnextlist; 

I 

while { done < 1 ) 
i 


This routine moves all lines of the parameter symbol number to their new 
locations. 


* REVISION HISTORY; 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

**************************** *********** >********«************************* 

void raove_llnes( sym_num, newx, newy, orlgx, origy, width, length, numsyms ) 


int 

sym_num, new_x, new y, orig x, orig y, 

width, length, numsyms; 

Line 

“tempi ine; 


LineList 

“templist, “nextlist; 


LineSeg 

“tempseg; 


int 

done - -1; 


tempi i st 

- Symbol Map(new_sym_l 1st (sym num) ) . from; 


while ( 
l 

tempi 1st) 


/* 

* 

go through all lines entering this symbol; 

for each one within 

* 

the move box, erase It, free its cells, and redraw it In Its new 

* 

V 

location . 



/* 

* set templine to the next (or true/false) lines of the symbol; 

* If the line Is not within the box, delete It. 

V 

If ( Symbol_Map[new_sym_list [sym_num) ] .symbol_type -- IF ) 

I 

If ( done “ -1 ) 

( 

/ templine - Symbol_Map[ new_sym_llst (sym_num) | .Sym . I fSym.t rueline; 

done - 0; 

) 

else 

I 

templlne - Symbol_Map[new_sym_list [ sym_num) | .Sym. I fSym. false_l Ine 
done - 1 ; 

) 

1 else 
( 

templlne - Symbol_Map[new_sym_llst (symnum) 1 .next; 
done - 1; 

I 

If ( templlne ) 

I 

If ( ! symlnorlgbox (compute_label_lndex (tempi lne->to) , numsyms) ) 

/* 

* delete line - set globals first. 

*/ 


nextlist - (LineList •) tempi lst->ncxt; 
templlne - (Line *) templlst->llne; 

if ( ( llne_wlthln_box (templlne, orig_x, orig_y, width, length)) a 
(sym_withln_box (templine->from, orlg_x, origy, width, length)) 
( 

erase_llne( templlne ); 

LDllnePtr a (Line ") templlne; 
tempseg - (LlneSeg * ) templlne->l lne; 
while ( tempseg ) 

( 

clear_cell_map_line ( tempseg ); 
tempseg “ (LlneSeg * ) tempseg->next; 

1 

move_llne( tempi 1 ne->l lne, orlg_x, orig_y, new_x, new_y ); 
draw_whole_line ( templlne, TRUE ); 

1 

else 


I 

find_line_cell ( tempi ine-> line ); 
deleteline ( ) ; 

I 


/* 

* line enters symbol but Is outside move box; delete line - 

* set globals first. 

*/ 


I 

flnd_llne_cell ( tempi lne-> line ); 
delete_line () ; 
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MODULE NAME: move_ok() 

MODULE FUNCTION: 

This routine performs the move of symbols and lines once it has been determined 
that the move can be performed safely. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

«**•**.«.***•»••»**.,«««**«•*•'*•••*•,•**< >*MM«<M*M*M«M**tt»**M»»0***Mi 

int move_ok ( numsyms, new^x, new_y, orig orlg_y, width, length ) 
int numsyms, new_x, new^y, orlg_x, orlg_y, width, length; 


i 


int 


1, symx, symy, old^x, old_y; 


for ( i^O; icnumsyms; 1++ ) 

( 







SymbolMap! new_sym_l 1st ( 1 1 1 . ulcy » old_y; 

/* 

* relocate all lines entering this symbol that are wholly within box; 

* delete all others. 

*/ 

move lines! 1/ new x, new_y, orig_x, orlg^y, width, length, numsyms ) ; 

) 

/■ 

* set cells for all lines now, so they don't clash with symbols earlier. 

*/ 

set_cell_map_llnes (numsymsl ; 

for ( 1-0; Icnumsyms; i++ ) 

( 

Symbol_Map [new__sym_l 1st [ 1 ] | . ulcx - new_x + 

( Symbol Map (newsyml 1st ( 1 | | . ulcx - orlgx ); 

SymbolMapf newsyml 1st ( 1 | | . ol cy - newy + 

( Symbol _Map l r>ew_sym_l 1st [1| ] .ulcy - orlg_y ); 

1 


/* 

* save old symbol location; test In new location will change these 

* values. 

*/ 


old x - Symbol_Map(ncw_sym_llst 1 1 ) ) . ulcx; . 
old_y - Symbol_Map(new_sym_llst [1 | 1 . ulcy; 

/* 

■ offset Into new box location. 

*/ 


symx - new_x + ( Symbol_Map[ new_sym_l 1 st l 1 ) ) .ulcx - otigx ); 
symy - new y + ( Symbol_Map(new_sym_l 1st 1 1 )). ulcy - orlg y ); 


If ( Symbol_Map! new__sym_l 1 st 1 1 J 1 .symbo L^type -- IF ) 
move_labels( 1, new_x, newy, orig_x, orlg^y ); 

r 

* move symbol; try to claim cells in new location. 

V 

XMoveWl ndow ( display, XtWi ndow | Symbol _Map ( new_sym_l 1 st ( 1 | | . mycanvas) , symx, symy ) ; 
If ( Iclalm cells(Symbol Map [now_sym_l 1st ( 1 | ) .mycanvas) I 
1 

user_acK ("move_oX : can't claim symbol cells”); 
return! 0 1 ; 

I 

/* 

* restore old symbol location; test In new location will have changed 

* these values. 

•/ 

Symbol_Map | ncw_sym_l 1st 1 1 1 1 . ulcx - old_x; 



/*•*“*•* >****** ****** ************** ******* 

* MODULE NAME: set_cel l_tnap_l ines () 

* MODULE FUNCTION: 

* This routine sets the cells for all the lines entering all the moved symbols. 


/*************************************** *<;_ — — > ************************ 

* MODULE NAME: setupl ine_globals () 

* MODULE FUNCTION: 

* This routine sets the globals required for a delete line operation. 


REVISION HISTORY: 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


************************************** *< > 


/ | ******************* * 


«****************< > 


void set_cell_map_lines { numsyms ) 


int set_up_line_globals ( event ) 


int numsyms; 


Line 

LineList 

LineSeg 

int 


•tempi lne; 
•tempi 1st; 
•tempseg; 
1? 


for ( 1=0; i<numsyms; !♦+ ) 

( 

/* 

• for each line entering this symbol, set the cells occupied by 

* each segment. 

*/ 


tempi 1st = {LineList * ) Symbol_Map[new_sym_list {i ] ) . f rom; 
while { templist ) 

I 

templine - (Line * ) templist->l ine; 
tempseg » (LineSeg * ) templine->line; 
while ( tempseg ) 

( 

set cel l_map_l ine ( tempseg, templine )? 
tempseg - (LineSeg * ) tempseg~>next ; 

} l 

templist - (LineList *) templist->next; 

1 

1 

} 


XEvent *event; 


/* 

* Determine if a line exists at this cell. 

*/ 

LDlineX = event->xbut ton . x; 

LDlineY - event->xbutton.y; 

LDlineX - LDlineX / CELL_SIZE? 

LDlineY - LDlineY / CELL_SIZE; 

/* 

* If this cell is not a line cell, beep at the user. 

*/ 

if { Cel l_Map [ LDli neY J [LDlineX) .cell_type != LINE_CELL ) 

i 

XBel 1 { display, 0 ) ; 
return { 0 ); 

1 

/• 

* If this cell contains multiple lines, let the user 

* know that we can't tell which line to delete. 

V 


if ( Cell_Map[LDlineY) (LDlineX] .cellentry. lines->next ) 

1 

userack ("Cannot determine unique line, please reselect line**); 
return ( 0 ); 

1 

return ( 1 ); 


********** 


/ 






91/08/2' 

08/49:2; 




/ * ..**.****•.***.*< 

* MODULE NAME: sym_in_orig box () 

* MODULE FUNCTION: 

* This routine determines if the parameter symbol was in the original 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

HO **< >• *• * *#«»•**»***».****»*. 
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drawn box. 


MODULE NAME: sym_within_box () 

MODULE FUNCTION: 

This routine determines If a symbol 



<— 


> 


Is wholely within the parameter box. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

/ *************** * ******** 


int sym_i n_or lg_box ( sym_num, numsyms ) 
lnt sym^num, numsyms; 

I 

lnt 1; 


for ( 1»0; Knumsyms; 1++ ) 

if ( new_sym_l 1st ( 1 j “ “ sym_num ) 
return! I ); 
return ( 0 ) ; 


int sym_wit hin_box ( symbol, b_ulcx, b_ulcy, w, 1 ) 

Symbol * symbol; 

lnt bulcx, bulcy, w, 1; 


lnt lrcx - symbol->ulcx + symbol->widt h; 
int lrcy - symbol->ulcy + symbol ->he 1 g ht ; 

/• 

• If sym->ulcx in box... 

•/ 

if ( ( (symbol *>ul cx > b_ulcx) (symbol->ulcx < b^ulcx f w) ) £& 
( (symbol->ulcy > bulcy) (symbol->ulcy < b_ulcy + 1) ) ) 

I 

/* 

* if sym~>lrcx in box... 

V 

if ( (lrcx < b ulcx * w) kk (lrcy < b_ulcy *• 1) ) 
return( 1 ); 
i 

return! 0 ); 

) 
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— >t .. .......... .................... 

* MODULE NAME: trlal_move() 

* MODULE FUNCTION: 

* This routine determines if the symbols and lines within a box, if moved, will 

* Impose on anything in their new locations. 


* REVISION IUS TORI': 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

*«********************»********•********< ^*****«***»****«i******4*****»*a**********/ 

int trial_move( type, orig_x, orig_y, width, length, new_x, new_y ) 
int type, origx, orig y, width, length, newx, newy; 

! 

int J - 0, 

1; 

/* 

* reset moved symbol list. 

*/ 

for ( t-0; KMAXSYMBOLS; 1 + + ) 
new_sym_llst [1 1 - 0; 

for ( 1-0; i <MAX_S YM BO LS ; 1 + + ) 

if ( Symbol_Map( 1 1 . symbol_type !- NONE ) 

if ( sym_wlthln_box (tSymboi_Map[li , origx, origy, width, length) ( 

( 

new_sym_l i st ( J | - i; 

J++; 

/* 

* does symbol in its new location impose on anything else 
*/ 

M ( ! check_sym (type, new_x, new_y, 4Symbol_Map[ i | , orlg_x, orlg_y, 
width, length) ) 
return! 0 ); 

/* 

* do symbol's lines in their new location Impose on anything else 
V 


if ( ! check from 1 ines (type, new x, new y,4Symbol M.ip|i],orig x,or)g y, 
width, length) ) 
return! 0 ) ; 

I 

return! J ) ; 


1 


*• . 08 : 49 : 2 ' 
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cbr canvas. h 


* 

* FILE NAME : cbr__canvas . h 

* 

» FILE FUNCTION: 

* This file contains the global variables and function prototypes for cbr_canvas.c 

* 

» i;i‘ix:i K I CAT I ON IKK.IJMKNTS: 

* /home /pro ject/3531 /Docu/GCB. spec.doc 

* 

A 

* FILE MODULES: 

* 

• N/A 


••*••**■*•••«*«••• <--- >« <*i#»MM**»*#M.**«*M***M..« 

/* 

* Tills structure establishes a link between an original symbol and its copy. 

* This link is necessary so that when drawing the lines of the new symbol, 

* we can determine the type of the original start symbol. 

•/ 

typedef struct 
1 

int source_num; 
lnt copy_num; 

} copystruct; 


copyst ruct copy_a rray (MAX_SYMBOLS ) ; 
/* 


Global variables. 


•/ 


Record original position of a symbol during a drag. 


extern int orjginx, orlylny, 
newx, newy; 

\ 

int ghost_width, ghost_length, /• dims of box for move, print, etc. */ 

new_sym_ll st [MAX_SYMBOLS] , 


* record dims of last ghosted box so we can erase it. 


old_lrcx - -I, old_lrcy « -1, 
old_ulcx ■ 0, old_ulcy - 0; 


Function prototypes. 


copy_l ines () , 
draw_ghost () , 
move_l ine ( ) , 
set^cell jnap^lines () ; 



void 



/****************************************^_ >**************************************** 

* 

* FILE NAME: . cbr_done.c 

* 

* FILE FUNCTION: 

* 

* This file contains the routines which finish the symbol creation operation. 

* These routines are called when the user selects the DONE button in the 

* symbol specific popups. 

* FILE MODULES: 


/Aik************************************* *< > ****************************** 


MODULE NAME: cbr_done() 

MODULE FUNCTION: 

This routine handles events when the user clicks DONE in a symbol specific 
popup. This routine determines which type of symbol the user is working 
on and then acts accordingly. In the case of SET and IF symbols, the 
users expression must be checked to ensure It is syntactically correct 
that all variables are accounted for. 


* * 


* cbr_done () 

* check_lines () 

* check_lineseg () 

* reclalm_line_cells () 

* redraw_labels 0 

* redraw_last_lineseg {) 

* reinstall {) 


- processes the symbol specific DONE buttons 

- are all lines entering/leaving symbol still in symbol? 

- if llneseg no longer in resized symbol, delete it. 

- reclaims cells of line leaving bottom of resized symbol 

- redraws labels of IF/SET symbol obscured during resizing 

- checks lines leaving out bottom of resized IF/SET symbol 

- changes size, content fields in Symbol_Map entry 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


> * ************* 


**************************************** ^ * 


*/ XtCallbackProc cbr_done ( w, client_data, call_data ) 


******************/ 


•include <stdio.h> 

•include <stdlib.h> 
•include <X11/Intrinsic. h> 
•include <Xm/Xm.h> 


•include "gcb.h” 

•include "widgets. h" 
•include "lines. h" 
•include "symbol. h" 
•include "gcb_parse . h" 

• include *'element_f lie .h" 
•include "fonts. h" 

•define IN 1 

•define OUT 2 


Widget w; 

int client_data; 

caddr_t call_data; 


Symbol * symbol; 

Arg argstlO]; 

char response 180) ; 

int n, rc, sym_type, add; 

/* 

* if user clicked cancel, return 

V 

if ( client_data ==» 0 ) 

( 

XtManageChild ( dlg_logic_attribs ); 
return; 

} 

/• 

* Determine which type of symbol the user is working on. 

V 


XtSetArg{ args(0], XmNuserData, fisymtype ); 
XtGetValues( current__symbol, args, 1); 

/‘DEBUG* / 

elog (1 , "cbr_done: client data is %d", sym_type) ; 


/* 

* Process the DONE button based on the current symbol's type -> IF, SET, 

* etc. 

*/ 


switch ( sym_type ) 

{ 

case START: 
case STOP: 




/* 



1 / 08 / 2 ® 


lillip 
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* Make sure the user entered a Comp name 


if ( ! strlen (XmTextGet St ri ng (txt start)) ) 

( 

user_ack ("Comp name is empty, please be sure to enter a Comp name"); 
popdown ( sym_type ); 

Mode - Ed it Symbol; 
return; 

} 


! | 1 3 


* Get the element name from the text widget, pick out only the 

* Element name, dump the trailing "Root Element" text if it 

* exists. 


sscanf ( XmTextGetStr ing (txt_cal l_ne) , "%s" f sym_text ); 
/* 

* Determine which type of Element the user selected. 


Malloc some data space for the string. The symbol structure 
contains a pointer only, we must get data space for the string 
at this point. 


if ( XmToggleBut tonGet State (tgl call_ce) ) 
Call Type - ELEMENT; 

el se 

Call Type ~ LI B; 


if ( (sym text = malloc (strlen (XmTextGetSt ring (txtstart) ) +1) ) — NULL ) 
I 

user^ack ("Fata 1 error - Out of memory - couldn't malloeO"); 
elog (1 , "cbr_donc () : couldn't malloeO START/ STOP text"); 
return; 

1 


* Copy the string from the widget. 

*/ 

strcpy( sym text, XmTextGetSt ring (Lxt_start) ); 
t* 

* Since we are not using expr_text, set it to NULL. 
V 

expr_text - NULL; 
break; 

case GOTO; 

/• 

* Make sure the user entered an element name 

•/ 


/* 

* Since we are not using expr_text, set it to NULL. 

*/ 

expr_text =* NULL; 
break; 

case TEXT: 
case PRINT: 

if ( sym_type — PRINT ) 

[ 

/* 

* Make sure the user has entered the quotes properly for the 

* PRINT statement. There should only be two quotes in the 

* string. 

*/ 

rc - count_quotes ( XmTextGet St ring (scr_text) ); 
if ( rc !- 0 ) 

I 

user ack ("St ri ng is improperly formed, please remove quotes -> \""); 
return; 

1 

I 


if ( ! strlen (XmTextGet St ring (txt_cal l_ne) ) ) 

( ! 

user_ack ("Element name is empty"); 
popdown ( sym_type ); 

Mode - Edit Symbol; 
return; 

I 

/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point. 

•/ 


/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point! 

V 

if ( (sym_text = mal loc (strlen (XmTextGetSt ring (scr_text) ) +1) ) 

-- NULL) 

( 

userack ("Fatal error - Out of memory - couldn't malloeO"); 
elog (1 , "cbr_done 0 : couldn't malloeO PRINT/TEXT text"); 
return; 

) 


if ( (sym_text - ma 1 loc (st rlen (XmTextGetSt ring (txt_cal l_ne) ) +1 ) ) *=“ NULL ) 
( 

user_ack ("Fata 1 error - Out of memory - couldn't malloeO"); 

elog (1, "cbr_done () : couldn't malloeO GOTO text"); 

return; 

) 


/* 

* Copy the text in the widget to our data space in the symbol 

* structure. 

•/ 

strcpy( symtext, XmTextGet St ri ng (scr_text ) ); 
expr_text - NULL; 




break; 


case PAUSE: 

if ( ! check_pause_strlng (XmTextGetStrlng (txt_pause_value) ) ) 

I 

user_ack (“Error in Pause string - please reenter Pause symbol”); 
return; 

) 

/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point. 

*/ 

If ( (symtext - mal loc (strlen (XmTextGetStrlng (txtpausevalue) ) + 1)) 

( 

userack ("Fatal error - Out of memory - couldn't mallocO”); 
elog (1, "obr_done () : couldn't mallocl) PAUSE text"); 
return; 

1 

/* 

* Copy the text In the widget to our data space in the symbol 

* structure. 

*/ 

strcpy( symtext, XmTextGetStrlng (txt_pause_value) ); 
exprtext - NULL; 
brea k ; 

case IF: 
case SET: 

/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point. 

*/ 

If ( (sym_text = malloc (strlen (XmTextGetStrlng (scr_logic) ) +1) ) 

== NULL) 

( . 

user ack (“Fatal error - Out of memory - couldn't mallocO”); 

elog (1 , “cbr_done () : couldn't mallocO IF text”); 

return; 

1 

/* 

* Copy the logical text from the widget to our data space. 

*/ 

If ( strlen (XmTextGetStrlng (scr_loglc) ) ) 

strcpyl sym_text, XmTextGetStrlng (scrloglc) ); 

else 

sym_text = NULL; 

/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point. 

*/ 
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if ( (exprtext - malloc (strlen (XmTextGetStrlng (screxpr) ) +1) ) 

=“ NULL) 

( 

user_ack (“Fatal error - Out of memory - couldn't mallocO"); 

elog (1, “cbr_done () : couldn't mallocO IF text"); 

return; 

1 

/* 

* Copy the logical expresion text from the widget to our data 

* space. 

*/ 

If ( strlen (XmTextGetStrlng (scr_expr) ) ) 

strcpyf expr_text, XmTextGetStrlng (scr_expr) ); 

else 

expr_text - NULL; 

/•DEBUG*/ 

elog (3, “cbr done: expr_text : %s", expr_text); 

/* 

* Malloc some data space for the string. The symbol structure 

* contains a pointer only, we must get data space for the string 

* at this point. 

*/ 

If ( (comment_text - mal loc (strlen (XmTextGet St rl ng (scr_comment ) ) +1) ) 

— NULL) 

I 

userack (“Fatal error - Out of memory - couldn't mallocO”); 

elog (1, ”cbr_done () : couldn't mallocO IF text”); 

return; 

I 

/* 

* Copy the comment text from the widget to our local data space. 

•/ 

if ( strlen (XmTextGetStrlng (scrcomment) ) ) 

strcpy( comment_text, XmTextGetStrlng (scr_comment) ); 

else 

comment_text = NULL; 

/•DEBUG*/ 

elog (3, "cbr_done: comment_text : %s", comment_text ) ; 
break; 


/* 

* We have set the pointers In the symbol to the text strings from 

* the widget. Make sure the user entered some text. 

*/ 

/•DEBUG*/ 

elog (3, “cbrdone: sym_text: %s“, sym_text); 

If ( (symtext -- NULL) it (expr_text — NULL) ) 

I 

userack ("The expression Is emtpy; aborting edlt/create"); 
elog (1, "cbr_done; no syro or expr text; cancell Ing”) ; 
popdown( sym_type ); 

Mode - EditSymbol; 
return; 
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WHMI 

I 


/• 

* if we are editing a symbol, add new variables to existing var list; 

* else create new list. 

*/ 


if ( Mode EditSymbolContents ) 
add - 0; 

o l so 

add *• 1 ; 


/•DEBUG*/ 

elog (3, "cbr_done: building new var list for %s", XmTextGetString (scr_expr) ) ; 
/* 

* Update the symbol table and verify that the expression is correct. The 

* user may have entered an expression via the keyboard so we must check 

* to make sure it is correct. 

*/ 

if ( (sym_type -- IF) || (sym type «*** SET) ) 

{ 

If { bulld_new var 1 1st (XmTextGetString (screxpr) , add) ) 

i 

if (sym_type «■» IF) 


/• 

* can't have matrix in if expr 
V 

if ( matrix in_expr(expr text) !* SUCCESS ) 

I 

oser_ack('*IF expressions may not contain matrices*); 
return; 

) 

/• 

* check if expr for syntactic correctness. 

*/ 


if { expr text ) 
i 

i n - parse_expresslon (expr_text) ; 

if ( (n !« PARSE_SUCCESS) && { n ! — END_OF_FILE) ) 
i 

user_ack ("Syntax error in expression"); 
return; 

) 

) 

/* 

* Don't allow strings in IF expressions 

*/ 



* check set expr for syntactic and type correctness. 
V 


else if ( veri fyexpressiontype (expr_text, response) ! ™ VALID_EXPRESSION ) 

l ~ ‘ 

/•DEBUG*/ 

elog (3, “cbrdone; putting up user ack with str %s", response); 

user_ack( response ); 

return; 

) 

else 

/•DEBUG*/ 

elog (3, "cbr_done : valid expression"); 

) 

else 

return; 

> 

/* 

* the size of 4 of the symbol types is determined by their contents. 

*/ 

if I (symtype “-IF) ) ) (sym_type *** SET) ) I 

(sym_type — PRINT) | | (sym_type — TEXT) ) 

1 

/* 

* Set the symbol size. 

V 

If ( XmToggleButtonGet State (tgl_sym_si ze_l g) ) 

XtSetArg( argsfOj, XmNwidth, (Zoomed) ?op (76 + 120, 2) ; 76 f 120); 

else 

XtSetArg( args(O), XmNwidth, ( Zoomed) ?op (7 6 + 80, 2) : 76 t 80); 
XtSetValues( current_symbol, args, 1 ); 

/• 

* Set the symbol font. 

V 

if ( XmToggleButtonGet State (tgl_font_size_lg) ) 

XSetFont ( display, WAgc, WAFont - (Font) blg^font ); 

else 

XSetFont ( display, WAgc, WAFont = (Font) small_font ); 

1 

else 

XSetFont ( display, WAgc, WAFont = (Font) small_font); 

/* 

* Draw the symbol based on the text strings and the attributes (font, 

* symbol size). 

*/ 

draw_symbol ( sym_type, current_symbol, WAgc, WAFont ); 


if ( (sym_type -- IF) && (string i n_expr (expr text ) ) ) 

( 

userack ("St ri ng not allowed in IF expression"); 
return; 

1 

) 

/* 


/* 

* If editing symbol contents, try to claim cells for 

* newly resized symbol and lines entering and leaving it. 

*/ 

if (Mode -= EditSymbolContents) 

i 
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/* 

* retrieve this widget's Symbol_Map entry. 

*/ 


symbol = (Symbol *) get_sym_map_entry ( current_symbol ); 

/* 

* adjust the use counts of this string variables and the old version 

* of this string. 

*/ 


if ( (sym_type — IF) | | (sym_type -= SET) ) 

edlt_var_llst ( symbol->Sym.IfSym.comp_expr, XmTextGetString (screxpr) ); 


/* 

* Try to claim the cells of the (possibly) resized symbol; 

* If not, revert to previous size and text, else change Symbol_Map 

* fields for this symbol. 

*/ 

relnstal 1 ( ) ; 

Mode - EdltSymbol; 
upd_mode_panel () ; 

/* 

* adding this symbol may make the element complete; check and update. 

*/ 

If ( complete (0, LINES_AND_EXPR) — ERR ) 
updstatusf 1 ); 

else 

upd_status (0) ; 


/* 

* Take down the popup now that we are finished with our checks. 
*/ 

SavoNoodud -- True; 
popdown( sym_type ); 



/ft*************************************** <_ **************************************** 


MODULE NAME: check_lines () 

MODULE FUNCTION: 

This routine checks all the lines entering and leaving the newly resized symbol 
to ensure that they still enter or leave the new area size. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


void check_llnes| symbol ) 
Symbol * symbol; 


Ll neLl st 
LineSeg 


‘tempi 1st, 
‘next list; 
‘tempseg; 


/* 

* Find line(s) leaving symbol; send to check_l ineseg . The lines leaving 

* an IF are different pointers than other symbols because there are two 
‘ lines: TRUE and FALSE. 

*/ 


if ( symbol->symbol_type — IF ) 

1 

if ( symbol->Sym. IfSym. false_line ) 

checklineseg ( symbol->Sym. IfSym. false_line->line, symbol, OUT ); 
if ( symbol->Sym. IfSym. true_line ) 

check lineseg( symbol->Sym. IfSym. true_line->llne, symbol, OUT ); 

I 

else if ( symbol->next ) 

checklineseg ( symbol->next->line, symbol, OUT ); 


/* 

* Find line(s) entering symbol; send to check_lineseg. 

*/ 


if ( symbol->from ) 

{ 

templist =» {LineList *) symbol->from; 
next list - (LineList *) templist ->next; 
while ( templist ) 

( 

tempseg « templist->li ne->line; 

/* 

* Get to last seg in line, see if its still within symbol. 

*/ 

while ( tempseg->next ) 

tempseg - (LineSeg *) tempseg-*>next; 




check_lineseg ( tempseg, symbol, IN ); 


i # 
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templist - (LineLisc *) nextlist; 
lf ( nextlist ) 

nextllst =» (LineLlst * ) next list->next ; 
I 



*»< > ................................... 

MODULE NAME: check_l i neseg { ) 

MODULE FUNCTION: 

When a symbol shrinks, it is possible that a line that used to enter it at the 
bottom no longer does. This routine determines this case and deletes the line. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


a*************.************* **•*.*«•*< >* * , 

void check_l 1 neseg { lineseg, symbol, direction ) 

LineSeg ‘lineseg; 

Symbol ‘symbol; 
lnt directlon; 


switch ( 1 lneseg->orientat ion ) 

i 

case RIGHT: 
case LEFT: 

if ( 1 Lneseg->start y > (symbol->ulcy 4 - symbol ->he i ght ) ) 
I 


this lineseg no longer enters this symbol; delete the line. 


If ( direction =»=* IN ) 
I 


* get back to first seg in line, since that is where 

* find line cell starts from. 


} 


while l lineseg->prev ) 

lineseg - (LineSeg •) 1 i neseg->prev; 
I 

find_l i ne_cel 1 ( lineseg ); 
delete_line () ; 

) 

break; 
defaul t : 

/* 

• ignore UP /DOWN lines. 

•/ 


break; 

1 



/ 


< > * * 


:9lM/29 „ 

; mirntfl 
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MODULE NAME: check_pause_string () * 

MODULE FUNCTION: * 

This routine checks the value/units pair produced by the pause popup to ensure * 

that there is exactly 1 value and 1 unit, they are in the correct order, and * 

the unit is a recognized string. * 


************************************** *< _> *************************************** 

MODULE NAME: reclaim_line_cells {) 

MODULE FUNCTION: 

This routine reclaims the cells of line leaving out the bottom of a newly 
resized symbol, since they may have become symbol cells during the resizing. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************** ** ****«••***< >**•«•***•** 


int check_pause_string ( str ) 
char *str; 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


/ 


void 


reclaim_line_cel Is ( line, type ) 


Line Mine; 

int type; /* 0 for NEXT line, 1 for TRUE line, 2 for FALSE line */ 


char va lue l 3 ] , units(4], excess(l); 

Int i, j; 

/* 

* if >2 args in str, error. 

*/ 

If ( sscanf(str, “%s »s %s" , value, units, excess) !- 2 ) 
return ( 0 ) ; 

/* 

* if first string not a number, error. 

*/ 

j - strlen (value) ; 
for ( 1-0; l<j; 1++ ) 

if ( I lsdiglt (valueUI ) ) 
return ( 0 ) ; 

/* 

* if second fstring not a valid unit, error. 

*/ 


if ( (strcmp (units, "ms”)) 4& (strcmp (unit s, "sec")) && (strcmp (units, "min")) ) 
return ( 0 ); 

return ( 1 ) ; 


Li neSeg 

•tempseg - (LineSeg *] 

1 llne->line 

Symbol 

♦from - (Symbol *) 

line-*>f rom; 

Symbol 

•to ° (Symbol *) 

line->to; 

Li ne 

•copyl ine; 


/• 




* copy line before deleting it, and restore the copy 

*/ 

copyline = (Line *) copy_llne( line ); 

/* 

* set LDline(XY) to first cell in this line that is of line type 

*/ 

f ind_l ine_cel 1 ( tempseg ); 

/* 

* reclaim cells for each lineseg of line entering/leaving the bottom of 

* symbol. Delete line, then restore copy. 

•/ 

delete_l lne () ; 

tempseg - (LineSeg *) copyline->line; 

restore line ( tempseg, type, f rom->mycanvas, to->mycanvas ); 
free_line( copyline ); 
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MODULE NAME: redraw_label s {) 

MODULE FUNCTION: 

This routine redraws the labels of an IF/SET symbol, since they may have been 
obscured during the resizing. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* * .M.MM/ 


void redraw_labels ( symbol ) 
Symbol * symbol; 


) 


y » symbol->u)cy + att ribs. height ♦ 10; 
if { red raw_ label 1 ) 

/* 

* redrawing a false label. 

V 


{ 

XDrowStrlnyi display, XtWindow (draw_area 1 , 
symbol ->Sym. If Sym. fa lse_x » x; 
symbol -> Sym. IfSym. fa lse_y - y; 

1 

else 

I 

XDrawStrlng( display, XtWindow (draw area) , 
symbol ->Syra. If Sym. true_x - x; 
symbol ->Sym. If Sym. true_y - y; 

\ 

) 


LDgc, x, y, 


LDqc, x, y, 


XWl ndowAtt rlbutcs attribs; 

int redraw_label “ 0, 

x, y; 

if ( ! XGetWindowAttributes (display, XtWindow (symbol->mycanvasl , iattribs) ) 
error_handler ( ERR_SYM_ATTRIBS, "redraw_labels" ); 

/* 

* if true or false label is obscured by new size, 

* clear the old label and redraw It below symbol 

* we can get away with checking only down because 

* symbols currently only grow down 

*/ 

‘if ( symbol->Sym. IfSym. fa 1 se line ) 

{ 

If ( symbol ->Sym. I fSym. false_l ine->l ine->orlentat ion "■ DOWN ) 
redraw label <- 1; 

I 


else if ( symbol->Sym. IfSym. true_llne ) 

{ » 

If ( symbol->Sym. IfSym. true_line->line->orientation *== DOWN ) 
redraw_labol - 2; 

I 

/* 

* label is within symbol - clear it and redraw below the 

* lower edge 
V 


if ( redraw_label ) 

l 

if ( redraw label -- 1 ) 

ciear_text ( draw_area, symbol-:>Sym. I fSym. fal se_x, 
symbol --> Sym. If Sym. falsey, "FALSE" >; 

else 

clear_text ( draw_area, symbol->Sym. I fSym. t rue_x, 
symbol -> Sym. If Sym. true_y, "TRUE" 1; 



"FALSE", b 


"TRUE", 9 ) ; 


x - symbol->Licx + (attribs . width/2) + 10; 
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/***** * 

MODULE NAME: redraw_last_li neseg ( ) 

MODULE FUNCTION: 

This routine checks all lines leaving out the bottom of an IF/SET symbol; redraws an 
reclaims the ones that have been obscured during the resizing. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


if (templlst ->line — (Line *) tempsymbol->Sym. IfSym. false _1 ine) 
reclaim_line_cells ( templlst->line, 2 ); 
else if (templist->line •» (Line *) tempsymbol->Sym. IfSym. trueline) 
reclalra_line_cells ( templist->line # 1 >; 

I 

else if ( templlst ->line ==* (Line *) tempsymbol->next ) 
reclaim_line_cells ( templist->line, 0 ); 
tempi ist - (LlneList *) next list; 

if ( nextlist ) 

next list - (LlneList *) next list ->next; 

} 

} 

J 




void redraw_last_llneseg ( symbol ) 

Symbol ‘symbol; 

I 

LlneList ‘tempi 1st, ‘nextlist; 

Symbol ‘tempsymbol; 

LlneSeg ‘tempseg; 

/* 

‘ If symbol has line loavlng It out the bottom, reclaim Its colls 

•/ 


If ( symbol->symbol_type — IF ) 

( 

If ( symbol->Sym. IfSym. false_llne ) 

reclalm_llne_cells ( symbol->Sym. IfSym. false_llne, 2 ); 

If ( symbol->Sym. IfSym. true_l lne ) 

reclaim llne_cells( symbol-sSym. If Sym. t rue_i lne, 1 ); 

I 

else 

If ( (symbol->symbol_type==PRINT) | | (symbol->symbol_type==SET) ) 

If (symbol->next) 

reclalm_line_cel Is ( symbol->next, 0 ); 
l 

/* 

* If symbol has line(s) entering It thru the bottom, reclaim Its (their) cells 

*/ 


If ( symbol->from ) 

l 

templlst - (LlneList *) symbol->from; 
nextlist “ (LlneList *) templlst ->next; 
while ( templlst ) 

( 

tempseg - tempi! st->l ine->l 1 ne; 

/* 

* get to last segment In line; see If It Is going up 
»/ 

tempsymbol - (Symbol*) tempi ist->l ine->from; 

If ( tempsymbol->symbol_type — IF ) 

( 




* MODULE NAME: reinstall () 

* MODULE FUNCTION: 

* This routine changes the size and content fields in the Symbol_Map entry of 

* edited symbol . 


• REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* »<-- >•»*“»»* * •* 

int rei nsta i 1 ( ) 

1 

XWindowAtt ributes actribs; 

Symbol * symbol; 

Arg args (2) ; 

int type, 

attributes » 0; 


• Try to claim cells of possibly expanded or shrunken symbol. 

*/ 

symbol » (Symbol *) got_sym_map_ent ry ( cur rent_symbol ); 

XtSetArg( args (01, XmNuserData, ttype ); 

XtGetValues( current_symbol / args, 1 ); 

If ( ! cl a im_cel Is (current_symbol ) ) 

I 

/• 

* claim failed; reset links between text strings and symbols 

* to symbol map contents, unchanged by unsuccessful claim attempt 
V 

if (type — TEXT ) 

user_a ! ck ("Sorry, can't put text there"); 

el se 

user_ack ("Sorry, can't put symbol there**); 

/* 

* in case of if or set, reset comp_text 
*/ 

If ( (type IF) || (type == SET) ) 

( 

sym_text - symbol->Sym. I f Sym. loglcal_expr; 
expr_text “ symbol -> Sym. If Sym. compexpr; 

\ 

el se 

sym text » symbol ->texi ; 

/* 

* restore previous size; redraw symbol with old contents and size 

*/ 


XtSetArg( args(0J, XmNwidth, symbol->wldth ); 

XtSetArg( argsjl], XmNheight, symbol->height ); 
XtSetValues( current_symbol, args, 2 ); 

draw^symbol | type, current_symbol , WAgc, symbol->font ); 
return ( 0 ) ; 

) 


* claim worked; set Symbol_Map fields. 

*/ 

symbol -> font = WAFont; 

if ( (type — IF) | | (type « SET) ) 

( 

symbol ->Sym. IfSym. logical_expr - sym_text; 


set comp and comment symbol map fields to current global values 


symbol ->Sym. If Sym. comp_expr - expr_text; 
symbol ->Sym. I f Sym. comment * comment_text ; 

1 

If ( (type — START) | | (type — STOP) ) 

I 

if (J (struct symbolentry *) lookup symbol (NULL, sym^Lext ) ) 

{ 

attributes |- COMPREF; 

if ( add symbol _entry (NULL, sym^text, attributes, 0, 0, 0, 0, 0) ) 
error_handler ( ERR ADDJSYMBOL, "reinstall'' ); 

) 

/•DEBUG*/ 

elog (3, "relnstal 1 : for comp name %s, incr use count to 11”, 
symcext, increment_symbol_use_count ( NULL, sym_tcxt ) ); 

elog (3, "relnstal 1 : for comp name %s, deer use count to li", 
symbol->text , decrement_symbol use_count ( NULL, symbol->text ) ); 

I 

if ( type « GOTO ) 

I 

symbol ->Sym. El emSym. comp_type - CallType; 

If (! (struct symbol_entry M lookup_symbol (NULL, sym_text) ) 

[ 

/‘DEBUG*/ 

elog (3, " rei nsta 1 1 : element name %s not found; adding to sym tab", 
sym text ) ; 

attributes |- PRQCEDURE; 

if ( add_symbol_entry (NULL, sym_text, attributes, 0, 0, 0, 0, 0) ) 
error_handler ( ERR_ADD_SYMBOL, "reinstall" ); 

! 


/•DEBUG* / 

elog (3, " re Insta I 1 : tor element name Is, incr use count to II", 
symtext, lncrement_symbol_use_count ( NULL, symtext ) ); 

elog (3, "relnstal 1 : for element name Is, deer use count to %i", 
symbol->text , deer en<ont_symbol_use_count ( NULL, symbol->text ) ); 
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symbol->text - syra text; 


* redraw lines entering or leaving symbol bottom that symbol 

* has grown over. 

*/ 

If ( (type =■ IF) || (type -- SET) I I (type -- PRINT) ) 

( 

/•DEBUG*/ 

elog (3, "reinstall: checking lines"); 

check_lines( symbol ); 
redraw_last_llneseg ( symbol ); 

I 

If ( type -*■ IF ) 

redrawlabels ( symbol ); 

return ( 1 ); 

1 



• Include <stdlo.h> 

•Include <X11/Intrlnsic.h> 

•Include <Xm/Xm.h> 

• include "gcb.h" 

• include "obr.h" 

• Include "wi dgol.y . h" 

•Include “constant s . h" 

•Include "plxmaps . h" 

•Include "tokens. h" 

XmString pal_header, 

blank_header; 

char help_help_str ( 1 « 

"This popup allows the user to view the help text \nfor the Graphical Comp Builder. The 
user may use the scroll \nbars to scroll through the help text. Select close \nto clos 
e this window and return to the help text."; 


void bulld_help( parent ) 

{ 

Pixmap pixmap; 

Pixel background, 
foreground; 

X Imago ‘image; 

Arg args[2); 

/* 

* create context_dependent headers for popup. 

•/ 

pal_header = XmStr ingCreate { "Click on palette Items for more help", 

XmSTRING_DEFAULT_C HARSET ) ; 

blankheader - XmStr ingCreate { " ", Xm ST RINGDEFAULTC HARSET ); 

/* 

* create display file popup 

*/ 

dlg_flle - cr_popup( NULLS, parent, "Help" ); 

FormW - cr_form ( NULLS, dlg_file, NULL, NULL ); 

txt_f lie - cr_text { NULLS, FormW, NULL, NULL,"", TRUE, 20, 65 )? 

/* 

* set help text widget ineditable. 

V 

XtSetArgt args 10), XmNedltable, FALSE ); 

XtSetValues( txt file, args, 1 ); 

XtSctArg( args(0J, XmNforeground, ^foreground ); 

XtSetArg{ argsjl), XmNbackground, ^background ); 

XtGetValues( dlgfile, args, 2 ); 

image = (Xlmage *) CreateDefaul t Image { infoBlts, 11, 24 ) ; 

Xmlnstal llmage ( image, "info_img" ); 

pixmap - XmGetPlxmap( Xt Screen idlg fi le) , "lnfo^img", foreground, background )? 

plx help « cr plxmap( NULLS, FormW, iplxmap, 75, IGNORE, 10, IGNORE ) ; 
lbl~file » cr^label ( NULLS, FormW, " ", 0, 76, 80, 25, IGNORE ); 

cr_separat or ( NULLS, FormW, 87, 89, 0, 100 ); 


Ncr_rel_cmd ( NULLS, FormW, "Close", cbr_cancel, FlLE_OK, 93, 10 ); 

Ncrrelcmd ( NULLS, FormW, "Help", cbr~help, HELPHELP, 93, 70 ); 
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/• 

* create display help for help popup 
*/ 

dlg_help - cr_ popup ( NULLS, dlg_flle, "Help for Help" ); 

FormW « cr_form ( NULLS, dlg_help, NULL, NULL ) ; 

cr label ( NULLS, FormW, help help str, 0, 10, IGNORE, 5, 95 ) ,- 
<:r separator! NULLS, FoimW, 6b, 70, 0, 100 ); 

Ncr_rel_cmd( NULLS, FormW, “Close", cbrcancel, HELP_HEI,P_CANCEL, 81, 38 ); 
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^»***»******tl»***************************<__— __>*****************!*********************** 
* 

* MODULE NAME: cbrhelpO 

* 

* MODULE FUNCTION: 

* 

* This routine pops up a help window. The contents of the window depend on which 

* menu item in the help menu the user has selected. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

>*•***********••*•**•**«**«*«««*«****•*«*/ 

XtCallbackProc cbr_help( w, help_index, call_data ) 

Widget w; 

int help index; 

caddr t call_data; 


Arg args [ 5 ) ; 


* The user wants HELP on the HELP text displayer. 


if ( help_index « HELP_HELP ) 

1 

XtManageChi Id ( dlg_help ); 
return; 

\ 

/* 

* If the user has selected the help palette area button, change the mode so 

* that when one of the palette items is clicked, text specific to that item 

* appears in a popup. 

V 

if ( help index PALETTE_AREA ) 

1 

XtManageChild { pix_help ); 

Mode * Help; 
upd_mode_panel () ; 

XtSetArg ( args[0), XmNdialogStyle, XmDIALOG_MODELESS ); 

XtSetValues( dlgfile, args, 1 ); 

XtSetArg ( args [01, XmNlabelStrlng, pal_header ); 

} 

else 

{ 

XtUnmanageChild ( pix_help ); 

XtSetArg ( args[0], XmNlabelStrlng, blank header ); 

1 

XtSetValues( lblfile, args, 1 ); 

/♦DEBUG* / 

elog(3,"cbr help: cd = %i", help_index); 



build a temporary file containing help text for the selected subject. 





* and display It in the popup. Load_holp_H le Is passed a string to search 

* for in the help file. 

*/ 


load_help_f i le ( tokens ( hel p_index| ); 
display_fi le { HELP, "/tmp/gcb. tmp" ); 

/* 

• Delete the temporary file. 

*/ 


if ( system(“rm /tmp/gcb. tmp >>/tmp/gcb. err 2>sl") ! = OK ) 
t 

user_ack ("Unable to delete: /tmp/code . tmp - help text temporary file"); 
elog (1 , "Unable to delete: /tmp/code. tmp - help text temporary file"); 

) 


! 
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M.i.M.M* 

* FILE NAME: cbr_if.c 

* 

* FILE FUNCTION: 

* 

* This file contains the routines which pop up if/set symbol creation popups. 

* 

* 

• FILE MODULES: 

* 

* bui ldlogattribs ( ) - builds popup to input font and size of logical symbols. 

bull d_log_popup () - builds Logical Expression popup, to enter logic expressions 

- takes down the attributes popup. 

- responds when user presses the "parse expression" button. 

- responds when user presses the IF or SET button. 


cbr_attr lbs_done () 
cbr_ parse () 
cbr i f () 


•include <stdio.h> 

•Include <X1 1/Intr insi c. h> 

•include <Xm/Xm.h> 

•Include <Xm/MwmUt i 1 . h> 
•include <Xm/Se 1 ect i oB . h> 

•Include "gcb.h" 

•Include "cbr.h" 

•include "widgets. h" 
•Include "symbol. h" 
•include "gcb_pa rse . h" 
•Include "next_inputs. h" 
•include "consta nt s . h" 


MODULE NAME: bui ldlogattr ibs () 

MODULE FUNCTION: 


k ^ _ _ * * Air** * * * * * 


This routine builds the popup to input the font and symbol size of logical 
symbols. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/20/91 


* * * * 


void buildlogattribs ( parent ) 
Widget parent; 


dlg_loglc_attrlbs = crpopup { NULLS, parent, "Symbol Attributes Input" ); 

FormW = cr_form( NULLS, dlg_logi c_att ribs, NULL, NULL ); 
set_attrlbs ( FORM, FormW, 300, 250, XmRESIZE NONE ) ,* 

cr_label ( NULLS, FormW, "Symbol Size:", 0, 31, IGNORE, 15, IGNORE); 

rb_sym_size • cr_radlo_box ( NULLS, FormW, XmHORI ZONTAL ); 

tgl_sym_size_lg » cr_toggle( NULLS, rbsymsize, "Large", NULL, 0, 0) ; 
tglsymsizesm ** cr_toggle{ NULLS, rb_sym_size, "Small", NULL, 0, 0); 
arm_tgl{ tgl_sym_size_sm ); 

cr_label ( NULLS, FormW, "Font Size:", 0, 45, IGNORE, 15, IGNORE); 

rb_font_slzo “ cr_ radlo_box ( NULLS, FormW, XmHORI ZONTAL ); 

tgl_font_size_lg = cr_toggle( NULLS, rb_font_size, "Large", NULL, 1, 1 ); 
tgl_font_size_sm = cr toggle ( NULLS, rb font si ze, "Small", NULL, 2, 2 ) ; 
arm_tgl { tgl_font_slze_sm ); 

cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ) ; 

CancelW = cr_command( NULLS, FormW, "Cancel", cbr_att ribs_done, 0 ); 


DoneW 

HelpW 


cr_command( NULLS, FormW, "Done", 
cr_command{ NULLS, FormW, "Help", 


cbr_attribs_done, 1 ); 
cbrhelp, SYMATTRJ1ELP ); 


set 

position ( 

rb_sym_size, 

28, 

IGNORE, 

50, 

IGNORE) 

set 

position ( 

rb_font_size, 

42, 

IGNORE, 

50, 

IGNORE) 

set 

position ( 

CancelW, 

90, 

IGNORE, 

2, 

IGNORE) 

set 

position { 

DoneW, 

90, 

IGNORE, 

35, 

IGNORE) 

set 

position ( 

HelpW, 

90, 

IGNORE, 

70, 

IGNORE) 
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* *< > «*■**•***•*****••••**•<.****•**•****•***• 

MODULE NAME: bu i 1 d_ 1 og__popup ( ) 

MODULE FUNCTION: 

This routine builds the Logical Expression popup. The popup built by this routine 
is used to enter the logical expressions In DECISION and SET symbols. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


*< > * 


void bu i 1 d_log_popup ( parent ) 
Widget parent; 


( 


Arg 


args C 5 J ; 


CancelW = cr_command( NULLS, FormW, 

btn_logi c^att r lbs = cr_command( NULLS, FormW, 

DoneW = cr_command( NULLS, FormW, 

HelpW - cr_command ( NULLS, FormW, " 

set_posi t ion ( btn_logic_parse, 38, IGNORE, 6, 

setposlt ion { CancelW, 96, IGNORE, 5, 

set posltlon ( btn_logic_att ribs, 96, IGNORE, 29, 

set poslt Ion ( DoneW, 96, IGNORE, 54, 

set_posi 1 1 on ( HelpW, 96, IGNORE, 80, 


• Build the logical expression sub-popups . . . 
V 


Build the variable declaration sub-popup. 


Cancel " , cbr 

Attributes", cbr 


Done”, 

Help", 

IGNORE) ; 
IGNORE ) ; 
IGNORE ) ; 
IGNORE ) ; 
IGNORE ) ,* 


cbr 

cbr 




cancel , 2) ; 
done, 0); 
done, 1); 

'help, LOGIC POPUP) 


( dlg_logic ); 
Build the number Input sub-popup. 


build__Iocal_input 

/* 

*/ 


dlg_loglc - cr_popup ( NULLS, parent, "Logical Expression Input" ); 

Xt SetArg ( args[0), XmNdlalogStyl e, XmDIALOG_MODELESS ); 

XtSetValues( dlglogic, args, 1 ); 

FormW - cr^form (NULLS, dlg^loglc, NULL, NULL ); 
set_at tribs ( FORM, FormW, 500, 650, XmRESI ZE_N ONE ); 

scr_logic - cr_scr_text ( NULLS, FormW, 8, True, 250, 175, 25 ); 

XtSetArg( args(O), XmNscroll 1 ngPol icy, XmAUTOMATIC ); 

XtSetValues( serologic, args, 1 ); 

scr expr - cr^scr^text ( NULLS, FormW, 8, True, 250, 175, 200 ); 

Xt Sot Arg ( args ( 0 ) , XmNscrol 1 lngPol icy, XmAUTOMATIC ); 

Xt Set Va 1 ucs ( scr expr, args, 1 ); 

scr_comment - cr_scr_text ( NULLS, FormW, 10, True, 450, 30, 400 ); 

XtSetArg( args [01, XmNscrollingPol Icy, XmAUTOMATIC ); 

XtSetValues( scr_comment, args, 1 ); 

/* 

• create labels tor text windows 

•/ 

cr_label ( NULLS, FormW, "Logic Description : " , 0, 6, IGNORE, 6, IGNORE ); 

cr_label ( NULLS, FormW, "Comp Expression:", 0, 33, IGNORE, 6, IGNORE ); 

cr_Iabel ( NULLS, FormW, "Description:", 0, 56, IGNORE, 6, IGNORE ); 

/* 

• create button for parsing expr 

*/ 

bt n__logic_pa rse - cr_command (NULLS, FormW, "Parse Expression", cbr_parse, 0) ; 
/* 

• create buttons for done and cancel 

*/ 


build__var_input_popup ( dlg_loglc ); 

/* 

* Build the defined function selection sub-popup. 

*/ 

bulld_def_fn_lnput_popup ( dlg_logic ); 

/* 

* BuLld the string sub-popup. 

*/ 

build st r_ popup ( dig logic ); 

/* 

* Build the sub-popup to input types of undeclared variables 
*/ 

build_unknown_type_popup ( dlg_ logic ); 

) 


cr_soparator ( NULLS, FormW, 91, IGNORE, 1, 99 ); 




* MODULE NAME: cbr_at t r ibs_done () 


* MODULE FUNCTION: 

* This routine takes down the attributes popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

A**************************.*,******** **< >* •* * ******* 

XtCal IbackProc cbr_att ribs_done ( w, client__data , unused) 

Widget w; 

int client_data; 

caddr_t unused; 

{ 

XlUnnnuagcChl Id ( dlg_loy ic_att ribs ); 




MODULE NAME: cbr_parse() 


MODULE FUNCTION: 

This routine responds when user presses the "parse expression" button. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 


* Release 1.02 - 08/28/91 

/ ****************** .********•*******< >****************************************/ 

XtCal IbackProc cbr_parse{ w, client_data, unused ) 

Widget w; 

int client_data; 

caddr_t unused; 

{ 

Arg args 1 1 | ; 

int type, i; 

char response [80 ) ; 


if ( ! st rcmp (XmTextGet St ri ng (scr cxpr) , NULLS) ) 

[ 

/* 

* no text to parse, initialize buttons according to symbol type. 

V 

XtSetArg( args (01, XmNuserData, itype ); 

XtGetVal ues ( current_symbol, args, 1 ); 
if ( type — IF ) 

lnit_lnputs( -1 ); 
else inlt_inputs{ -2 ); 
inval idate buttons () ; 
return; 

} 

/* 

* determine types of all vars, then verify types in expression. 

V 

if ( bui ld_new_var_l ist (XmTextGetSt ring (scr_expr) , (Mode==AddSymbol) ? 1:0) ) 

1 

if ( (i - veri fy_expression_type (XmTextGetStrlng (screxpr) , response)) !■= 
VALI DEXPRESSION ) 

( 

user_ack ( response ) ; 
return; 

) 

) 

else return; 


) 


do parse () ; 


/ 


< > 



MODULE NAME: cbr_if() 

MODULE FUNCTION: 

This routine handles events when the user presses the IF or SET button. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*•***.*.«*».•*.*».,•»...**•* < >• * **••*•*•**••*.. •„•,**.,*«* 


XiCa 1 1 backProc cbr_it( w, clientdata, unused ) 

Widqet w; 

caddr_t cl lent__data; 

caddr^t unused; 

t 

Arg a rgs ( 2 1 ; 

XWlndowAtt ributes wattrlbs; 

XmStrlng eqstrlng; 

/• 

* if mode Is already add symbol, cancel the add and reset the mode 
V 


if ( Mode — AddSymbol ) 

I 

cancel_draw () ; 
return; 

1 


/‘ 

* If we are in help palette area mode, popup help for the chosen 

* palette item. 

V 


if ( Mode *=• Help ) 

I i 

cbr_help{ w, (int) cl ient_data, unused ); 
return; 

I 


if ( Mode !» EditSymbol ) 
return; 

/• 

* Make sure we have a valid element, can't add a symbol If wo don't 

* have a valid element. 

*/ 

if (! ValldElement ) 

{ 

error_handler ( NO_ELEMENT, NULL ); 
return; 

I 


/ 


cbrjf.c 


/ 



* Currently, the GCB does not allow the user to add symbols which affect 

* the Comp symbol table to be added to a Library Element. 

*/ 

if ( ElementType »- LIB ) 

I 

error_handler ( LI B_ELEM_SYM, NULL ); 
return; 

I 

/* 

* record last chosen symbol type. 

V 

Invert ( (1 nt ) cl i cntda ta ); 

/* 

* See If we have data structures for another symbol. 

*/ 

if { (next_avall_sym () ) < 0 ) 
return ; 

Mode - AddSymbol ; 
upd mode panel {) ; 

/* 

* Set the dimensions of the symbol according to Its type and whether or 

* not we are zoomed. 

V 

if ( ! XGetWindowAttrlbutes (display, XtWindow (w) , swattribs) ) 
error handler ( E RR_S YM_ATT RIBS, "cbr_if M ); 

XtSetArg( args(O), XmNwidth, (Zoomed) ?op (wattribs. wi dt h« 80, 2) : 
watt ribs. width + 80 ); 

XtSetArg( args(l], XmNuserData, (int ) cl ient_data ); 

XtSetValues( current symbol , args, 2 ); 

/* 

* initialize expression input buttons according to type of 

* expression being created. 

*/ 

if ( (int ) cl ient_dat a IF ) 
init_inputs( -1 ); 

else 

init_i nputs ( -2 ) ; 
inva 1 idate_but tons () ; 

/* 

* Set "equals” button to or according to whether we are 

* in a SET or an IF. 

*/ 

XtSetArg (args [0] , XmNlabel St ring, &eq_string); 

XtGetValues (eqbtn, args, 1); 

XmStringFree (eqstrlng) ; 

if ( (int) cl ient data =■* IF ) 

eq_string ** XmSt ri ngCreate ( XmSTRING_DEFAULT__CHARSET ); 

else 

eq_strlng = XmSt ri ngCreate ( XmSTRING_DEFAULT_CHARSET ); 



If nmtitiM 

XtSetArgl args(O), XmNlabelString, eq_string ); 

XtSetValues ( eq_btn, args, 1); 

XmSt rlngFree ( eq_string ); 

/* 

* initialize global variables so parser knows where it Is and what 

* type ot expression It Is parsing. 

V 

WhereAmI «* LHS; 
paren_count » 0; 

If { (int) client_data — SET ) 

SetSym -1; 

cl so 

SetSym » 0; 

/* 

* take down the palette items window and overlay its space with 

* the expression input buttons. 

*/ 


XtUnmapWidget { f rame_palet te ); 
XtMapWidget ( f rame_math_jnenu ) ; 
XtManageChild { dlg_logic ); 
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FILE NAME: cbr_mGnu.c 

FILE FUNCTION: 

This file contains the routines which respond to events in the popup and 
pulldown menus. 


FI l.E MODULES: 


al ter_endpts () 
al ter_f inal_endpts l) - 
cbr_set_anchor () 
check_zoomed_l ine ( ) - 
cvt_to_str_array 0 
delete_boxO 
menu_proc() 
op {) 

pix_centeri ng_height () 
pix__right__margln () 
pi x_left_margin {) 
pix_to_ps() 
pr 1 nt^a r rows ( ) 
pri nt_f rom_l Ines () 
pr lnt_symbol s () 
set_arrows {) 
zoom {} 

zoom symbols () 
zoomllnesO 


increases or decreases endpts of the segments of a line 
alters final endpt of line so that It is not in a symbol, 
sets the mode of the box being drawn and changes cursor, 
ensures that zoomed ln/out line doesnt encroach on anything 
surrounds each word In the parameter string with parens 
deletes all symbols and lines in banded box. 
responds to events In the popup menu, 
sets zoom units. 

- sets the margins tor postscript output, 
sets the margins for postscript output, 
sets the margins for postscript output, 
converts postscript units to pixels and vice versa, 
prints line arrows in postscript. 

prints In postscript the lines that enter each symbol, 
prints in postscript the form and text of each symbol, 
sets the proper endpts of a line to show the arrows, 
zooms In or out. 

resizes all the symbols, then redraws them, 
resizes all the lines, then redraws them. 

• *•»•«**»•*«**< 


/ 


* > 

* 

* MODULE NAME: al ter_endpt s () 


* MODULE FUNCTION: 

* This routine increases or decreases the endpts of the segments of a line 

* during a zoom. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/11/91 

* Release 1.02 - 00/28/91 

* >•••••* / 

void a 1 ter_ endpts ( line, size ) 


Line 

* 1 ine; 


int 

size; 


Li neSeg 

•tempseg «= 

(LineSeg 

void 

alter_f Inal 

endpt (I 

/• 




* Cet to beginning of list 
V 

while ( tempseg->prev ) 

tempseg - (LineSeg * ) tempseg->prev; 


Include <stdlo.h> 
include <X1 1/Intrinsl c. h> 
include <Xm/Xm.h> 


/• 

• Alter all the endpts of each segment 
*/ 


i ncl ude 
Include 
i nclude 
1 nclude 
i nclude 
1 nclude 
1 nclude 
Include 
include 


•*gcb. h'* 

"ebr . h" 
"widgets . h" 
"menu . h" 

M 1 ines. h" 
"constants. h" 
"fonts. h"! 
"cursors . h** 
"print . h" 


define IN 1 
define OUT 2 


while { tempseg ) 

[ 

tempseg->end_x = op( tempseg->end_x, size ); 
tempseg->end_y » op( tempseg->end_y, size ); 
tempseg->start_y - op( tempseg->start_y, size ); 
tempseg->start_x « op{ tempseg->start_x, size ); 

tempseg->cel l_end_x “ tempseg->end_x / CELL_SI2E; 
tempseg->cel l_end_y = tempseg->end_y / CELL_SIZE; 
tempseg->cell_start_x « tempseg->start_x / CELL_SIZE; 
tempseg->cel l_start_y ** tempseg->start_y / CELL_SIZE; 

if { ! (tempseg->next ) ) 


/• 

* last llnesog of line, alter endpts so that the 

* lineseg's last pt isnt within the symbol It connects. 

*/ 


alter_f i nal_endpt ( tempseg, line ); 

tempseg - (LineSeg * ) tempseg->next ; 

) 
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MODULE NAME: alter_final endpt ( ) 


MODULE FUNCTION: 


This routine alters the final endpt of a line so that it is not 
the destination symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void alter_final_endpt ( lineseg, line ) 

LineSeg "lineseg; 

Line Mine; 


Symbol *to ~ (Symbol *)line->to; 


* last lineseg of line, alter endpts so that the 

* lineseg' s last pt lsnt within the symbol it connects. 
V 

switch ( 1 ineseg->orientation ) 

[ 


* depending on orientation, set final cell_(xyl 

*/ 


case UP: 

linescg->cel l_cndj » to->cell_y + to->cel l_he ight f 1; 
break; 
case DOWN: 

lineseg->cel l_end_y = to->cell_y - 1; 
break; 
case LEFT: 

lineseg->cel l_end_x - to->cell_x + to->cel l_width + 1; 
break; 
case RIGHT: 

lineseg->cel l_end_x = to->cell_x - 1 ; 
break; 

) 
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MODULE NAME: cbr set anchor O 


MODULE FUNCTION: 

This routine sets the mode of the box being drawn and changes the cursor. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


void cbr_set_anchor ( w, client_data, call_data ) 
Widget w; 

int client_data; 
caddr_t calldata; 


MODULE NAME: change lineO 


MODULE FUNCTION: 

This routine changes the endpts of each seg of a line, then redraws it with 
new endpoints. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void change_line( lineptr, size ) 

Line ‘lineptr; 

int size; 


user wants to draw a print, delete, copy, or move box. Set the mode and 
change the cursor. 


if ( Mode — EditSymbol ) 

I 

if ( client_data -- PrlntBox ) 

Mode » Print Box; 

else if ( client_data == DeleteBox ) 

Mode - DeleteBox; 
else if ( cllent_data =» CopyBox ) 

Mode - CopyBox; 

else if ( client__data == MoveBox ) 

Mode - MoveBox; 
upd_mode_ponol () ; 

XDef IneCursor ( display, XtWindow (draw_area) , ul_cursor ); 

J 


void al ter_endpts () ; 

int linetype, x, y; 

LlneSeg *temp_line - 1 inept r->l i ne, ‘labelPtr; 

Symbol ‘from - (Symbol *) 1 inept r->from; 

void set_arrows () ; 


‘ change endpts of linesegs of lines entering symbol; then redraw 
* them. 

*/ 

if (1 ineptr ! - NULL ) 

{ 


‘ alter endpts of each lineseg 
V 

al ter_endpts { lineptr, size ); 
if ( f rom->symbol_type «• IF ) 


• determine which kind of line we are drawing. 

*/ 


if ( f rom->Sym. I f Sym. true_l ine *»» lineptr ) 

Line type - 1; 

else if ( from->Sym. I fSym. false_l ine *»« lineptr ) 
linetype » 2; 

el se 

{ 

user_ack ("1 ine doesn't match either true or false line of from"); 
elog (1, “line doesn't match either true or false line of from”); 
exit ( ERR ) ; 

I 

} 


llne_type = 0; 
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/• 

* Go thru linesegs; for each, Set LD[start stop] | X Y ) and redraw line. 
*/ 


while ( temp^line ) 
i 

LDstartX - temp_line->start_x; 
LDstartY - temp_line->start_y; 
LDendX = t emp_l i ne~>end_x; 
LDendY « t emp_l i ne->end_y; 
set_line () ; 

if ( ! (temp_line->next ) ) 

{ 



y = from->ulcy - 5; 

) 

/* 

* Draw label. 

*/ 


if ( line_type -■ 1 ) 

XDrawString{ display, XtWl ndow (draw area ) , LDgc, x, y, 
"TRUE", strlen ("TRUE" ) ) ; 
else if { line_type -» 2 ) 

XDrawString( display, XtWi ndow (draw_area ) , LDgc, 
x, y, "FALSE", st rlen {"FALSE" ) ),* 

) 


/* 

* final segment; set arrow pt and draw arrows 
*/ 


/‘ 

* Record label in symbol structure. 

*/ 


set_arrows( temp_line ); 
if ( line_type ) 

1 

if ( line_type 1 ) 

labelPtr - (LineSeg *) from->Sym. IfSym.true_line->line; 
else if ( line_type -•> 2 ) 

labelPtr - (LineSeg *) from->Sym. If Sym. false_line->line; 

else 

{ 

user ack (" 1 nva 1 id line type In change line!"); 
ex it ( ERR ) ; 

) 


/* 

* Determine where to put the label. 
V 


if { labelPtr->end_x > 1 abel Pt r->start_x ) 

1 

/* 

* horizontal line moving to the right. 

V 

x = from->ulcx + from->width + 2; 
y “ labelPt r->start_y - 10; 

1 

else if { labe lPt r->end_x < labelPt r->start_x ) 

i 


/* 

* horizontal line moving to the left. 
V 


x ~ from->ulcx - 40; 
y « labelPt r->start_y - 10; 

) 

else if ( labelPtr->end_y > labelPtr->start_y ) 

i 

x = labelPtr->start_x + 10; 
y “ fromoulcy + from->height + 10; 

} 

else if ( labelPt r->end_y < labelPtr->start_y ) 

[ 


if ( 1 i ne_type == 1 ) 

( 

f rom->Sym. I f Sym . t rue_x « x; 
from->Sym. I fSym. true_y ■ y; 

} 

else 

1 

from->Sym. I f Sym. fa lse_x - x; 
f rom->Sym. IfSym. false_y - y; 
\ 

\ 

temp_llne » (LineSeg * ) temp_l i »o->next ; 

} 


X “ 


labelPtr->start x + 10; 
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MODULE NAME: check zoomed line() 


MODULE FUNCTION: 


This routine ensures that a zoomed in/out line doesnt encroach on anything else. 
This can happen because the relative size of symbols may change In zoomed mode 
due to Motif's inability to scale fonts. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


Int check zoomed llne( line ) 


MODULE NAME: cvttost r_a rray (> 


MODULE FUNCTION: 


This routine surrounds each word in the parameter string with parens — 
makes postscript creation easier. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


Line ‘line; 


char *cvt_to_str_array {string, result) 
char ‘string, ‘result; 


LlnoSeg 'tempseg; 

int 1, line length; 


* for each segment In the line, check each cell to see if it is already 
‘ occupied. If so, return error. 

*/ 


tempseg » (LincScg * ) 1 i ne-> 1 i no; 
while (tempseg) 

I 


* check only horizontal line segments; vertical segments can't be 

* grown over by symbols. 


if ( (tempseg->orientat 1 on !» UP) && 

(t empseg->orlentat ion !- DOWN) ) 

{ 

llne_l,enqth - abs (tempseq->cell_end_x - tempseq->cel i_start_x) ; 
for (l-tempseg->cell_start_x; l<line_length; 

(tempseg->orientatlon ~ RIGHT) ? 1 + + : i — ) 

1 

if (Cel l_Map (tempseg-> cel l_s tart _y ) (1) .cell_type == SYMBOL_CELL) 
if { (Cell_Map[tempseg->cell_start_y ]( i ) .cellentry. symbol 
!*• (Symbol *) line->from) 

(Cell_Map(tempseg->cel l_start_y] [i J . ce 11 ent ry. symbol 
! - (Symbol * ) 1 lne->to) ) 
return ( 0 ); 

) 

) 

tempseg - (LineSeg * ) tempseg->next ; 

) 

return ( 1 ); 


char *p * string; 
Int l - 1; 


if string is null, return [{ \\ 


if ( string NULL ) 
I 

result (0 J - ' ( ' ; 
result [1J - ' ('; 
result[2J - ' 
result (3) - ' ) ' ; 
result (41 - ' ] ' ; 
result (5 J = ' \0' ; 
return; 

} 

result 10] - ' l ' ; 
while { * p) 
i 

result (1\ = ' (' ; 


parens themselves are special cases — make them separate strings 


if ( (*p -« ')') It (*P — ' (') ) 
l 

result [++1 1 « ' W ; 
result (♦♦1J * *p; 

1 


* put In marker for newline 
*/ 

else if (‘p ' \n' ) 

( 

result [ + + i ] = ' ; 

result [ + t i ] = ' 0 ' ; 


I 
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w.' 



) 


else if (*p «» 


{ 

result [++i ] 

I 


else 

/* 

* word - skip until end of word. 

*/ 


1 

while ( (*p) ss (‘p ! « >\n'| ss (*p ! - ' ') 
«t (*p !- • ) ' ) a (*p !-'(') ) 

( 

result [ + + 1 1 - *p++; 

I 

*p— ; 

) 


/* 

* terminate in paren 
V 

result 1 1 ti | - ■ ) > ; 

/* 

* advance pointer along string 

*/ 

if <*p) 

( 

*pt+; 

1 + + ; 

I 

I 

result ( H * | - ' ( ' ; 
result [1] - '\0'; 
return! result | ; 
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* 

* MODULE NAME: delete_box() 

* 

* MODULE FUNCTION: 

* 

* This routine deletes all symbols and lines in banded box. 



* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***** > * ****************************** *********/ 

void delete_box( bulcx, b_ulcy, b_lrcx, b_lrcy, prompt) 

int b^ulcx, bulcy, b_lrcx, b_lrcy, prompt; 

I 

int 1, lrcx, lrcy, t o_be_de 1 et ed - 0; 

/* 

* give the user a chance to recant. 

*/ 


if ( (.'prompt) || (ask ("No Undo: OK to delete?")) ) 
l 

/* 

* go through Symbol_Map; if a symbol's dimensions are 

* at least partially within the delete box, delete the 

* symbol. 

V 

for ( i = 0 ; 1<MAX_SYMB0LS; i + + ) 

{ 

if (Symbol _Map ( i | . symbol _typo !- NONE) 

( 

/*■ 

* determine lower right corner of symbol 

*/ 


lrcx - Symbol_Map[ i ] . ulcx + Symbol_Map ( i | .width; 
lrcy = Symbol_Map[ i ] .ulcy + Symbol_Map [ i ]. height ; 

/* 

* if either left or right coordinate of the symbol within box ... 

*/ 

if { ( (lrcx > b_ulcx) && (lrcx < b_lrcx) ) || 

( (Symbol_Map( i } . ulcx > b_ulcx) && (Symbol_Map( i J . ulcx < b_l rex) )) 
I 

/* 

* if either top or bottom coordinate of the symbol within 

* box, delete symbol. 

V 


if ( (lrcy > b_ulcy) && (lrcy < b_lrcy) ) 
to_be_deleted = TRUE; 
else if ( (Symbol Map [i J . ulcy > bulcy) & & 



•'<: ■ ■' 
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(Symbol_Map[ i ) .ulcycblrcy ) ) 
t°_be_del e ted - TRUE; 

1 

if ( to_be_deleted ) 

remove_symbol ( Symbo]_Map[ i J .mycanvas ); 
to_be_de leted - FALSE; 

} 

I /‘for*/ 

) /-if*/ 

el se 


/• 

* user has recanted; just redraw the symbols in proper colors. 
*/ 


clear audl t () ; 


Mode - EditSymbol; 
upd_mode_panel 0 ; 
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highl ight_sym_lines ( 4 Symbol Map ( i ] , FALSE); 

) 

to be_highlighted «■ FALSE; 

} 

) /* tor* / 


>***..* 

* MODULE NAME: menu _proc() 

* MODULE FUNCTION: 

* This routine responds to events in the popup menu. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*•**•**«•*«•*•*»*•***»•«•«»•*««**••*•*<; >*********** 


void menuprocfw, closure, call_data) 

Widget w; 

int closure; 

caddrt call_data; 


( 

void 


zoom () ; 


) 




if ( closure -« 3 ) 

{ 

/* 

* zoom only In edit symbol mode 
*/ 

if ( Mode == Ed It Symbol ) 

{ 

if ( Zoomed ) 

zoom ( IN ); 

el se 

zoom ( OUT ) ; 

) 

) 






/ 

* MODULE NAME: op () 

* MODULE FUNCTION: 

* This routine sets zoom units. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int op(polnt, size) 
int point, size; 

I 

/" 

* if we are zooming out, return a fraction of the unit 

•/ 

if { size — OUT ) 

return ( point * 0 / 12 ) ; 

else 

/• 

* if we are zooming in, return a multiple of the unit 
•/ 


I 


return ( point * 12 / 8 ) ; 



* 

* MODULE NAME: pix_center ing_height (> 

* plx_rlght margin () 

* pix_left_margln () 


MODULE FUNCTION: 

These routines set the margins for postscript output. 


* REVISION HISTORY: 

* 

/ 4 Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

4 Release 1.02 - 08/28/91 

* 

int pix_centering_height () 


/* 

* postscript vertical units start from the bottom of the page, X vortical 

* units start from the top; this routine compensates for postscript by 

* returning the offset necessary to subtract from X units. 

V 

if ( Pri ntScai e — REDUCED ) 
return! 1300 ); 

else 

return! 830 ); 

) 


int plx_right_margi n () 
i 

if ( PrlntScale REDUCED ) 
return! 1500 ); 

else 

return! 689 ); 

1 


int pix_left_margin () 

( 

if ( Print Scale «■- REDUCED ) 
return! 200 ); 

el se 


I 


return! 80 ); 


[ wSSSm 

/ * - * 

* MODULE NAME: pix_to_ps() 

* MODULE FUNCTION : 

* This routine converts postscript units to pixels and vice versa. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

ft***********************)!*************** • *************** 

int pix_to_ps (pixels) 
int pixels; 

1 

/* 

* translate pixel coordinates into ps units 

* position in inches * 72 is position In PostScript units 
*/ 

pixels - pixels ■ 72; 

if ( Prl nt Scale — REDUCED ) 

return! (int) pixels / 180.0 ); 

else 

return! (int) pixels / 90.0 ); 
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* 

* MODULE NAME: pr i nt_ar rows () 


MODULE FUNCTION: 

This routine prints line arrows in postscript. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

/ a*********************.*********** ******< ****** ************************** *******/ 

void print_arrows { endx, endy, orientation, fp ) 

int endx, endy, orientation; 

FILE * fp; 

I 

/* 

* depending on orientation, print arrow at endpt 
V 

fprintf{ fp, M %d %d moveto\n", endx, endy); 
if ( orientation -- RIGHT ) 

I 

fprintf( fp, “Id %d llneto\n", endx - 6, endy + 6 ); 

fprintfl fp, M %d Id n\oveto\n", endx, endy ); 

fprint f ( fp, “Id Id llneto\n“, endx - 6, endy - 6 ); 

) 

else if ( orientation -- LEFT ) 

1 

fprintf( fp, “Id Id lineto\n M , endx + 6, endy + 6 ); 

fprintf{ fp, "Id Id moveto\n", endx, endy ); 

fprlntf{ fp, “Id Id lineto\n", endx + 6, endy - 6 ); 

I 

else if ( orientation «« UP ) 
i 

fprintf( fp, “Id Id lineto\n“, endx + 6, endy - 6 ); 

fprintf( fp, “Id Id moveto\n", endx, endy ); 

fprintf( fp, "Id Id lineto\n", endx - 6, endy - 6 ); 

1 

else if 1 orientation == DOWN ) 

1 

fprintf( fp, "Id Id lineto\n", endx + 6, endy + 6 }; 

fprintf( fp, “Id Id moveto\n", endx, endy ); 

fprintf( fp, “Id Id lineto\n“, endx - 6, endy + 6 ); 

1 

fprintf{ fp, "stroke\n" ); 


I 




/*“* ***** > 

* MODULE NAME: pr lnt_from_l lnes () 


MODULE FUNCTION: 

This routine prints in postscript the lines that enter each symbol. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 01/11/91 

* Release 1.02 - 08/28/91 

* **< >* ** * ******»«»**»**».**«* 

void pr int_f rom_l lnes ( linelist, fp, width, height, xoffset, yoffset ) 

LlneLlst ‘linelist; 

FILE * f p; 

int width, height, xoffset, yoffset; 


LlneSeg ‘lineseg; 

Line ‘line; 

Symbol *dest; 

int from_i fsymbol - 0, labelx, labely, startx, starty, endx, endy; 

/* 

* go thru e.ich symbol's 'from' line list. 

* for each line, set the start point for the first segment, since 

* it currently is in the middle of the symbol. 

*/ 

while ( linelist ) 

l 

line - (Line * ) 1 1 nel ist->l ine; 
lineseg - (LlneSeg * ) 1 ine->l ine; 

dest - (Symbol * ) 1 1 ne->f rom; 
if ( dest->symbol_type *» IF ) 
from_i fsymbol - 1; 

switch ( ldneseg->or ientat ion ) 

1 

case RIGHT: 

/* 

* start drawing the line at the rightmost edge of the symbol 

*/ 

startx « pix_to_ps( 1 1 neseg->start_x f dest->width/2 - xoffset ); 
starty » plx_to_ps( pix_centering_height () - ( 1 ineseg->start_y - 
yoffset) ); 

If ( from_i fsymbol ) 

1 

labelx - startx + pix_to_ps( 5 ); 
labely - starty -f plx_to_ps{ 12 ); 

1 

break; 
case LEFT: 




* start drawing the line at the leftmost edge of the symbol 

*/ 

startx - plx_to_ps( lineseg->start_x - dest->w idth/2 - 
xoffset ) ; 

starty - pix_to_ps( pix_centering_height () - ( 1 ineseg->start_y - 
yoffset) ); 
if ( from_i fsymbol ) 

1 

labelx » startx - plx_lo_ps( 40 ); 
labely «* starty + plx_to_ps( 12 ); 

1 

break; 
case UP: 

/* 

* start drawing the line at the top edge of the symbol 

*/ 

startx “ plx_lo_ps( 1 1 nescg->sta rt_x - xoffset ); 
starty - plx_to_ps( plx_centerlng_height () - 

(1 lneseg->start_y - dest ->height /2 - yoffset) ); 
if ( f romi fsymbol ) 

1 

labelx - startx + plx_to_ps( 10 ); 
labely - starty + pix_to_ps( 12 ); 

1 

break; 
case DOWN: 

/* 

* start drawing the line at the bottom edge of the symbol 

•/ 

startx - pix_to_ps( lineseg->start_x - xoffset ); 
starty - pix_to_ps ( pix_centerlng_height () - 

(1 ineseg->start_y + dest->height/2 - yoffset) ); 
if ( from! fsymbol ) 

I 

labelx « startx + plx_to_ps( 10 ); 
labely - starty - pix_to_ps( 12 ); 

I 

brea k ; 

} 

fprlntf(fp, "id %d moveto\n", startx, starty); 

/* 

* loop through all the segs; if seg's arrowpt Is non-zero, draw up 

* to arrow and break, else draw seg and continue. 

•/ 

while ( lineseg ) 

I 

if ( ( ! (1 ineseg->arrow_x) ) && ( ! (llneseg->arrow_y) ) ) 

1 

endx - pix_to_ps( lineseg->end_x - xoffset ); 

endy - plx_to_ps ( pix_centering_hei ght () - ( 1 1 neseg->end_y-yof fset ) ) ; 
fprintf( fp, "id %d lineto\n", endx, endy ); 

1 

else 

i 

endx - pix_to_ps( lineseg->arrow_x - xoffset); 

endy - pix_to_ps ( plx_centerlng_height () - (1 inescg->arrow_y-yof fast ) ) ; 
fprlntf( fp, ;, %d id lineto\n", endx, endy ); 
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fprintff fp, "stroke\n" ); 

print arrows ( endx, endy, 1 ineseg->orlentat Ion, 
break; 

) 

lineseg = (LlneSeg * ) 1 ineseg->next ; 

) 


/* 

* print labels tor line coining trom If symbol 

*/ 


If ( from_lf symbol ) 

{ 

fprlntf( fp, "%d %d moveto\n", labelx, labely) ; 
fprlntf{ fp, "Is show\n", 

(line -- dest->Sym. I fSym.t rue line) ? "(TRUK)" 
fprlntf( tp, "stroke\n" ); 
from if symbol ■ 0; 

} 

linelist - (LlneList * ) llnel ist->next; 

1 /‘while*/ 
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fp >; 


’(FALSE)" ); 


/******«*********************************< >************ 

MODULE NAME: print_symbols () 

MODULE FUNCTION: 

This routine prints all the symbols in the symbol Map in 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 





postscript . 


int print_symbols (fp, xoffset, yoftset ) 

FILE *f pr- 
int xoffset, yoffset; 

1 

int pswldth, psheight, psulcx, psulcy, i, psx, psy, midx, midy; 

char result (300 ) ; 

/* 

* go thru Symbol_Map; for each sym, put coordinates, size, and function 

* call on postscript stack 
*/ 


for (i =0; 1<MAX_SYMB0LS; 1++) 

{ 

If (Symbol Map ( i 1 . symboltype !- NONE) 

{ 


/* 

* compute midpt and ulc of symbol in postscript units. 

• offsets allow us to place the drawing anywhere on the page. 

•/ 


midx = Symbol_Map( i 1 . ulcx + 

Symbol_Map[iJ .width/2 - (xoffset -pix_left_margin ()) ; 

midy = Symbol _Map ( i ). ulcy + Symbol_Map[ i ]. height /2 - yoffset; 

psx = pix_to_ps{ midx ); 

psy - pixto ps( plx_centering_height (} - midy ); 

psulcx = pix_to_ps( Symbol_Mapf i ) . ulcx - (xof f set-pix_left_jnargin () ) ); 

psulcy - pix_to_ps (pix_centering_height ( ) - (Symbol_Map( i ] . ulcy - yoffset) 

pswidth » pi x_to_ps (Symbol_Map [i ) .width) ; 
psheight * pix_to_ps (Symbol_Map [ i ] .height ) ; 

switch ( Symbol_Map [ i ). symbol _type ) 

( 

case BEGIN: 

fprintf( fp, "%d Id %d ellipse\n", psx, psy, pswidth/2 ); 
break; 

case END: 

fprintf(fp, "%d Id %d circle\n H , psx, psy, pswidth/2 }; 
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break; 
case SET; 


/* 

* change ps font to symbol's font only If we are not in 

* reduced mode; else use teeny font that is set in 

* make_ps file. 

V 


if ( Prl nt Scale — NORMAL ) 

If (Symbol_Map{ l 1 . font — small_font) 


fprint f (fp. 

"Id SetScaleXn", 

i) 

fprint f (fp. 

"Id SetScaleXn", 

0) 
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/• 

* if we are not printing a report, use the toggle to 

* determine what text to print. 

•/ 


if ( .'Report ) 

cvt_to_str_array ( Logo rCompT ext ? 

Symbol_Map(i ) . Sym.IfSym. comp_expr : 

Symbol_Map[l j .Sym. IfSym. logical_expr, 
result ) ; 

/• 

* else print log text If there 

•/ 

else If (Symbol_Map| i | .Sym. I fSym. logicalexpr) 

cvt_to_str_array (Symbol_Map[ i ] .Sym. I fSym. 1 og i ca l_expr, result) ; 

else 

/* 

• else print comp text 

*/ 


cvt_to_st r_array (Symbol_Map[ i ] .Sym. I fSym.comp_expr, result) ; 

fprintf( fp, "Id %d %d %d %s set\n", psulcx, psulcy, 
pshelght, pswidth, result); 

/• 

* if we are not in reduced mode, change text back to default. 

* reduced mode uses only a single, teeny font. 

*/ 


if ( PrintScale — NORMAL ) 

fprlntf(fp, "Id SetScaleXn", Id- 
break; 


case PAUSE; 
fprint f { 
psx, 
break; 


fp, "%d %d %d (Is) pauseXn", 
psy, pswidth/2, Symbol_Map[ 1) .text 


) ; 



case START: 

fprint f{ fp, "Id Id %d Id (%s) sstartXn", psulcx, psulcy, 
pshelght, pswidth, Symbol_Map( i ] .text ) ; 
break; 

case PRINT: 


/* 

* change ps font to symbol's font only If wo are not In 

* reduced mode; else use teeny font that is set in 

* make_ps_fi le . 

*/ 


If ( PrintScale «=■» NORMAL ) 

I 

if (Symbol_Map[ 1 ) . font — small_font) 
fprint f(fp, "Id SetScaleXn*, 1); 

else 

fprlntf(fp, "Id SetScaleXn", 0); 

) 

cvt_to_str_array (Symbol_Map( i | .text, result) ; 
fprintf( fp, "Id %d %d %d %d %d %s pprintXn", psulcx, psulcy, 
pshelght, pswidth, pix_to_ps (23) , plx_to_ps (56) , result); 


/• 

• if we are not in reduced mode, change text back to default 

* reduced mode uses only a single, teeny font. 

*/ 


if ( PrintScale — NORMAL ) 

fprlntf (fp, "Id SetScaleXn", 1); 
break; 

case STOP: 

fprintf( fp, "Id Id Id Id (Is) sstop\n M , psulcx, psulcy, 
plx_to_ps (35) , plxtops (25) , Symbol_Map( i ) . text ) ; 
break; 

case TEXT: 

if ( PrintScale — NORMAL ) 

( 

if ( Symbol __Map(i | . font — small_font) 
fprintf(fp, "Id SetScaleXn", 1); 

else 

fprint f(fp, "Id SetScale\n", 0); 

I 

cvt_to_str_array (Symbol_Map( 1 ) .text, result) ; 

fprintf( fp, "Id Id Is text\n", psulcx, psulcy, result); 

if ( PrintScale — NORMAL ) 

fprlntf(fp, "Id SetScaleXn", 1); 
break; 

case IF: 

/* 

* same as set 
V 


case GOTO: 

fprlntf (fp, 
psulcx, 
break; 


"Id Id Id Id (Is) gotoXn", 
psulcy, pshelght, pswidth, 


Symbol Map( i J . text) ; 


if ( PrintScale — NORMAL ) 
i 

if (Symbol_Map(i ] . font «« small_font) 
fprlntf (fp, “Id SetScaleXn*, 1); 
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else 

fprintf(fp, "%d SetScale\n", 0); 

) 

if ( [Report ) 

cvt^to_str_array ( LogOrCompText ? 

Symbol_Map(i ] . Syra. If Sym. comp_expr : 

Symbol_Map( i ] . Sym. If Sym. logical expr, 
result) ; 

else If (Symbol_Map ( 1 ) .Sym. I fSym. logical_expr) 

cvt__to_str_array (Symbol_Map( 1 1 . Sym. I fSym. 1 og ical_expr, result) ; 

el se 

cvt__to_str_array (Symbol_Map( i I .Sym.IfSym.comp_expr, result) ; 
fprlntf7fp, ’*%d id id id id is lif\n", 

psulcx, psulcy, pswidth, pshelght, pix_to_ps (23) , result ); 

if ( PrintScale — NORMAL ) 

fprlntf(fp, "id SetScaleXn**, 1); 
break; 

/‘switch*/ 


/A*************************************** <; _> **************************************** 

* 

* MODULE NAME: setarrows 0 

* 

* MODULE FUNCTION: 

* This routine sets the proper endpts of a line to show the arrows. 

* 

* 

* REVISION HISTORY: 

• 

• Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

• Release 1.02 - 08/28/91 

• 

••**••**.***•*•**..*..*.*.***..*•******.< >****************************************/ 

void set_arrows (1 ineseg) 

LineSeg *1 ineseg; 


I 


if < Symbol _Map(i] . from) 

print_f rom_l lnes ( Symbol_Map{ i ) . f rom, fp, pswidth, pshelght, 
(xof fset-pix_left_margin 0 ) , yoffset ); 

) /‘if*/ 

/* for* / 


/* 

* depending on orientation, set the last pt of a segment to be just 

* outside the symbol it connects to. 

*/ 


switch (1 i nesog~>orJ entation) 

{ 

case UP: 

1 i neseg->a rrow_x “ 1 1 neseg->end_x; 

11 neseg->arrow_y - LDendPtr->ulcy + LDendPtr->height - 1; 
break; 


case DOWN: 

1 ineseg->arrow_x = 1 lneseg->end_x; 
lineseg->arrow_y - LDendPtr->ulcy - 1; 
break; 


case RIGHT: 

1 i neseg->a rrow_y - 1 ineseg->end_y; 
lineseg->arrow_x - LDendPt r->ulcx - 1; 
break; 


case LEFT: 

1 i neseg->arrow_y = 1 ineseg->end_y; 

lineseg->arrow_x = LDendPtr->ulcx + LDendPtr->wldth - 1; 
break; 


) 



1 

draw_a rrows ( 1 1 neseg. 


FALSE) ; 






MODULE NAME: zoom () 

MODULE FUNCTION: 

This routine zooms in or out. 


* HE VI S | ON HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/11/91 

* Release 1.02 - 08/28/91 

•*••••*.*•. ••«•***•*«••****••**•••* •****< >* ********** 

void zoom (direct ion) 

1 fit d 1 root i on; 


int 

extern void 
XmStrl ng 
Widget 
Arg 
Font 

GContext 
XFontStruct 

/* 

* set whether we are zooming in or out 
*/ 

if ( direction -*» OUT ) 

Zoomed - TRUE; 

el se 

Zoomed - FALSE; 

/• 

* Clear all cells so we can move all the symbols to their new 

* locations without fear of collision with other symbols or lines. 
*/ 

lnlt__cel l_map ( ) ; 

/* 

* Clear all the lines and labels from the work area. This Is faster 

* and neater - you don't see lines and labels disappearing 1 by 1 . 
V 

XC1 e.ii'Wi ndow ( display, XtWlmiow (draw^.iroa) ); 

/• 

* Must redraw symbols and labels in small font 

*/ 

gcon - XGContext FromGC (LDgc) ; 
fs - XQueryFont (dl splay, gcon); 

if (direction -» OUT) 
i 

sm_font - XLoadFont (display, "6X10"); 


n, failed ** FALSE; 
set_null_undo_event () ; 
zoom_string; 
hscroll, vscroll; 
args (8 | ; 

sm_font, lg_font; 
gcon; 

*f s; 


cbr_menu.c 

XSetFont (display, LDgc, (Font) sm_font ) ; 

'••**** XSetFont (display, WAgc, (Font) sm_font ) ; 

I 

else 

I 

lg_font - XLoadFont (display, "fixed"); 

XSetFont (display, LDgc, (Font) lg_font) ; 

XSetFont (display, WAgc, (Font) lg_font) ; 

I 

/• 

* if we can't redraw symbol or a line, prepare to reverse zoom. 

*/ 

if ( ! zoom_symbo Is (direct ion) ) 

'**•**/ failed - TRUE; 

if ( ! zoom 1 lnes (di rect Ion) ) 
failed * TRUE; 

/• 

* Change popup menu's zoom string; unmap scrollbars when zoomed out. 

*/ 

XtSetArg (args [0) , XmNlabelStrl ng, 4zoom_st ri ng) ; 

XtGetVal ues (menul 1st ( 2) , args, 1); 

XmStrlngFree (zoomst ring) ; 

XtSetArg ( args[0], XmNvert IcalScrol 1 Ba r, ivscroll ); 

XtSetArg ( args[l), XmNhorl zontalScrollBar, shscroll ); 

XtGetValues (scr_WA, args, 2); 

/• 

* reset popup menu string to zoomed [in | out) 

* and [un|map scroll bars 
V 

if (direction -* OUT) 

( 

zoom_string = XmSt ringCreate ( "Zoom In", XmSTRlNG_DEFAULT_CHARSET ); 
XtUnmapWidget (hscroll) ; 

XtUnmapWidget (vscroll) ; 

) 

else 

I 

zoom_string « XmStrlngCreate ( "Zoom Out", XmSTRING_DEFAULT_CHARSET ); 
XtMapWldget (hscroll) ; 

XtMapWidget (vscroll) ; 

/• 

* make sure that as symbols are redrawn, they don't cover the scrollbars. 

*/ 

XRa i seW i rulow (d i spl ay, Xt Wl ndow (hscro 11)); 

XRaiseWindow (display, Xt Window (vscroll) ) ; 

) 


XtSetArg ( args(0), XmNlabelString, zoom_string ); 
Xt Set Va i ues ( menu_l i st ( 3 ) , args, 1); 

XmStrlngFree ( zoomstring ); 

/* 

* Make sure the menu buttons are nice and big. 
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XtSeCArg ( args(0], XmNwidth, MIN_BTN_WIDTH ); 
XtSetValues ( menu_ll.sc [3 1 , args, 1 ) ; 
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* MODULE NAME: zoom_llnes() 



******************** 


/* 

* can't undo In 'zoomed out' mode what was last done in 'zoomed in' 

* mode (and vice versa), so we tell undo not to try If the user next selects undo. 

*/ 


MODULE FUNCTION: 

This routine changes ali the lines in the draw area, then redraws them i 
new size. 


set_nul l_undo_event ( ) ; 

If (failed) 

{ 

/* 

* zoom failed because of inability to scale fonts in Motif; zoom back in/out. 
*/ 

if ( direction — OUT ) 
zoom ( IN ) ; 

else 

zoom ( OUT ) ; 

} 

} 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************************** < >* ********** 


int zoom_lines (di rect ion) 


int 

di rect ion; 

int 

failed = 1, i; 

LineList 

*from line, *next line. 

LlneSeg 

*llne seg; 

for (i=0; 

i<MAX_SYMBOLS; i++) 


if ( Symbol _Map [ 1 ) .symbol_type != NONE) 
{ 


/* 

* get list of lines entering this symbol 

*/ 


if (Symbol_Map [ i ] . f rom) 

I 

LDendPtr - ( Symbol _Map[ I ) ; 

from line •» (LincLlst *) Symbol Map [ i ). from; 
while (from^line) 

I 

next_line = (LineList * ) f rom_l ine->next ; 

/* 

* change endpts of linesegs of lines entering symbol 
*/ 


change_l ine ( (Line *) from_l ine->l ine, direction); 
if ( 1 check_zoomed_l ine ( from_l ine->line) ) 
i 

user_ack ("zoom failed; notify developers’*); 
failed - 0; 

) 

/• 

* set cell map for all the segs in this line 

V 

line_seg - f rom_l 1 ne->l ine->l 1 ne; 
while (lineseg) 

I 

set__cell_map__line (1 ine_seg, from_l ine->l i ne) ; 
line_seg - (LineSeg *) 1 i ne_seg->next ; 

) 




n their 
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return 


) 

) 

failed; 


f rom_l ine 
} 


(LineLl st 


* ) next_l inc; 




MODULE NAME: zoom_symbols () 

MODULE FUNCTION: 

This routine changes all the symbols In the draw area, then redraws them in their 
new size. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

•< >• « A 


int zoom_symbols ( direction ) 
lnt direction; 

( 

lnt failed - 1, n «= 0, 1; 

Arg args[8); 

XWindowAt tributes attribs; 

for ( i-0; KMAX SYMBOLS; U + ) 

{ 

/* 

* for each symbol, redraw symbol in smaller size and font, 

* give up old size's and position's real estate, and claim new real estate. 
V 


if { Symbol_Map( 1 | . symbol_type !» NONE ) 

I 

XClearWindow ( display, XtWindow (Symbol_Map(i 1 .mycanvas) ) ,* 


if ( IXGetWlndowAt tributes (display, XtWindow (Symbol _Map( 1 ) .mycanvas) , sat t ribs) ) 
error_handler ( ERR_SYM_ATTRIBS, , 'zoom_symbol s" ); 

/* 

• shrink symbol, reposition symbol to 1/2 its previous x and y values 
V 


n - 0; 

XtSetArg( args(n), 
XtSetArg{ args[n], 
XtSetArg( args[n], 
XtSetArgl args(n), 
XtSetValues( Symbol 


XmNheight, op (attribs .height, direction) 
XmNwidth, op (attribs. width, direction) ) 
XmNx, op (att ribs. x, direction) ); n++; 
XmNy, op (att ribs . y, direction) ); n+*; 
_Map[ i ) .mycanvas, args, n ); 


) ; nH; 
n+ + ; 


Symbol_Map [ 1 | . ul cx = op( attribs. x, direction ); 
Symbol_Map(i ) . ulcy » op( attribs. y, direction ); 


/* 

* all zoomed symbols are drawn with a teeny font; normally they may 

* have different fonts. 

V 


if ( direction OUT ) 

redraw_sym_num ( i, teeny_font ); 

else 


91/0^9'flj 
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redraw_sym_num ( i, SymbolMapt i 1 . font ); 

/• 

* lower the symbol so it doesn't obscure the scroll bars. 
V 
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XLowerWl ndow ( display, XtWlndow (SymbolMap ( 1 ] .mycanvas) ); 

/• 

* set Symbol_Map entry ilelds 

*/ 

update_pos_f ields ( i Symbol_Map [ l ] , Symbol_Map[ i ] .mycanvas, 

Symbol_Map[ 1 ) .ulcx, Symbol_Map(l] .ulcy ); 

/* 

* new claim can fail because of inability to scale fonts in Motif; 

* if this happens, notify user 
V 

if ( ! (set col 1 map sym ( SYMBOL CELL, &Symbol_Map[ 1 [ , Symbol Map ( 1 ) . cel l_x, 
Symbol_Map [ i | . cell_y. Symbol _Map [l).cell_width, 

Symbol_Map[i | ,cell_helght) ) ) 

{ 

user_ack ("zoom failed; notify developers"); 
failed - 0; 

1 

I 

I 

return failed; 
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MODULE NAME: cbr_pa lette ( ) 

MODULE FUNCTION: 


***************** 




This routine handles events when the user pushes a BEGIN or END palette 
button. 


REVISION II 1 STORY ; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


• <-■ >* 


•include <stdio.h> 

•Include <X1 1 / Int r 1 nsi c. h> 
•Include <X1 1 /cursorfont . h> 
•Include <Xm/Xm.h> 

•include “gcb.h" 

• include “widgets. h*‘ 
•include “fonts. h" 


XtCa llbacKProc cbr_palette{ w, type, unused ) 


Widget w; 
int type; 
caddr t unused; 




if { Mode ! = EditSymbol ) 
return; 


* Make sure we have a valid element, can't add a symbol If we don't 

* have a valid element. 

*/ 

it ( ! Vail dK lenient ) 

i 

error_handler ( NO_ELEMENT, NULL ); 
ret urn ; 

) 

/• 

* Record which item the user last selected. This is used to pop down whatever 

* popup results from the user's choice. 

*/ 

invert ( typo ) ; 

/• 

* See if we can get data structures for another symbol. 


if { next_avai lsym () < 0 ) 

l 

user^ack (“Fatal Error: couldn't get symbol structure**! ; 
elog {1, “Fatal Error: couldn't get symbol structure"); 
return; 

1 


XW1 ndowAtt ri butcs wattrlbs; 
int n, ht, wid; 

Arg args (10]; 


/• 

* The user is already in AddSymboi mode, they must want to cancel the 

* adding of a new symbol. 

*/ 


/• 

• only 1 Begin symbol per element 

*/ 

if ( (type == BEGIN) && (Begin_Sym) £& (Begln_Sym !- £Symbol_Map{ next symbol | ) ) 

I 

elog (3, " instal 1 failed: nextsymbol - ld\n“, nextsymboi); 

user ack ("The GCB grammar definition allows only 1 BEGIN symbol per Element"); 
return; 

) 


If ( Mode -“AddSymboi ) 

{ 

cancel _d raw () ; 
return; 

1 

/* 

* we are in help mode; popup help specific to the BEGIN or END. 

*/ 

if ( Mode — Help ) 

1 

cbr_help( w, type, unused ); 
return; 

1 

/* 

* If this event hasn't already been handled and we aren't in EdltMode, t 

* ignore this event. 

*/ 


/* 

• retrieve dimensions of symbol window. 

•/ 

if (1 XGetWindowAtt ributes (dl splay, XtWLndow (w) , £wattrlbs) ) 
error_handler { ERR_SYM_ATTRIBS, "cbr_palette" ); 

/* 

• adjust the dimensions of the symbol according to its type. 

• if we are zoomed, set the dimensions accordingly. 

•/ 

ht ** (type==BEGIN) ? wattrlbs. height-15 : wattribs. height; 
wid - (type--BEGIN) ? wattrlbs. width : wattribs. width+5; 

n - 0; 

if ( Zoomed ) 

I 

XtSetArg( args[n), XmNheight, op(ht, 2) ); n+ + ; 

XtSetArg( args[nl # XmNwidth, op (wid, 2) ); n* + ; 
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1 

el se 

I 

XtSetArg( args(n], XmNheight, ht ); n++; 
XtSetArg( args(n], XmNwldth, wid )? n++; 
) 


/* 

* Store the type of the symbol In its XmNuserdata resource. 
*/ 


XtSctArgt args(n), XmNuserData, type ); nH; 
XtSetValues( current_symbol, args, n ); 


Mode = AddSymbol; 
upd_mode_panel () ; 

/* 

* Pass the type, current sym f, Graphics context, and font to the 

* routine which draws the symbol. 

* / 


1 


draw^symbol { type, current_symbol, WAgc, small_font ); 
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n LE NAME: cbr_pr 1 ntset . c 

FILE FUNCTION; 


This file contains the routines which respond to PRINT, TEXT, GOTO, START, and 
STOP button press events. 


S P EC 1 F I CAT 1 ON DOCUMENT S : 

/homo/ pro jeci/3531 /Docu/GCB. spec.doc 


FILE MODULES: 


*<< 

MODULE NAME; bu ildca 11 popup <) 

MODULE FUNCTION: 

This routine builds the CALL popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


bull d_ca 1 l_popup () 
bul ld_pause_popup ( ) 
build_start_popup { ) 
bul ld_text_popup () 
cbr_pause_unit s O 
cbr_pa use_va 1 ue ( ) 
cbr_printsot {) 
cbr_startstop_sel () 


builds the goto, activate, and stop popups. 
builds the pause popup, 
builds the ACTIVATE/STOP popup, 
builds the popup to input free text. 

Reprints user's choice of pause units in the value text. 
Reprints user's choice of pause value In the value text. 
Responds to PRINT, TEXT, GOTO, START, and STOP buttons 
Handles button press events In element selection list. 


•include <stdio.h> 

•include <Xl 1/Intr i nsl c. h> 
•include <Xm/Xm.h> 

•Include "gcb.h" 

•Include “cbr.h" 

•Include "widgets. h M 
•Include "elemental 1 lc,h" 
•include "constant s . h" 

/* 

* header strings for popups. 

*/ 


char goto_str ing [ ) * "Select from the list the name of the Element to CALLNn or enter 

a new Element name. Then elicit the Done button." ; 


void build_cal l_popup ( parent ) 
Widget parent; 
l 

Arg args[2); 


dlgcall - cr_popup( NULLS, parent, NULLS ); 

FormW - cr__form ( NULLS, dlgcall, NULL, NULL ); 
set_att ribs ( FORM, FormW, 425, 400, XmRESIZENONE ); 

lbl_call__header - cr_label{ NULLS, FormW, goto^strlng, 0, 3, 11, 5, 951; 
cr_label ( NULLS, FormW, "Element Type:", 0, 187 21, 9, IGNORE); 

rbcall - cr_ radlobox ( NULLS, FormW, XmHORI ZONTAL ); 

tgl_call_ce - cr_toggle( NULLS, rb_call, "Comp Element", NULL, 0, 0); 
XtSetArg( argsIO), XmNuserData, ELEMENT ); 

XtSetValues( tglcall ce, args, 1 ); 

tgl_call_le =cr_toggle( NULLS, rb_call, "Library Element", NULL, 0,0); 
XtSetArgl args(01, XmNuserData, LIB ); 

XtSetValuesl tgl_call_le, args, 1 ) ; 

arm_tgl ( tgl_call_ce ); 


char start_st ri ng J ) - "Select from the list the name of the Comp or enter\n a new Com 
p name. Then click the Done button."; 


cr_label { NULLS, FormW, "Element Name:", 0, 25, 28, 9, IGNORE); 
cr label ( NULLS, FormW, "Element List:", 0, 32, 35, 9, IGNORE); 
txt_call_ne - cr_text [ NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 35); 


list_elem - cr_list( NULLS, FormW, 10, 215 ); 

set_attribs ( lTst, llst_elem, XmSINGLE_SELECT, NULL, NULL ); 


Xt AddCal lback ( listelem, XmNsl ngleSel ect lonCal lback, cbr_sta rt stop_sel , 
Xt AddCal lback ( tgl_call_le, XmNarmCa 1 1 back , cbr_element_type, llst_elem ) 
XtAddCal lback ( tgl_call_ce, XmNarmCa 11 back, cbr_element_type, list_elem ) 


cr_separator ( NULLS, FormW, 84, IGNORE, 1, 99 ) ; 


CancelW ** cr eommand ( NULLS, FormW, "Cancel", cbr__cancel , 1 ); 

DoneW = cr_command{ NULLS, FormW, "Done", cbr_done, 1 ); 

HelpW - cr_command( NULLS, FormW, "Help", cbr_help, CALLELEM ); 


set_posi tion { rb_call, 
setposit ion ( txtcall ne, 



/ 


ELEMENT ); 


15, IGNORE, 35, IGNORE ); 
24, IGNORE, 35, IGNORE ); 



frnmsfm 


set 

position ( 

Xt Pa rent (1 ist_elem) , 

33, 

IGNORE, 

35, 

IGNORE 

set 

position ( 

CancelW, 

91. 

IGNORE, 


IGNORE 

set 

position ( 

DoneW, 

91, 

IGNORE, 

40, 

IGNORE 

set 

position ( 

HelpW, 

91. 

IGNORE, 

75, 

IGNORE 


) 
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MODULE NAME: bui ld_pause_popup () 


MODULE FUNCTION: 

This routine builds the pause popup. 


* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/20/91 

* 

******* * •**«< >* * 

void buildpausepopup ( parent ) 

Widget parent; 


dlgpause - crpopup ( NULLS, parent, “Pause Input“ ); 

FormW - cr_form( NULLS, dlg_pause, NULL, NULL ); 
set_attrlbs ( FORM, FormW, 300, 300, XmRESIZE_NONE ); 

cr_l abel ( NULLS, FormW, "Value**, 0, 10, IGNORE, 20, IGNORE ); 

txtpausevalue - cr_text ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 15 ) ; 
rcpausenum = crrowcol { NULLS, FormW, 4, XmHORl ZONTAL, NULL, NULL ); 

BtnW = cr_command( NULLS, rc_pause_num, “ 7 ", cbrpausevalue, "7" ); 

BtnW - cr_command( NULLS, rcpausenum, " 0 ", cbrpausevalue, "0" >; 

BtnW - cr_command( NULLS, rcpausenum, " 9 ", cbr_pause_val ue, "9" )? 

BtnW » cr_command( NULLS, rc jpause^num, " 4 ", cbr_pause_val ue, "4" ); 

BtnW * cr_command( NULLS, rc_pause_num, " 5 ", cbrpauseval ue, "5" ); 

BtnW » cr_command( NULLS, rc_pause_num, " 6 ", cbrpauseval ue, "6" ); 

BtnW - cr_command( NULLS, rc_pause_num, " 1 ", cbrpausevalue, "1" )? 

BtnW - cr_command( NULLS, rc_pause_num, " 2 ", cbr_pause_value, "2" ); 

BtnW - cr_command( NULLS, rc_pause_num, “ 3 ", cbr_pause_value, "3" ); 

BtnW «• cr_command( NULLS, rc_pause_num, " 0 ", cbr_pause_value, "0" ); 

rc_pause_units = crrowcol ( NULLS, FormW, 1, XmVERTICAL, NULL, NULL ); 

BtnW - cr_command( NULLS, rc_pause_uni ts, "ms", cbrpauseunit s, "ms" ); 

BtnW - cr command ( NULLS, rc_pause_units, "sec", cbr_pause_unit s, "sec" ); 

BtnW - cr_command( NULLS, rc_pause_unlts, "min", cbr_pause_unlt s, "min" ); 

cr separator { NULLS, FormW, 75, IGNORE, 1, 99 ); 

CancelW = cr_command { NULLS, FormW, "Cancel", cbr_cancel, 1 ) ; 

BtnW “ cr_command ( NULLS, FormW, "Done", cbr_done, 1 ); 

HelpW - cr_command( NULLS, FormW, "Help", cbr_help, PAUS£_ELEM ); 


set 

position ( 

txt_pause 

: value. 

10, 

IGNORE, 

40, 

IGNORE 

set 

position ( 

rc_pause_ 

num. 

30, 

IGNORE, 

20, 

IGNORE 

set 

position { 

rc_pause_ 

units, 

30, 

IGNORE, 

70, 

IGNORE 

set 

position ( 

CancelW, 


05, 

IGNORE, 

3, 

IGNORE 

set 

position ( 

BtnW, 


05, 

IGNORE, 

36, 

IGNORE 

set 

position ( 

HelpW, 


05, 

IGNORE, 

60, 

IGNORE 



i 
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* * * * * 4 4 . 4 4 4 4 4 4 V - > 4 4 4 4 4 . 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 .4 

* MODULE NAME: bui ld_start_popup ( ) 

* MODULE FUNCTION: 

* This routine builds the ACTIVATE and STOP popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 4,4 . 4 4 . 4 . 4 . 4 4 4 4 4 4 4 4 4 ...* 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4.4 4 / 


/ 4 4 4 . 4 4 . 4 4 4 4 4 ... 4 . 4 4 . 4 4 4 4 4 < > 4 4 4 . 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

4 

* MODULE NAME: bulld text popup () 

* MODULE FUNCTION: 

* This routine builds the popup to Input free text. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

44444444444444444444444444444444444 4 4 4 4 4 < >4 444444444444444444444444444 . 4444444 . 4 . 4 / 


void bui ld_st art__popup { parent ) 
Widget parent; 


void build_text_popup (parent) 
Widget parent; 


1 

digest art - cr_popup( NULLS, parent, NULLS ); 

FormW - cr_form< NULLS, dlg_start, NULL, NULL ); 
set_at t ribs ( FORM, FormW, 425, 400, XmRESIZE_NONE ); 


int n; 

Arg args[2]; 

char "textst ring, 

•printstring; 


lbl_start_hdr - cr_label { NULLS, FormW, start_st ring, 0, 3, 11, 5, 95); 

cr_label ( NULLS, FormW, "Comp Name:", 0, 23, IGNORE, 9, IGNORE); 
cr_label { NULLS, FormW, -Comp List:”, 0, 32, IGNORE, 9, IGNORE); 

txt_start » cr_text { NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 35); 


dlg_text - cr_popup( NULLS, parent, NULLS ); 

XtSetArg ( args(0), XmNdlalogStyle, XmDIALOGMODELESS ); 
XtSetValues( dlg_text, args, 1 ); 

FormW = cr_form( NULLS, dlgtext, NULL, NULL ); 
set_attribs( FORM, FormW, 450, 350, XmRESIZE JJONE ); 


I 


list comp - crjlstl NULLS, FormW, 10, 215 ); 
set_attrlbs( LIST, iist_comp, XinSlNGLE_SELECT, NULL, NULL ); 

Xt AddCal Iback ( list_comp, XmNsingleSelectionCallback, cbr_startstop_sel, COMP ); 

cr_separator ( NULLS, FormW, 84, IGNORE, 1, 99 ); 

CancelW - cr_command ( NULLS, FormW, "Cancel”, cbr_cancel,l ); 

DoneW - cr_command ( NULLS, FormW, "Done", cbr_done, l ); 

HelpW - cr_command( NULLS, FormW, "Help", cbr_help, ACTIVATECOMP ); 


set_posltlon ( 

txt_start , 

22, 

IGNORE, 

35, 

IGNORE 

setposltlon ( 

Xt Parent (1 lst_comp) , 

33, 

IGNORE, 

35, 

IGNORE 

setposltlon ( 

CancelW, 

91. 

IGNORE, 

5, 

IGNORE 

setposltlon ( 

DoneW, 

91 , 

IGNORE, 

40, 

IGNORE 

setposltlon ( 

HelpW, 

91 , 

IGNORE, 

75, 

IGNORE 


text string - (char •) malloc( s i zeof (char) • (4 1 ) ); 

strcat{ text_string, "Input the text.\n" ); 

strcat ( textstring, "Then click the Done button." ); 

printstring = (char *) malloc( si zeof (char) * (61 ) ); 

strcat ( printst ri ng, "Input the expression to be printed. \n" ); 

strcat ( print_st ring, "Then click the Done button." ); 

text_header ® XmStr IngLtoRCreate { (char •) text_strlng, XmSTRING_DEFAULT_CHARSET) ; 
printheader - XmStr IngLtoRCreate ( (char •) pr int_st ring, XmSTRING_DEFAULT_CHARSET) ; 

lbl_text_header - cr_label ( NULLS, FormW, NULLS, 0, 6, 14, 5, 95 ); 

scr_text = cr_scr_text ( NULLS, FormW, 10, True, 375, 0, 0 ); 

XtSetArg ( args(O), XmNscrol lingPol icy, XmAUTOMATIC ); 

XtSetValues( scrtext, args, 1 ); 


BtnW 

- cr 

comma nd ( 

NULLS, 

FormW, 

"Attributes”, 

cbr_ 

done, 0 ); 

DoneW 

» cr 

command ( 

NULLS, 

FormW, 

"Done", 

cbr_ 

done, 1 ) ; 

CancelW 

** cr 

command ( 

NULLS, 

FormW, 

"Cancel", 

cbr_ 

cancel, 1 ); 

HelpW 

- cr_ 

command ( 

NULLS, 

FormW, 

"Help", 

cbr_ 

"help, TEXT_POPUP) 


cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ); 


set_posi Cion ( 

XtParent (scr_text) , 

20, 

IGNORE, 

10, 

IGNORE 

set posi 1 1 on ( 

CancelW, 

88, 

IGNORE, 

3, 

IGNORE 

set_position ( 

Bt nW, 

88, 

IGNORE, 

27, 

IGNORE 

set_position ( 

DoneW, 

88, 

IGNORE, 

53, 

IGNORE 

setposi tion ( 

HelpW, 

88, 

IGNORE, 

77, 

IGNORE 
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/ 

* MODULE NAME: cbr_pause_unit s ( ) 

* MODULE FUNCTION: 

* This routine reprints the user's choice of pause units In the value text. 


• REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

*****»***«*•••«*•*•••••**»*•*»«****«****< >*********«*•*******•*******»****** 

XtCallbackProc cbr pauseunlt s ( w f cllent_data, calldata ) 

Widget w; 

caddrt client_data; 
caddrt calldata; 

{ 

/• 

* retrieve text string from units button, set value text to value concatted 

* with units. 

*/ 

XmTextSet St ring ( txt_pause__value, 

strcat (XmTextGet St ring |txt_pause_value) , (char M" **) ); 

XmTextSetString ( txtpause value, 

strcat (XmTextGetString (txt_pause_value) , 


(char *) client_data) ); 


L 91/oafaL, 

1 1 mwsm 
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/ ‘MM....,**....#,.. ****•**«•*< .«**M*M«tM.**»*. 

* MODULE NAME; cbr_pa use_va lue ( ) 

* MODULE FUNCTION: 

* This routine reprints the user's choice of pause value in the value text. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

•••**••*••**< ***** 

XlCal IbackProc cbr_pause_va 1 ue ( w, client_data, call_data ) 

Widget w; 

caddr__t client_data; 
caddr^t call_data; 


/• 

• retrieve string t rom value button; set value string to this string. 

■/ 


) 


XmText SetSt ring { t xt_pause_va 1 ue f 

st rcat ( XmTextGetStr lng (txt_pause_va lue) , (char *> client data) ); 


* MODULE NAME: cbrprintset () 

* 

* MODULE FUNCTION: 

* 

* This routine responds to the users clicking on a PRINT, TEXT, GOTO, START, 

* button. 

* 

• REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 

4 .**.*<*..*** . *•••••*«*«*«*•**•**< 

XtCal 1 backProc cbr_prl ntset ( w, item, unused ) 

Widget w; 
int item; 

caddr t unused; 


Arg 

XWindowAttributes 

int 

char 


args (10), 
header_args[ 1 j ; 
wattribs; 
n, ht, wid; 
tmpStr IMAXNAME) ; 


/* 

* cancel palette op by pressing any palette item again 

V 


if ( Mode — AddSymbol ) 

[ 

canceldraw O ; 
return; 

) 

/* 

* popup help specific to this palette item. 

*/ 

if ( Mode 0,3 Help I 

[ 

cbr_help( w, item, unused ); 
return; 

1 

if ( Mode ! ** EditSymbol ) 
return; 

/• 

* Make sure we have a valid element, can't add a symbol if we don't 

* have a valid element. 

*/ 


if ( ! ValidElement ) 

I 

errorhandler { NO_ELEMENT, NULL ); 
return; 

1 



r STOP 


t 





fc9iyofe 


/* 

* Currently, the GCB does not allow the user to add symbols which affect 

* the Comp symbol table to be added to a Library Element. 

*/ 


If ( ElementType • - LIB ) 
switch ( Item ) 

I 

case GOTO : 
case STOP : 
case START : 
case PAUSE : 

error_handler ( LIBELEMSYM, NULL ); 
return; 

) 


/* 

* Store the Id of the last selected Item 
*/ 
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if (! load_element_list (ELEMENT, list_elem) } 

{ 

sscanf ( selList(01, "%s", tmpStr ); 
XmTextSetString { txt_call_ne, tmpStr ); 

/* 

* set default toggles 

*/ 

arm tgl ( tgl_call_ce ); 
dlsarm_tgl ( tgl_call_le ) ; 

XtManageChild ( dlgcall ); 

} 

break; 
case STOP: 



/* 

* in the case of STOP, set the Symbol_Map height to the 

* default height of the widget + 22, and the width to 90 pixels. 
*/ 


invert l item ) ; 


* See it we have data structures for another symbol. 
V 

if { (next_avail_sym () ) < 0 ) 
return ; 


Mode » AddSymbol; 
upd_mode_panel () ; 


if ( ! XGetWindowAttributes (display, XtWindow(w) , iwattribs) } 
error_handler ( ERR_ SYMATTRIBS, "cbr_print set" ); 

/* 

* Depending on type of symbol being created, set label for popup, 

* size of symbol, and load the element list, if applicable. 

*/ 

n “ 0; ! 

switch ( item ) 

{ 

case GOTO: 


ht « watt r ibs .height + 22; 
wid = 90; 


/* 

* Load the list of Comp names for the current position into 

* the selection list. 

V 

if (2 load_element_l 1st (COMP, 1 istcomp) ) 

( 

XmTextSetString ( txtstart, selList(O) ); 

XtManageChild ( dlg_start ); 

I 

break; 
case START: 

/* 

* in the case of START, set the Symbol_Map height to the 

* default height of the widget, and the width to 37 pixels 

* wider than the default. 

*/ 

ht - wat tr ibs. height ; 
wid = watt ribs .width + 37; 


/* 

* in the case of GOTO, set the Symbol_Map height to the 

* default height of the widget, and the width to 37 pixels 

* wider than the default. 

*/ 


ht - wattrlbs. height ; 
wid “ watt ribs .width + 37; 

El cment LI stType ** ELEMENT; 

/* 

* get list of elements from the symbol table 
*/ 



if ( ! load_e lement_l 1st (COMP, 1 ist_comp) ) 

i 

XmTextSetString ( txt_start, selList[0] ); 
XtManageChild ( dlg_start ); 

1 

break; 

case PAUSE: 

ht » watt ribs. height; 
wid = watt ribs. width + 5; 

XtManageChild ( dig pause ); 
break; 
case TEXT: 

Xt SetArg ( header_a rgs [ 0 ] , XmNlabel St ri ng, text_header ); 
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XtSetValues( lbl_text_header, header_args, 
XtManageChild ( dlg_text ) ,- 
break; 
case PRINT: 

ht - wattribs. height ; 
wid - watt ribs .width ♦ 74; 


> ; 


XtSetArg( header_a rgs [ 0 1 , XmNlabelStri ng, printheader ); 
XtSetValues( 1 bl_t ext_header, header_args, 1 ); 
XtManageChi Id ( dlg_text ); 
break; 

) 

XtSetArg{ args(n), XmNhelght, (Zoomed) ? op(ht, 2) : ht ); n+f; 

XtSetArg( args(n|, XmNwldth, (Zoomed) ? opfwld, 2) : wid ); nM; 

XtSetArg( args(n), XmNuserData, Item ); n+t; 

XtSetValues( current_symbol, args, n ); 
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* MODULE NAME: cbr_startstop_sel () 

* MODULE FUNCTION: 

* This routine handles events when the user pushes a mouse button over an 

* item in the Element or Comp selection list. This routine will extract 

* the text for the item selected by the user and will insert the text into 

* the single line text widget of the corresponding popup. 


* REVISION HISTORY : 

i 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 

* 

A*********************************** ** **< >* ********»MM*».»*.*M*..».»*.».»**.M*/ 

void cbr_startstop_sel ( w, client_data, call_data ) 

Widget w; 

lnt clienl_data; 

XmListCa 1 1 back St ruct *cal l_data ; 

1 

char *text, 

tmpStr IMAX_NAME) ; 


/* 

* If we are working in the ACTIVATE or STOP popup, then get the item 

* selected by the user and insert it into the text widget of the ACTIVATE/ 

* STOP popup. 

*/ 


if ( client data «« COMP ) 

( 

XmSt ri ngGet LtoR ( cal l_data-> item, XmSTRING_DEFAULT_CHARSET, itext ); 

XmTextSetString ( txt_start, text ); 

return; 

) 

/* 

* Get the string/name which the user selected. Scan out just the name 

* portion, the string may have contained "Root Element" at the end. 

* Insert the new string which contains just the element name into the 

* text widget. 

•/ 

XmSt ringGet LtoR ( cal l_data-> it em, XmSTRING_DEFAULT_CHARSET, itext ); 
sscanf ( text, "%s", tmpStr ); 

XmTextSetString ( txt_call_ne, tmpStr ); 
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* FILE NAME: cbr_symbol.c 

* FILE FUNCTION: 

* This file contains the routines which handle events In symbols. 

* SPECIFICATION DOCUMENTS: 

* /home/ pro ject/3 531 /Doc u/GCB. spec.doc 


* FILE MODULES: 

cbr_symbol () 
cbr_symbol_move () 
create_new_sym {) 
handle_button_press () 
handle_button_release () 
set_or igin () 

***** * 


- handles events when user pushes mouse button in symbol 

- handles motion and enter notify events in symbols. 

- creates a new symbol when user pushes palette button. 

- handles button press events in a symbol. 

- handles button release events in a symbol. 

- retrieves window's attributes and sets global origin. 


/•»»»»*****•*••.*.••*»**.*•«****»*******»< 

* 

* MODULE NAME: cbr_symbol () 

* 

* MODULE FUNCTION: 

* 

* This routine handles events when the user pushes or releases a mouse button 

* while in a symbol area canvas. 

* 

* 

* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

* 

XtCallbackProc ebrsymbol ( w, client_data, call_data) 

Widget w; 

caddr_t cllent_data; 

XmDrawingAreaCal IbackStruct “cal l_data; 


•include <stdio.h> 

•include <X11/Intrinsic. h> 
linclude <Xm/Xm.h> 
finclude <X1 1/cursor font . h> 
linclude <X1 1 /Shel 1 . h> 
•include <X1 1/St r i ngDefs . h> 


•include "geb.h" 

•include H cbr.h" 

•include "widgets. h" 
•include "lines. h" 

• include "element_f i le . h" 
•include "fonts. h" 
•include "cursors. h" 


{ 

int sym_type; 

Arg args[31; 

XEvent “event - (XEvent * ) cal l_data->event ; 

/* 

* pass the event to handle_but ton_[press | release] 

*/ 

if ( event ->typc ButtonPress ) 

handle_button_press ( w, clientdata, calldata ); 
else if ( event->type -* But tonRelease ) 

handie_button_release { w, cllent_data f call_data ); 

} 


/• 

* id of most recently dragged symbol 
*/ 


static Widget 


dragged 



sym; 
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MODULE NAME: cbr_symbol move() 
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/* 

* user has entered symbol after selecting its palette item. Set 

* origin for future move events. 

V 


MODULE FUNCTION: 

This routine handles motion and enter notify events In symbols. 


set_or igi n ( w ) ; 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


• ««**»*»*****»»/ 


XtCallbackProc cbr_symbol_move ( w, cllent_data, event) 


Widget 

w; 

caddr_t 

cl ient_data 

XEvent 

•event; 

if ( event->type 

— MotionNotify ) 


{ 

If ( (l (event->xmot ion . state 6 ButtonlMask)) &(. (w “■> current_symbol ) ll 
(Mode AddSymbol) ) 

( 

/* 

* user is moving symbol after selecting its palette button. 

* move ulc of window to new location relative to event in window 
V 

XMoveWindow( display, XtWlndow(w), 

(newx • (newx - (orlglnx - event->xmot ion. x) ) ) , 

(newy - (newy - (originy - event->xmot ion.y) ) ) ); 


/* 

* keep ruler bars up with moving symbol 

V 

XMoveWindow( display, XtWi ndow (v rul e) , newx + originx +2, 0 ); 
XMoveWindow( display, XtWindow (h_rule) , 0, newy + originy + 16 ); 

) 

else if ( ( event->xmot ion . state & ButtonlMask) && ( Mode **= DragSymbol ) && 
( dragged_sym =» w ) ) 

{ 

/• 

* user is dragging symbol. 

V 

XMoveWlndow( display, XtWindow (w), 

(newx “ (newx - (originx - event->xmot ion . x) ) ) , 

(newy - (newy - (originy - event ->xmot ion.y) ) ) ); 

XMoveWindow( display, XtWindow (v_rule) , newx + originx +2, 0 ); 
XMoveWlndow( display, XtWindow (h_rule) , 0, newy + originy + 16 ) ; 

1 

1 

else if ( ( event->type -= EnterNotify ) && ( w « current_symbol ) ss 
( Mode AddSymbol) ) 
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•MODULE NAME: create_new_sym ( ) 

* 

* MODULE FUNCTION: 


cbr_symbol.c 


This routine creates a new symbol when the user pushes a palette button. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

“< >* * 


Widget create_new_sym () 


Arg 

XSetWi ndow At tributes 
Widget 

extern XtCa 1 IbackRec 


args ( 2 ] ; 
swattribs; 
symbol ; 

symbo l_i nput_code [ | ; 


/* 

* create new symbol: don't map it yet ( map it only when the user brings 

* the sprite into the canvas area - an EnterNotify event in cbr_canvas ) 
*/ 


/ 


Xt$etArg{ args(0), XtNmappedWhenManaged, FALSE ); 

XtSetArg{ args{l], XmNlnputCallback, symbol_input_code ); 
symbol - ( Widget) XmCreateDrawingArea ( drawarea, "symbol ", 

if ( ! (symbol) ) 


/* 

* Motif call failed, panic. 
V 


args, 2 ); 


exit ( ERR ) ; 

XtManageChild ( symbol ); 


• use workstation's backing store to repaint. 

*/ 

swattribs. back ing_store “ Always; 

XChangeWindowAttributes ( display, XtWindow (symbol ) , CWBack ingStore, iswatt ribs) ; 

XtAddEvent Handler ( symbol, ButtonMot ionMask | EnterWindowMask | PointerMot ionMask, 
FALSE, cbr_symbol_move, NULL ) ; 


/* 

* grab button events; else they go to symbol's parent, the draw area. 
*/ 

XGrabButton( display, AnyButton, AnyModifier, XtWi ndow (symbol ) , TRUE, 
ButtonPressMask | ButtonMot ionMask | But tonReleaseMask, 
GrabModeAsync, GrabModeAsync, 

XtWindow (symbol) , 

None ) ; 


return ( symbol ); 
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/ >»**«**•*** 

* MODULE NAME: ha nd le_but ton__press {) 

* MODULE FUNCTION: 

* This routine handles button press events In a symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*»< >* “ * 
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! XCGetValucs ( currentsymbol , args, 1 ); 


If ( (i “ instal l_symbol (sym_type, 
att ribs.x, 
attribs .y, 
attrlbs. height, 
attribs. width, 
sym_text , 
w, 

WAFont)) 0 ) 

i 

elog (3, “ lnstal 1 successful"); 

/• 

* save this event for undo 
/ */ 



lnt handle_button_press ( w, client_data, call_data ) 

Widget w; 

caddr_t client_data; 

XmDrawingAreaCa 1 IbacKStruct *call_data; 


Ary args 11]; 

XEvent ‘event - (XEvent *) ca ll_data->event ; 
int sym_type; 

if ( event->xbutton. button -- Buttonl ) 

I 

el og (3, "symbol : button f%u down", event->xbutton .button) ; 
it t (Mode -- EditSymbol) &4 

{! (event ->xbutton. state 4 ShiftMask)) 44 /‘shift not down*/ 

(! (event->xbut ton. state 4 Cont rolMask) ) ) /‘control not down*/ 

< 


set_symbol_event ( Symbol_Map[ 1 ] ); 

SaveNeeded » TRUE; 
if ( Audit ) 

/* 

* placing this symbol should make the element 

* incomplete. 

*/ 

audit ( JUST_LINES ); 


/* 

* reset mode in mode panel 

•/ 

Mode * EditSymbol; 
upd mode panel () ; 

} 

else 


/* 

‘ user wants to drag this symbol; set variable to remember 

* which symbol we arc dragging; raise the symbol so we can 

* drag it over others; and set the mode. 

*/ 

dragged_sym = w; 

XRaiseWindow ( display, XtWindow(w) ); 

Mode -• DragSymbol; 
set_orlgln ( w ) ; 

I 

else if ( (w =*■ current_symbol ) 44 (Mode «« AddSymbol) ) 
l 

lnt 1; 

XWlndowAtt rlbutes attribs; 

/ * 

* we are placing this symbol; find its current location. 

V 

if (! XGetWl ndowAt tributes (display, XtWlndow (w) , 4att ribs) ) 
error_handler ( ERR_SYM_ATTRIBS, "handle_button_press" ); 

/* 

* try to install symbol; if successful, continue 

•/ 

XtSetArg{ u rys[0), XmNuserData, 4sym_type ); 


/* 

* Install failed, allow user to try again. 

V 

return; 

) 

else if ( (Mode «• EditSymbol) 44 

(event->xbutton. state 4 ShiftMask) ) /‘shift down*/ 

/• 

* delete symbol 

‘/ 

( 

remove_symbol ( w ); 
if ( Audit ) 

audit ( JUST_L1NES ); 

1 

else if ( (Mode EditSymbol) 44 

(event ->xbutton. state 4 ControlMask) ) /‘control down*/ 

I 

/* 

‘ audit/clear individual symbol 

*/ 

if ( ! Audited ) 

( 
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) 


e log (3, “auditing symbol") ; 
audit_symbol ( w ); 

Audited - 1; 

) 

else 

1 

elog (3, "clearing audited sym") ; 
clear_audit () ; 

Audited - 0; 

) 




/,**.**..•*****»•**..*.*•.«».***•*•*.«».*< >**•***«***» 

* MODULE NAME: handle but tonrelease () 

* MODULE FUNCTION: 

* This routine handles button release events In a symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

****•••«****•*•*•***'•••••«**••****•* * **< >************ 


int handle_button_release { w, client_data, call_data) 


Widget 

caddrt 

XmDrawingAreaCal 1 backs truct 


w; 

client data; 
*cal ldata; 


{ 

XEvent ‘event = (XEvent * ) call_data->event; 
int cell_x, 
ce 1 1 _y , 
t rue_x, 
t rue_y; 


elog (3, "symbol : button #%u up", event->xbutton. button) ; 
if { (event->xbutton .button — Buttonl) && (Mode «» DragSymbol) && 
(w -- dragged sym) ) 

{ 

/• 

• update symbol position 
*/ 


elog (3, "updat 1 ng sym pos"); 
update symbol pos ( w ); 

Mode » Ed it Symbol; 

I 

else If ( event->xbutton .button «■ Button2 ) 

( 

int sym; 

/* 

* If we are in Edit Symbol mode, then the user wants to start 

* line draw. Determine which symbol we are in and init for line 

* draw. 

*/ 


if ( Mode « EditSymbol ) 
( 


/* 

* Determine which symbol we are in. 
*/ 


( sym=0; sym<MAX_SYMBOLS; sym++ ) 
if ( SymbolMapfsymJ .mycanvas =*= w ) 
I 



wmmi 

mmwft 

•;vXVXX , >XvX , aw>X<vX\v>X 


/* 

* can't have line out of text canvas 
*/ 
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LDslde - FALSE_PTR; 

else 

LDslde “ TRUE_PTR; 

1 



if { Symbol_Map( sym) . symbol_type -=■ TEXT ) 
return; 

/* 

* set global line start vars to midpt of this symbol 

*/ 

LDsl.irtX - Symbol _Map( sym) .ulex ♦ (Symbol Map l sym) .width/2) ? 
LDstartY - Symbol_Map( sym) . ulcy * (Symbol_Map ( sym) . height /2) ; 
LDstartPtr - 4 (Symbol_Map(syml) ; 
break; 

) 

if ( LDstartPt r->symbol type -- END ) 

{ 

/. 

* can't have a line out of an end symbol. 

•/ 

user_ack (“The end is the end."); 
return; 

) 

/* 

* If this symbol is already fully connected, let the user 

* know. 

*/ 

if ( LDstartPt r->symbol_type I- IF ) 
if ( LDstart Ptr->next !- NULL ) 

{ 

user ack ("Symbol already has a next symbol"); 
return ; 

1 

else 

LDside = NEXT_PTR; 

else 

. * < 

If ( (LDstartPtr->Sym.IfSym.true_line != NULL) 44 
(LDstart Pt r->Sym. I fSym. false_l ine !* NULL) ) 

( 

user_ack ("Symbol has a TRUE and FALSE connector"); 
return; 

I 

/* 

* The user wants to build an IF line, determine which 

* part he/she wants to connect. 

*/ 

else if ( (LDstart Pt r->Sym. I fSym. true_line — NULL) 44 
(LDstartPtr->Sym. If Sym. falseline == NULL) ) 

LDslde » prompt_t rue_false ( w ); 

else 

if ( LDstartPt r->Sym. IfSym. t rue_line !- NULL , 


/* 

* Start building the "next line" structures. 

*/ 

start_Llne( LDside ); 

LDendX - -1; 

IDendPLr - NULL; 

ID type - START_SEGMENT; 

Mode - LlneDraw; 

XDef ineCursor ( display, XtWindow (draw_area) , tcross_cursor ); 

XDef 1 neCursor ( display, XtWindow (draw_area) , t cross_cursor ); 

) 

/• 

• User Is in LineDraw moae and they want to terminate the 

* current line in this symbol. 

V 

else if ( Mode -- LineDraw ) 

I 

if ( LDcndX — -1 ) 

( 

XBel 1 ( display, 0 ); 

user_ack ("Could not draw line, please try again to connect symbols"); 
return; 

I 

/• 

* Identify target symbol. 

*/ 

for ( sym=0; sym<MAX_SYMBOLS; sym++ ) 
if ( Symbol_Map(sym) .mycanvas — w) 

I 

if ( Symbol_Map[ sym) . symbol_type — TEXT ) 

( 

XBel 1 ( display, 0 ); 

user_ack ("Cannot connect a line to label text"); 
return; 

I 

LDendPtr = 4 (Symbol_Map(syml ) ; 
break; 

I 

/* 

* The events which draw the line may not have kept up with the 

* mouse pointer. Make sure the end of the line matches the 

* actual mouse pointer location. 

*/ 

true_x “ LDendPt r->ulcx ♦ event~>xbutton ,x; 
true_y - LDendPtr->ulcy + event->xbutton.y; 

if ( (LDendX truex) 44 (LDendY !- truey)) 

I 

clear__l ine w ; 


. 91 / 08/29 
08:49:39 j 


cbr_symbol.c 



if { LDendX != LDstartX ) 

LDendX = true_x; 

else 

LDendY « true_y; 
draw_l 1 ne ( ) ; 

1 

/* 

* Make sure the line actually is within the symbol. The user may 

* have placed the mouse in a symbol without the line actually 

* making it into the symbol due to a delay in the processing of 

* events. 

*/ 

ce 1 1 _x - LDendX / CELLJSIZE; 
cel l_y “ LDendY / CELLJSIZE; 


setline () ; 

/* 

* Make sure the user has drawn a valid line. 

*/ 

it ( val i d 1 ine (END_SEGMENT) -*» ERR ) 

< 

XBell( display, 0 ); 

userack ("Invalid connector - cannot go through a symbol**); 
return; 

) 

/* 

* We have a valid end segment. 

*/ 


if { Cel l_Map[cell_y | (cell_x) .cell type SYMBOL_CELL ) 

{ 

user_ack {"End of line not in target symbol - setting anchor point'*); 
mid_Llne () ; 

LDstartX ** LDendX; 

LDstartY » LDendY; 

LDtype - MID_SEGMENT; 

LDendX * -1; 
return; 

} 

/* 

* Don't allow connect to same symbol. 

V 

if { LDendPtr == LDstartPtr ) 

l 

XBel 1 ( display, 0 ) ; 

user_ack ("Cannot connect to the same symbol"); 
return; 

) 

/• 

* Don't allow connect to Begin symbol. 

*/ 

if ( LDendPtr->symbol_type — BEGIN ) 

t 1 

XBel 1 ( display, 0 ) ; 

user_ack ("Cannot connect to a BEGIN symbol"); 
return; 

) 

/* 

* Determine the "real" end X & Y to use for drawing the 

* the line. The line which was drawn will not extend 

* into the end symbol because the mouse following 

* routines are not fast enough. Determine the real end 

* X & Y, and redraw the line. 

V 

clear_l ine () ; 

if ( LDendX ! = LDstartX ) 

LDendX =■ LDendPt r->ulcx+10; 

else 

LDendY = LDendPt r->ulcy+10; 


LDtype = END_SEGMENT; 
end_Li ne () ; 

/* 

* if audit is on, audit element 

V 

if ( Audit ) 

audit ( JUST_LINES ); 

/* 

* record this line event for undo 

V 

set_line_event ( LDlinePtr ); 

/* 

* reset mode and cursor in main canvas and start symbol 
*/ 

Mode = Ed it Symbol; 

XDcf i neCursor ( display, XtWl ndow (draw area), baslccursor ); 

XDef i neCursor ( display, XtWl ridow (draw_aroa ) , baslc_cursor ); 

I 

upd_mode_panel () ; 

) 

else if ( event->xbutton. button ■»** Button3 ) 

( 

if ( (event->xbutton . state & ShiftMask) && /*shift down*/ 

(Mode ■== EditSymbol) ) 

{ 

/• 

* implode into this symbol; this will set the current 

* element to the name in the symbol 
*/ 

Symbol * sym; 

if ( (sym *=» (Symbol * ) get_sym_map__entry (w) ) == NULL ) 
userack ("can' t find element to implode"); 

else 

( 

if ( sym->symbol_type «*= GOTO ) 

implode ( (char *)sym->text, sym->Sym . ElemSym. comp_type ) 

) 

) 





hMmmi 

else If ( Mode 



* right button 

*/ 


edit text ( w 


■ EditSymbol ) 
edi t 


> ; 
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* MODULE NAME: set_origin() 

* 

* MODULE FUNCTION: 

* 

* This routine retrieves the window's attributes and sets 

* vars 

* 

* REVISION HISTORY: 

* 

4 Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

4 Release 1.02 - 08/28/91 



the global origin 


int set_origin( w ) 

Widget w; 

[ 

XWindowAttributes attribs; 

/• 

4 get attributes of this symbol. 

•/ 

if {! XGotWl ndowAtt r I butes (d i spl ay, XtWi ndow {w) , & at t ribs) ) 
errorhandler ( ERRSVMATTRI BS, M set_or igl n" ); 

/* 

4 set corner and center values for this window for 
4 future moves. 

4 / 

newx - attribs. x; 

newy - attribs. y; 

origlnx - attribs. width / 2; 

originy «■ attribs. height / 2; 

) 



* * It * * 


< > 
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*************************************** » < > **************** 

FILE NAME: cbr_utils.c 

FILE FUNCTION: 

This file contains various routines which help the callbacks 


cbr_utils.c 

****** * header string for the target language popup. 

*/ 



char str header!) - "Select the target language for the file which will be generated from 
the \nlogic diagram by the builder. Use the ' Build' option in the ' Element' menu \nto ge 
nerate the target file."; 


SPECIFICATION DOCUMENTS: 

/home/ pro ject /3531 /Docu/GCB. spec.doc 


FILE MODULES: 


audit { ) 
audit_line {) 
audit_symbol {) 
build_lan_select_popup () 
cbr_audit () 
cbr_audit_on () 
cbr_clear_popup ( ) 
cbr_exlt () 
cbr_language {) 
cbr language menu ( ) 
cbr_pos_done () 
cbr_purpose ( ) 


- checks symbols; highlights in red Incomplete ones 

- highlights in red a line and symbols it connects. 

- highlights in red a symbol and its lines. 

- builds the popup to input target language type. 

- responds when user presses 'audit* or 'clear audit' 

- responds when user presses audit on/off btn 

- takes down the ask, help, or user_ack popup. 

- confirms, writes defaults, and exits GCB. 

- responds when user selects target language in popup. 

- pops up select target language popup 

- processes the element/comp purpose updating. 

- responds when user selects update element/comp purpose 


cbr_set_sym_di splay () 
cbr snap () 
cbrtextproc ( ) 
cbr_tgl_purpose () 
highlight_sym() 
highlight_sym_lines () 
load_curr_dl r ( ) 


- redraws all IF/SET syms with logical or expr text. 

- responds when user presses snap on/off button. 

- processes the Create Position popup text fields 

- toggles between displaying comp and element purpose. 

- changes back and fore colors of symbol, redraws it. 

- highlights symbol's lines and connected symbols 

- sets the parameter to current working directory. 


*********************** 




*< > 


/ 


include <stdlo.h> 
include <X11/Intr insic. h> 
include <Xm/Xm.h> 


'include "geb.h" 
include "cbr.h" t 
include "widgetslh" 
include "constant s. h” 
include "element_f i le .h" 
include "cbr_ut ils. h" 
include "lines. h" 
include "fonts. h M 


extern 

int PopupStat!) 
Red; 

iht 

language; 

int 

Ask Resp; 

int 

uil - 1; 

1 nt 

RED_LINE « 0; 

int 

BI.ACK LINE - 1; 

void 

/* 

clear_audi t () ; 





* * 

* MODULE NAME: audit () 

* MODULE FUNCTION: 

* This routine checks each symbol for completeness, then highlights in red the 

* incomplete symbols and their lines. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

< >•* 

I nt audit ( type ) 
inc type; 

1 

lnt i, ok - 1; 

/* 

* redraw all the symbols so we can run audit twice in a row and 

* highlight only the offending symbols each time. 

V 

for ( i“0; i <MAX_SYMBOLS; 1+f ) 

if ( Symbol_Map( i J .symbol_type I- NONE ) 
if ( Zoomed ) 

redraw_sym_num ( i, teeny_font ); 
else redraw_sym_num( 1, Symbol_Map [ 1 ) . font ); 


/* 

* run through all the symbols, check each for completeness, highlight 

* incomplete ones. 

V 

for ( i-0; 1<MAX_SYMB0LS; 1+4 ) 

switch ( 1 - completed, type) ) 

{ . 

case -I: 

/* 

* We have run thru the whole Symbol_Map; 

* either the element is complete or we have highlighted every 

* incomplete symbol, ok is 1 if no symbol is Incomplete. 

•/ 

return! ok ); 
case N0_BEGIN: 

user_ack("no BEGIN symbol'"); 

return ( 0 ) ; 
case N0_END: 

user_ack ("no END symbol!"),* 

return! 0 ); 
defaul t : 

/* 

* Save current background of the symbol. 




* highlight the offending Symbol _Map [ i ] .mycanvas 

* and restore previous background for future symbol placement. 

*/ 

highli ght^sym ( &Symbol_Map ( 1 } ); 

ok - 0; 

break; 
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/ >****....***.**«*.*..« 

* MODULE NAME: audit_line () 

* MODULE FUNCTION: 

* This routine highlights in red a line and the symbols it connects 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**************************************** > * ********************* 


int audit_line() 

{ 

Line ‘templine; 

Symbol ‘from, ‘to; 

/* 

* find to and from symbols. 

*/ 


tempi i no “ (Line * ) Co 1 1 Map [ I,D1 1 neY )( Ll)l 1 neX) .cel 1 entry . 1 1 nos 
from - (Symbol ‘) templine->from; 

to - (Symbol ‘ ) tempi i ne->to; 


/* 

‘ Redraw it in red. . . 

V 


draw_whole_l ine ( templine, RED_LINE ); 

/* 

* Save current background of the symbols, 

* highlight the connecting from-> and to->mycanvas 

* and restore previous background for future symbol draw. 
*/ 


. /**********«*********.***.***************< >*. ******** 

* 

* MODULE NAME: audit_symbol () 

* 

* MODULE FUNCTION: 

* 

* This routine highlights in red a symbol and its lines. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 

. 

void audit_symbol { w ) 

Widget w; 


> 1 l nc; 


int sym; 

for ( sym=0; sym<MAX_SYMBOLS; sym++ ) 

1 £ ( Symbol_Map[5ym) .mycanvas — w ) 

I 

/* 

* highlight this symbol 

*/ 

hlghlight_sym( sSymbol_Map[sym] ); 

/* 

* highlight this symbol's lines; 

*/ 


highlight symlinesl 4Symbol_Map[sym) , TRUE ); 
return; 

) 

user_acX ("Fatal Error: audlt_symbol : can't find symbol") 
exit { ERR ); 


highlight_sym ( from ); 
highllght_sym t to ); 
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MODULE NAME: bu 1 ld_lan_se lect_popup () 

MODULE FUNCTION: 

This routine builds the popup to input target language type. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

« 

>* 4 4 44 4 . 44 4 4 .. 44 . - *4 44 .. . . . .4 .4 • .4 4 . ** */ 

Widget bu 1 ld_lan_select_popup ( parent ) 

Widget parent; 

( 

Arg args ( 2 ) ; 

dlg_t l_select - cr_popup ( NULLS, parent, "Select Target Language*’ ); 

FormW - cr_form{ NULLS, d 1 g_ t 1 _so 1 ect , NULL, NULL ) ; 
set_attribs ( FORM, FormW, 500,~300, XmRESI ZE_NONE ); 

lbl_t l_header - cr_label ( NULLS, FormW, str_header, 0, 1, 30, 5, 95); 

Xt SetArg { args(0), XmNal lgnment, XmALICNMENT_B EG INNING ); 

XtSetValues( lbl_t l^header, args, 1 ); 

cr^label ( NULLS, FormW, "Target Language: ", 0, 42, 46, 14, IGNORE ); 

rb_t l^select - cr_radlo_box ( NULLS, FormW, XmVERTICAL ); 
set_posltlon { rb_t l_select , 41, IGNORE, 60, IGNORE ); 

tg l_language_c - cr_toggle( NULLS, rb tl_select, "C", NULL, 0,0 ); 
tgl_language_moal • cr_toggle{ NULLS, rb_t l_select , "MOAL", NULL, 0,0 ); 
tgl_language_uil » cr_toggle( NULLS, rb_t l_select , "UIL", NULL, 0,0 ); 

Xt AddCal lback ( tgl_language_c, XmNarmCallback, cbr_language, 1 ); 

XtAddCal lback ( tgl_language_moal , XmNarmCallback, cbr_language, 2 ); 

XtAddCallback (• tgl__Ianguage_uil, XmNarmCallback, cbr_language, 3 ); 

cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ); 

DoneW • - cr_command( NULLS, FormW, "Apply", cbr_language, 4 ); 

ResetW - cr_command ( NULLS, FormW, "Reset", cbr_language, 5 ); 

CancelW - cr_command{ NULLS, FormW, "Cancel", cbrlanguage, 6 ); 

HelpW - cr_command( NULLS, FormW, "Help", cbr_help, TARGET_LANG ); 


set_posi 1 1 on ( 

CancelW, 

88, 

IGNORE, 

3, 

IGNORE ) 

set__posi t ion ( 

DoneW, 

80, 

IGNORE, 

29, 

IGNORE ) 

set_posit ion ( 

ResetW, 

88, 

IGNORE, 

55, 

IGNORE ) 

set_posi t ion ( 

HelpW, 

80, 

IGNORE, 

80, 

IGNORE ) 


1 
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* MODULE NAME: cbr_audit () 


MODULE FUNCTION: 

This routine responds when user presses 'audit' or 'clear audit' btn 


• REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

- Release 1.02 - 00/28/91 



XtCallbackProc cbr_audit( widget, closure, calldata ) 

Widget widget; 

int closure; 

ca dd r_t calldata; 

{ 

/* 

* must be in editsymbol mode to audit 

*/ 

if ( Mode ! “ EditSymbol ) 
return; 

if ( closure == 4 ) 
clear audit () ; 

el se 

/* 

* audit for just connectivity, just expressions, or both. 

*/ 

audl t ( closure ) ; 

) 



/ 


< > 




MODULE NAME: cbr_audit_on () 

MODULE FUNCTION: 

This routine responds when user presses audit on/off btn. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCa i 1 backProc cbr_audi t_on { widget, closure, calldata ) 

Widget widget; 

int closure; 

caddr_t calldata; 

l 

/* 

* set global variable on /oft. 

*/ 

if ( closure == 1 ) 

Audit - 1; 
else Audit - 0; 

) 








MODULE NAME: cbr_exit {) 


MODULE FUNCTION: 

This routine confirms exit, writes defaults, and exits GCU. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


XtCa 1 1 backProc cbr_exit{ widget, closure, calldata ) 

Widget widget; 
caddr_t closure, 
calldata ; 


/* 

* remind user if save is needed. 

V 

if < SaveNeeded && ValidElement ) 

if ( ^sk ("Do you want to save your changes to the current Element file? - ) ) 
s 2 ve_element_f lie () ; 

if [ askf'Are you sure you want to exit the GCB? " ) ) 
i 

write defaults () ; 
exit (‘"OK ) ; 

) 



* 

* MODULE NAME: cbr_language () 

* MODULE FUNCTION: 

* This routine responds when user selects target language in popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


XtCa 11 backProc cbr language( widget, closure, calldata ) 

Widget widget; 
int closure, 
calldata; 

i 

if ( closure 6 ) 

/* 

* cancel language select popup. 

V 

XtUnmanageChl Id ( dlgt l_select )? 

else if ( closure — 4 ) 

\ 

/* 

* user has selected language; set global var and popdown. 

*/ 

Target Language » language; 

XtUnmanageChl Id ( dlg_t l_select ); 

} 


else if ( closure **** 5 ) 

( 

switch ( TargetLanguage ) 


case MOAL 


default 

) 


arm_tgl ( tgl_language_c ) ; 
disarm_tgl( tgl_language_moal ); 
dlsarmtgl ( tgl_language_ui 1 ); 
break; 

arm_tgl ( tgl_language_moal ); 
disarm_tgl ( tgl_language_c ); 
disarm_tgll tgl_language_ui\ ); 
break; 

arm_tgl ( tgl_language_ul 1 ); 
disarm_tgl( tgl languagec ); 
dlsarm_tgl( tgl_language_moal ); 
break; 

elog (1 , M cbr_language () - bad TargetLanguage typo”); 


II; 



I 


91/083!! 
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if ( closure 




3 ) 


* this is a UIL toggle button release, show user ack. 
*/ 

userack ("Sorry, but UIL is currently not supported"); 


/* 


* sot current language. 

•/ 

language - ( 1 nt) closure; 

) 


cbr utils.c 
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/*************•***••*«**********«********< >**************** 

MODULE NAME: cbr_language_menu 0 

MODULE FUNCTION: 

This routine sets the proper toggles and pops up the select target language popup. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


**< >* ** ***•..*.***.. 

XtCal IbackProc cbr_language_menu ( widget, closure, calldata ) 

Widget widget; 
caddr_t closure, 
calldata; 


if ( Mode ! “ Edit Symbol ) 
return; 


/* 

* set toggle to current language 

*/ 


switch ( TargetLanguage ) 

l 


case 

0 


case 

C 

: arm_tgl { 

disarm_tgl ( 
disarm_tgl ( 
break; 

case 

MOAL 

: arm_tgl { 

disarm_tgl ( 
disarm tgl ( 
break; 

case 

UIL 

: arm_tgl { 

disarm tgl { 
disarm_tgl ( 
break; 

default 

) 

: elog(l,"cbr 


tgl_language_c ) ; 
tgl_language_moal ); 
tgl_language_ull ) ; 

tgl_language_moa 1 ); 
tgl_language c ); 
tgl_language_uil ) ; 

tgl_language_ui 1 ); 
tgl_language_c ); 
tgl_language_moal ); 

language!) - bad TargetLanguage type"); 


XtManageChild ( dlg_tl select ); 

} 
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MODULE NAME: cbr_pos_done () 

MODULE FUNCTION: 

This routine processes the element file and comp file purpose updating. This 
routine Is called when the user clicks either DONE or CANCEL in the purpose 
update popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1 .02 - 08/28/91 

• * *< >* ** » M t M * t ***.»»« t M M *»**»**»»* t * 

XtCa 1 1 back Proc cbr_pos_done ( w, client data, call data ) 


XmTextSetString ( txt_purpose, CompPurpose ); 

/* 

* Update the comp file with the new purpose text. 

V 

upda te_comp_t 1 le ( GCompFlle, CompPurpose, Root Element, NULL, 

) 


* Reset the READ-ONLY attribute and then take down the Irame. 

*/ 


XmTextSetEdi table ( txtpurpose. False ) ; 
XtUnmanageChild ( dlg_purpose ); 


Widget w; 

int cl ient__data; 

caddr t calldata; 


int length; 

if ( client_data — CANCEL ) 
i 

XtUnmanageChi Id < dlg_purpose ); 
return; 

1 

/* 

* Clear the READ-ONLY attribute and then clear the widget. Install 

* the new purpose text Into the widget. 

*/ 


XmText SetEdl tabi o ( txi_purpose. True ); 
length - strleni XmTextGet St ring (scr_purpose) ); 

/* 

* Determine .which type of purpose we are updating: Comp or Element. Then 

* place the new text In the proper string based on the type Comp or Element. 
V 

If ( XmToggleButtonGetState (tgl element) ) 

1 

strcpy( Element Purpose, XmTextGetSt ring <scr_purpose) ) ; 
ElementPurpOse[lengthJ » ' \0' ; 

XmTextSetString ( txt_purpose, ElementPurpose ); 

/• 

* Mark the Element tile as updated and In need of being saved to disk. 

V 


SaveNeeded “ True; 

) 

else 

< 

strcpy( CompPurpose, XmTextGetString (scr_purpose) ); 
CompPurpose [length J « '\0'; 



NULL ); 


/ 


< > 



MODULE NAME: cbr_purpose ( ) 

MODULE FUNCTION: 

This routine responds when t he user selects update element /comp purpose. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCa llbackProc cbr_purpose( widget, closure, calldata ) 

Widget widget; 
caddr_t closure, 
calldata; 

I 

if { Mode ! =« Ed it Symbol ) 
return; 

/* 

* Depending on which type of purpose the user wants to edit, load the 

* popup's textsw with the correct purpose text from the global vars. 

* Then set the main screen's purpose type button to the correct type 

* and then show the popup. 

V 

if { (int) closure == 0 ) 

i 

XmText Set St ring ( scr purpose, CompPurpose ); 

arm_tgl ( tgl_comp ); 
disarm_tgl ( tgl_element ); 

I 

o 1 so 

{ 

XmTextSetString ( scrpurpose, ElementPurpose ); 

arm_tgl ( tgl_element ); 
disarm_tgl{ tgl_comp ); 

) 

XtManageChild ( dlg_purpose ) ; 

/* 

* Update the position panel. This will update the text in the main 

* screen's purpose textsw so the text in the main screen will match 

* that of the popup. 

*/ 

upd_pos_panel ( NO_CHANGE ); 


1 







CCS - XmSt ringCreate ( newPath, XmSTRING_DEFAULT_CHARSET ); 
XtSetArg( args[OJ, XmNlabelSt r ing, tcs ); 

Xt5etValues( txt_cre_pos_nd, args, 1 ); 

XmStri ngFree ( tcs ); 

I 

else If ( closure -- 2 ) 
l 

Xm Remo veTabG roup ( dl g_cre_comp }; 

/•DBEUG* / 

elog {3, "textproc: act! vate\n"J ; 


} 


XSet InputFocus ( display, XtWlndow (XtParent {txt_cre_comp_re_name) ) , 
RevercToPolnterRoot, CurrentTlme ); 

XtSetKeyboardFocus ( dig cre_comp, XtParent (txt cre_comp_re_name) ); 

) 

else if { closure ■■ 3 ) 

XSet InputFocus ( display, XtWlndow (scr__cre_comp) , RevertToPoi nterRoot , 
CurrentTlme ); 
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/••».**»*»***««.. .«***»**, *,,*„, *.*»,.** * < > ********•*•*•***«••< 

* MODULE NAME: cbr_set__sym_di splay {) 

* MODULE FUNCTION: 

* 

* This routine redraws all IF/SET syms with logical or expr text. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


*********** 


******************************** ********<_____>*****************< 

XtCal IbackProc cbr__set_sym_di splay { widget, closure, calldata ) 

Widget widget? 
caddr_t closure, 
calldata; 


* set global var so draw routine knows which text to display. 
V 

if ( (int)closure — 1 ) 

LogOrCompText - 0? 

el so 

LogOrCompText =1; 


* redraw all if/set symbols with proper text displayed. 


redraw_sym_type ( IF ); 
redraw_sym_type ( SET ); 


I************************************** ********************** 

MODULE NAME: cbrsnapO 

MODULE FUNCTION: 

This routine responds when the user presses the snap on/off button 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


************************************* < ___> * *************** 

XtCa llbackProc cbr_snap( widget, closure, calldata ) 

Widget widget; 
caddr_t closure, 
calldata; 


if l (int)closure 
Snap - 1; 
else Snap * 0? 


1 ) 



***.***M.*.*M*.M * < > 

* MODULE NAME: cl ea r_audi t ( ) 


MODULE FUNCTION: 

This routine redraws all symbols in their proper color after an audit. 


• REVISION HISTORY: 

• Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

• Release 1.02 - 08/28/91 

* 

void clear^audi t () 

i 

1 n t i ; 

Linelist *llnellst; 

Line * 1 inept r; 

for ( 1-0; 1<MAX_SYMB0LS; 1++ ) 

if ( Symbol__Map( i ) .symbol_type 1- NONE ) 

[ 


* 

* MODULE NAME: highl i ght_sym ( ) 

* MODULE FUNCTION: 

* This routine changes the back and foreground colors of a symbol, then 

* redraws it. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

..•**.**•*•< 

int highl ight_sym ( sym ) 

Symbol *sym; 

I 

unsigned long temp_back, temp^fore; 

/* 

* store current colors. 

V 


/* 

* redraw this symbol with proper font 
V 


if ( Zoomed ) 

redraw_sym_num ( 1, teeny_font ); 
else redraw_sym_num( i, SymbolMap l i ) . font ); 

/* 

* redraw lines entering symbol 
V 

linelist » Symbol_Map( i ) . f rom; 
while { linelist ) 

{ 

if ( (llneptr «* linellst->llne) !» NULL ) 

» I 
/* 

* redraw next "from" line in black 
•/ 

draw_whole_l ine ( lineptr, BLACK_LINE ); 
) 

linelist *■ (LineList • ) 1 lnel lst->next ; 

) 

) 


temp back - get_my_background ( sym->symbol_t ype ); 

temp fore - get_roy_f oreground ( syn\->symbol_type ); 

/• 

* set new colors 

V 

if (Color) 

1 

set _my__back ground <sym->symbol_type, Red ); 

set_my_foreg round (sym->symbol_type, BlackPlxel (display, Defaui tScrecn (display) ) ) ; 

1 

else 

{ 

set_my_background (sym->symbol_type, WhitePlxel (display, Defaui tScreen (display) ) ) ; 
set_my_f oreground (sym->symbol_type, BlackPlxel (display, Default Screen (display) ) ) ; 
) 

if ( Zoomed ) 

redraw_sym_/ium ( compute_label_index (sym) , teeny_font ); 

else 

redraw_sym_num ( compute_label_index (sym) , sym->font ); 


/* 

* reset current colors. 

*/ 

set_my_background ( sym->symbol_type, (unsigned long) temp_back ); 
set_ray foreground! sym->symbol_type, (unsigned long) temp_fore ); 


\ 
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/A************************************** * <— > A******************** 

* MODULE NAME: highl ight_sym_l i nes ( ) 

* MODULE FUNCTION: 

* This routine highlights a symbol's lines; optionally, the symbols 

* connected to it. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

int highl ight_sym_lines ( sym, endsymbols ) 

Symbol *sym; 

int endsymbols; 


Lino ‘ilnopi. r; 

LineList “linelist; 

/“ 

* highlight the lines (and symbols) connected to this symbol. 

*/ 

linelist » (LineList *)sym->from; 
while { linelist ) 

( 

lineptr - (Line *) linelist -> line; 
if ( endsymbols ) 

highlight_sym ( lineptr->from ); 

/“ 

* redraw line in red. 

*/ 

draw_whole_line ( lineptr, RED_LINE ); 
linelist - (LineList *) 1 inelist->next; 

1 .» 

/* 

* highlight the lines (and symbols) connected from this symbol. 

V 

if ( sym->symbol_type »- IF ) 

{ 

if ( lineptr = (Line * ) sym->Sym. If Sym. true_l ine ) 

{ 

if ( endsymbols ) 

highl ight_sym ( llneptr->to }; 

/• 

* redraw line in red. 

“/ 

draw_whole_line ( lineptr, RED_LINE ); 

) 

if ( lineptr = (Line * ) sym->Sym. IfSym. false_line ) 

( 

if ( endsymbols ) 
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draw_whole_line ( lineptr, RED_LINE ); 

1 

) 

el se 

I 

If ( lineptr - (Line >)sym->next ) 

I 

If ( endsymbols ) 

hlghlightsym ( llneptr->to ); 

/* 

* redraw line In red. 

*/ 


draw_whole_l ine ( lineptr, RED^LINE ); 

) 





/ 


< > 



MODULE NAME: load_curr_di r () 

MODULE FUNCTION: 

This routine sets the parameter to the current working directory. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* < >» * *»»**»*»» 

void load__curr__di r ( cwd ) 
char "cwd; 


1 1 ( ! gotwd (cwd) ) 

{ 

user_ack ("Error: couldn't get working directory' 1 ); 
elog (1, " load_curr_di r () - couldn't getcwd () •*) ; 
return; 

) 


cbr utils.c 



cbr_utils.h 
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/****«********•*•***«******************»*< >..******.**»** 

* FILE NAME: cbr_utils.h 

* FILE FUNCTION: 

* Global variable declarations for the cbr_utils.c routines. 

* SPECIFICATION DOCUMENTS: 

* /home/pro ject/ 3531 /Docu/GCB. spec.doc 

* FILE MODULES: 

* N/A 

* 

extern char newName [MAX_NAME J , /* name of Position directory to create */ 

newPath[MAX_PATH] ; /* path to Position directory during create*/ 



FILE NAME: cbr^vj r_l nput . c 

FILE FUNCTION: 

This file contains the routines which accept variable declarations from 
the user. 


MODULE NAME; add_va r_to_sym_t able () 

MODULE FUNCTION: 

This routine adds a new variable to the symbol table using the matrix and 
type toggles. 


FILE MODULES: 


add_var_to_sym_table () 
cbr_num_lnput_done () 
cbr_str_input 0 

cbr_var_choose () 

cbr_var_lnput_done () 
cbr_var_type 0 

count_quotes () - 

destroy_global_varllst () 
ltoa 0 - 

load_variable_list () - 
lookup_global_varl 1st () 
right_type () 

valld_name {) - 

valid_num () - 


■ adds variable to symbol table using matrix, type toggles. 

• handles events when user enters numbers in popup. 

■ processes the button presses In the String popup. 

■ sets fields when user selects name in var_input popup 

• responds when user enters var names, numbers, or text 

■ records variable type chosen in var declaration popup, 
counts quotes in string; ensures they are properly placed 
- deallocates space needed for global varlist. 

■ returns the ascii equivalent of the number parameter, 
loads list from which to select variables 

- forms list of global variables for the current element. 

- determines if name parameter fits type parameter, 
determines if name has proper type chars, # of brackets, 
determines if the number is well formed. 


•include <stdlo.h> 

linclude <X11/Intrlnsic. h> 
linclude <Xm/Xm.h> 
linclude <Xm/Text.h> 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

**««•••««•«»«*«*«««•****«**•**«»«***«*< >***"««***** 


int add_var_to_sym_table () 

1 

int 
Arg 
short 
short 

/* 

* set attribute ol new variable; default is Integer. 

*/ 


attributes - 0, entry_val, matrix - 0; 
args [1 ] ; 

numdims - 0, rows - 0, cols - 0; 
dim3 * 0, dlm4 - 0; 


attributes |“ VARIABLE; 
if ( Irbsymtype ) 

rb_sym_type - INTEGER; 
attributes |- rbsymtype; 


/ 


f 1 nc 1 ude 
I i uc 1 ude 
linclude 
I Include 
•Include 
linclude 
linclude 
linclude 


"gob. h** 

"widget s . h" 
"symbol ,h" 
"gcb_parse . h” 
"lines. h" 

"next_i nputs. h" 
“menu.h" 

"cbr_var_lnput . h” 


if ( XmToggloUut tonGol State (tgl_is_mat ) ) 

1 

attributes | - MATRIX; 

/‘DEBUG*/ 

elog(3,"its a matrix! %d by %d, attrlbs - %o", 

rows - (short) atoi (XmTextGet St ring (txt_matdim_x) ) , 
cols - (short) atoi (XmTextGet St ring (txt_matdim_y) ) , 
dim3 - (short) atoi (XmTextGetSt ring (txt _matdlm_3) ) , 
dim4 - (short) atoi (XmTextGet St ring (txt_matdim_4) ) , 
attributes ); 


/* 

* default I of dimensions is 2. 
*/ 


num_dlms ° 2; 

if ( (short) atoi (XmTextGet St ri ng (txt _matdim_3) ) ) 
num_dlms *» 3; 

if { (short) atoi (XmTextGet St ring (txt_matdim_4) ) ) 
num_dims - 4; 

if ( (cols < 1) II (rows < 1) || 

((num_dims — 3) && (dim3 < 1) ) II 
((numdims -- 4) && (dim4 < 1)) ) 

{ 

userack ("Matrix dimensions must be greater than zero"); 
return ( 0 ) ; 

) 


preceding page blank not filmed 
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/‘DEBUG*/ 

elog (3, "add var: rb sym type = %i", rb_sym_type) ; 

/* 

* Add the variable to the symbol table, make its parent in the symbol table 

* dependent on the variable scope. 

V 

if ( right_type (LOCAL_VAR, variable) ) 

entry_val - add_symbol_entry ( ElementFile, variable, attributes, num dims, 
rows, cols, dim3, dim4 ); 

else 

entry_val - add_symbol_entry ( NULL, variable, attributes, num_dims, 
rows, cols, dlm3,dim4 ); 


MODULE NAME: cbr_num_input_done 0 

MODULE FUNCTION: 

This routine handles events when the user is finished entering numbers 
in a popup window. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


if ( entry_val ) 

error_handler { ERR_ADD_SYMBOL, "add_var_to_sym_table" ); 

/•DEBUG*/ 

elog (3, "added %s %s %i to sym table, return val %d", ElementFile, variable, 
attributes, entryval); 

return ( 1 ); 


XtCallbackProc cbr_num_input_done ( w, closure, calldata ) 


Widget 

int 

caddr t 


w; 

closure; 
•call data; 


int popup_type; 
Arg args[l]; 


if { closure == CBR_COMP_TYPE_CANCEL ) 

i 


/* 

* reset text field and popdown. 

*/ 


XmTextSetString ( scr_var_i nput , NULLS ); 
XtUnmanageChlld ( dlg_var_input ); 

) 

else if ( closure == CBR_COMP_TYPE_DONE ) 

[ 


/* 

* the type of the popup is hidden in the userData resource. 

*/ 


XtSetArg{ args[0), XmNuserData, &popup_type ); 

XtGetValues( dlg_var_lnput , args, 1 ); 

/•DEBUG* / 

elog(3,"str input done: popup type is %i", popup_type) ; 
if ( popup_type == NUMBER ) 

/• 

• is number well -formed? 

*/ 

if (I valid_num( XmTextGetString (scr varlnput) ) ) 

I 

user_ack ("Your number contained an illegal char"); 
return; 

) 


XmText Insert ( scr_expr, XmTextGet Insert ionPosltion (scr_expr) , 
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XmTextGetString (scr_var_input ) ) ; 
XmText SetStrlng ( scr_var_input, NULLS >; 
XtUnma nageChl Id { dlg_var_lnput ); 


/* 

* parse the expression obtained so far. 

*/ 

do_parse () ; 

I 



MODULE NAME: cbr_st r_lnput_done U 

MODULE FUNCTION: 

This is the callback routine which is called when the user is adding a String 
to a logical expression. This routine processes the button presses in the 
String popup. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


* < >* 


XtCallbackProc cbrst r_lnput_done ( w, closure, call_data ) 


Widget 

int 

caddr t 


char *str; 
int rc; 


closure; 
♦call data; 


if ( closure CANCEL ) 


XtUnmanageChild ( dlg_str_input ); 
return; 

1 

/• 

• User chose DONE, insert the string into the expression. If the user didn't 

• put In any quotes, add them. If the user put in the quotes correctly, don't 

• mess with the original string, just add it to the expression. If the user 

• did something wrong, scold them and don't add the string to the expression. 
V 


str » XmTextGetString ( txt_str_input ); 
rc = count_quotes ( str ); 
if ( rc -- 0 ) 
l 

XmText Insert ( scr_expr, XmTextGetlnsertionPosit ion (scr_expr) , "\ M " ); 
XmText Insert { scr_expr, XmTextGetlnsertionPosit ion (scr_expr) , str ) ; 
XmText Insert ( scr_expr, XmTextGetlnsertionPosit ion (scr_expr> , )• 

) 

else if ( rc **- 2 ) 

XmText Insert ( scr_expr, XmTextGetlnsertionPosi 1 1 on (scr_expr) , str ); 
else if ( rc «« ERR ) 

I 

user ack ("four string is improperly formed, please remove quotes -> \ mm ) i 
return; 

} 


Xt UnmanageChl Id ( dlg_st r_input ); 
do parse () ; 
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uf 
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/* 

* Get the text from the matrix element text fields. Append them to the variable 

* name. First make sure the user didn't type in the brackets with the name. If 

* they did, too bad, any values in the Element text fields will replace what the 

* user typed in. 

*/ 


It ( strlen (XmTextGetStr ing (lxt_matelm_x) ) ) 

i 

just_mat_name { newStr ); 
strcat ( newStr, "l" ); 

strcat( newStr, XmTextGetString (txt_matelm_x) ); 

if ( (popup_type — LOCAL_VAR) I I (popup type — GLOBAL_VAR) ) 

{ 

strcat ( ncwSt.r, " ) l M ); 

strcat ( newStr, XmTextGclSt r ing (ixt_matelm_y ) ); 
strcat ( newStr, "]" ); 


if{ atoi {XmTextGetString (t xt_matelm_3) ) ) 

1 

strcat ( newStr, "[" ); 

strcat ( newStr, XmTextGetString (txt_matelm_3) 
st rcat ( newStr, " | “ ) ; 

I 

if( atoi (XmToxtCet St ri ng (t xt mat elm 4) ) ) 

{ 

strcat { newStr, " [" ); 

strcat ( newStr, XmTextGetStr ing (txt_matelm_4 ) 
strcat ( newStr, "1" ); 

) 

1 

el se 


strcat ( newStr, M |" ); 

) 

else 


); 


> ; 


/* 

* The user may have typed in a matrix element specifier, check the name 

* user entered Including the brackets. 

*/ 

if ( val id_name (newStr, popup_type) ) 

{ . i 

user_ack ("The variable name contains an invalid character or prefix"); 
return; 

I 


/* 

* Make sure the Identifier/variable name is properly formed. 

*/ 


ElementFile ; NULL, variable) ) 

( 

/* 

* This identifier is not in the symbol table, determine which type of 

* symbol we are building. 

•/ 

Xt Set Arg ( args(0), XmNuserData, 4sym_type ); 

XtGetValues( current_symbol, args, 1 ); 

/* 

* If we have a local variable which is on the RHS and is not In the 

* symbol table, let the user know they must set a local variable before 

* using it. We let the user use globals before being set because they 

* may be designing "TopUp". 

•/ 


if ( (popup_type “*> LOCAL_VAR) && ( (sym^type — IF) || (WhereAmI ■“ RHS)) ) 

l 

user_ack ("Must SET/ini t lalize variable before using in an expression"); 
return; 

I 

/* 

* This is the first reference to an identifier and it is not a local 

* variable, add the identifier to the symbol table. 

V 


else if ( ! addvar _to_sym_table () ) 


i 

XmTextSetString ( 
XmTextSetStrlng ( 
XmTextSetString ( 
XmTextSetString ( 
XmTextSetString ( 
XtUnmanageChi Id ( 
return; 

) 

1 


txt jnatelm_x, NULLS ) 
txt_matelm_y, NULLS ) 
txt_mat elm_3, NULLS ) 
txtjnatelm“4, NULLS ) 
txt_var_name, NULLS ) 
d 1 g_l og I c^t y pe ) ; 


/* 

* Take down the Select variable popup. 
*/ 


XmTextSetString ( txt_matelm_x, NULLS ); 
XmTextSetString ( txt_matelm_y, NULLS ); 
XmTextSetString ( txt_matelm_3, NULLS ); 
XmTextSetString ( txt_matelm_4, NULLS ); 
XmTextSetString ( txt_var_name, NULLS ); 
XtUnmanageChild ( dlgloglctype ); 


if ( val ld_name (variable, popup_type) ) 

l 

user_ack ("The variable name contains an illegal character or invalid prefix"); 
return; 

) 


/• 

* Reset the rb_sym_type variable, which tells the most 

• recently selected variable type toggle. 

*/ 

rb_sym_type - INTEGER; 


/• 

• See if the identifier/variable name is in the symbol table. 
V 

if (I (struct symbol_entry * ) lookup_symbol ( (popup_type =«= 


/* 

* Insert the identifier/variable name into the expression. 

*/ 

XmTextlnsert ( screxpr, XmTextGetlnsert ionPosit ion (scr_expr) , newStr ); 


LOCAL VAR) ? 



********* 


* * ft * * * 
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/* 

* parse the expression obtained so far. 
V 


*< >* 


MODULE NAME: cbrvar choose () 


do_parse {) ; 

} 


MODULE FUNCTION: 

This routine sets the text fields according to the variable name selected by 
the user in the varlnput popup. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

ft******************************** *******< >* ft**************************************/ 

XtCallbackProc cbr_var_choose ( w, closure, call_data ) 

Widget w; 

int closure; 

XmList Call back Struct *call_data; 

( 

char *str, tempName [MAX_NAME] , r[3), c[3|, d3(3), d4[3); 

Arg args[l); 

lnt intdlm3, intdim4, popup_type, type, lntrows, intcols, itoa(); 

short dims, dim3, dim4, rows, cols; 

XmSt rl ngGetLtoR ( cal l_data-> i tern, XmSTRING__DEFAULT_CHARSET, &str ); 
sscanf { str, "*s", tempName ); 

XmTextSetStr lng ( txt_var name, tempName ); 

/* 

* lookup symbol; get symbol type and set rb button; set matrix dims 

* if appropriate. 

V 

XtSetArg { args(0), XmNuserData, 4popup_type ); 

XtGetValues( d 1 g 1 ogic_type, args, 1 ); 

if ( (type = ret urn_symbol__att ributes ( (popup_type != LOCAL_VAR) ? 

NULL : ElementFile, tempName)) ERR ) 

( 

/* 

* Panic: the variable was loaded into the list from the symbol table 

* but is no longer there. 

V 

user_ack ("variable in list but not in symbol table"); 
exit (ERR) ; 

) 

/* 

* set toggle values according to var type. 

*/ 

switch ( rb_sym_type ) 

( 

case INTEGER: disarm_tgl( tgl_var_type_int ); 

break; 

case FLOAT: disarm_tgl( tgl_var_type_real ); 
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break; 

case CHAR: 
brea k ; 

case DOUBLE: 
break; 

case UNSIGNED: 
break; 


disarm_tgl ( 
dl sarm_tgl ( 
di sarm_tgl { 


case SHORT: dlsurm_tgl( 

break; 

I 

dlsarm_tgl ( tg l_var_type_i nt ); 


tgl_var_type_string ); 
tgl_var_type_double ); 
tgl_var_typc_unslgned ); 
tgl _var_type_short ); 


/- 

* arm proper toggle and set selected type. 

*/ 


If ( type 4 INTEGER ) 

{ 

arm_tgl( tgl_var_type_int ); 
rb_sym_type - INTEGER; 

) 

else if ( type & FLOAT ) 

I 

arm_tgl( tgl_var_t ype__real ); 
rb_sym_type “ FLOAT; 

) 

else if ( type & CHAR ) 

( 

arm_tgl( tgl_var_type_st rl ng ); 
rb_sym_typo - CHAR; ) 
else If { type 6 DOUBLE ) 

i 

arm_tgl( tgl_var_type_double )? 
rb_sym_type - DOUBLE; 

) 

else if ( type (, UNSIGNED ) 

I 

arm^tgl { tgl_var_type_unsigned ); 
rb_sym type - UNSIGNED; 

I 

else If ( type & SHORT ) 

I 

arm_tgl ( tgl_var_type_short ); 
rb_sym_type - SHORT; 

} ! 

if ( type & MATRIX ) 

( 

/* 

* set dimension text fields 

*/ 



exit ( ERR ) ; 

) 


/• 

* convert short to lnt. 

*/ 


introws - rows; 
intcols - cols; 

/» 

* convert int to char string and set dimension text fields. 
V 

itoa ( introws, r ) ; 
itoa ( intcols, c ) ; 


/• 

* if dims > 4 or dims > 3, convert 3 and 4 dimensions to strings. 

• else clear 3rd and 4th dimension fields. 

•/ 

If ( dims ~ 2 ) 
i 

XmText Setstring ( t xt_matdim_3, NULLS ); 

XmText Setstring ( txt_matdim_4, NULLS ); 

) 

if ( dims > 2 ) 

1 

intd!m3 - dim3; 
itoa ( lntdlm3, d3 ); 

) 

If { dims > 3 ) 

i 

intdim4 » dim4; 
itoa( intdim4, d4 ); 

) 

XmText Set St ring ( t xt matdlm x, r ); 

XmText Set St rl ng ( t xt mat dlm_y, c ); 

if ( dims > 2 ) 

XmTextSetString ( txt_matdim_3, d3 ); 
if ( dims > 3 ) 

XmTextSetString { txt_matdlm_4 , d4 ); 

) 


/* 

* The selected variable is not a matrix variable, reset the toggle buttons 

* and clear the matrix dimension text fields. 

*/ 


arm_tgl( tgl_is__mat ); 
dlsarm_tgl{ tgl_isnt jnat ); 

cbr_mat_tgls ( NULL, MAT, NULL ); 

if ( {type - return_matrlx_attributes ( (popuptype LOCAL_VAR) ? 

NULL : ElementFile, tempName, tdlms, irows, &cols, sdim3, 4dim4>) — ERR ) 

{ 

/*DEBUG*/ 

elog (1, "choose: retur matrix attribs failed for %s M , tempName); 
user_ack ("can' t find matrix attributes in cbr_var_choose") ; 


else 

{ 

arm_tgl ( tgl_isnt_mat ) ; 
disarm_tgi( tgl_is_mat ); 

cbr_mat_tgls { NULL, SCAL, NULL ); 

) 
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/*»*** * * » » « * ****************** 

* MODULE NAME: cbr_var_type ( ) 

* MODULE FUNCTION: 


< > 


'■ ;• cbr_var_input.c 

............. — > 

* 

* MODULE NAME: count_quotes () 

* MODULE FUNCTION: 



This routine records the variable type chosen by the user In the variable 
declaration popup. 


REVISION HISTORY: 


This routine counts the number of quotes in a string and makes sure the quotes 
are in the proper place In the string. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCa llbackProc cbr_var_type ( w, closure, call^data ) 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*< >* 


int count_quotes ( str ) 


Widget 

lnt 

caddr t 


w; 

closure; 

call_data; 


t 

rb_sym type closure; 

/•DEBUG*/ 

elog (3, "sett ing rb_sym_type to %i" , rb_sym_type) ; 

) 


char ‘str; 


char *ptr; 
lnt count - 0; 

/*' 

* Count the number of quotes in the string. 
*/ 


ptr - str; 

while ( ‘ptr NULL ) 

{ 

if ( *pt r == ) 

count* +; 
pt r * ♦ ; 

} 


/* 

* If there are no quotes or If there are too many quotes, then return. 
•/ 


if ( count 0 ) 

return ( count ); 

if ((count >2) || (count « 1)) 
return ( ERR ) ; 

/* 

* There are two quotes, make sure they are in the right spots. 
*/ 


if ( (str [0 ) ! *= '\ M ') II (str [strlen(str) -1 | !» 'V')) 
return ( ERR ) ; 

return ( 2 ) ; 




MODULE NAME: de st roy_gl oba l_va r 1 l st O 

MODULE FUNCTION: 

This routine deallocates space needed for global varlist 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 
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* MODULE NAME: right_type () 

* MODULE FUNCTION: 



* This routine determines If Its name parameter fits its type parameter. 

« 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

/ mm* 


lflt destroy_global_varl 1st ( list ) 
struct symbol_entry 'list; 
l 

struct symbol_entry *temp; 
while ( list J 

I 

temp - list; 

list - (struct symbolentry *) list->se_next; 
f ree { temp ); 

I 

I 


int right_type{ type, name ) 

int type; 

char *name; 


Int vtype « L0CAL_VAR; 

/* 

* Determine the type of the variable based on its name. 

*/ 

if ( (name [ 0 ] =* ' G' ) && (name(l] 'V') 4 4 (name(2) »» ) 

vtype - GLOBAL; 

else if ( name(0J «=* 'W' ) 
vtype •» WSG; 

else if ( name|0] -*» ' V' ) 
vtype “ MS ID; 


/* 

* See if the data type of the variable matches what we are looking for. 
•/ 

If ( type «= vtype ) 
return ( True ); 

else 

return ( False > ; 




) 


s[l] - ' \0' ; 
return ( 1 ); 
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MODULE NAME: load_var lable_li st () 

MODULE FUNCTION: 

This routine loads the list from which the user selects variables, according 
to the button the user clicked to bring up the popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

**»*••.***•*«•*«**••*«*•***•««•••*»• **< >* * 


/* 

• * go thru list, extract var name from each entry 

*/ 

i - 0; 

while { varlist ) 

{ 

/* 

* We only want variables of the right typo tor this; typo ot list. 

*/ 

if ( r i ght type (type, var list ->se_symbol) ) 

( 

/•DEBUG*/ 

elog (3, " load_var_l ist : loading var name %s", varl lst->se_ symbol ) ; 

/ strcpy( se 1 List ( i } , varl ist->se_symbol ); 


void load^varlable_llst ( selbox, type ) 

Widget selbox; 
int type; 


struct symbol_entry 

Widget 

char 

int 

XmSl ri ng 


•varlist, *lookup_global_varl 1st () ; 
list; 

selList (MAX_NAME) (MAXNAME) ; 

1, j, global - 0; 
xmst r; 


list - (Widget) XmSelect ionBoxCetChi Id ( selbox, XmDI ALOG_LIST ); 

/* 

* Call the appropriate function to return a variable list. 

*/ 


switch ( type ) 

( 

case L0CAL__VAR : 

varlist » (struct symbol_entry *) lookup_local_varlist ( ElementFile ); 
If ( varlist ) 

el og (3, " 1 oad var list: found local var list for elem file %s", 
ElementFile) ; 

else * 

elog(3,"load var list: no find local var list for elem file %s", 
ElementFile) ; 

break; 


/•DEBUG*/ 

elog (3, " load_var_l 1st : symbol Is", var 1 1 st->se_symbol ) ; 

/* 

* Append some spaces to the variable name so we can then add 

• the data type information. 

*/ 


for ( j < (20-strlen (varl lst->se__symbol ) ) ; .)*■ + ) 

strcat( se 1 List [ 1 ) , " " ); 

if ( varli st->se_type & INTEGER ) 
strcat< sellist(i), "int" ); 
else if ( varlist->se_type & UNSIGNED ) 
strcat( selList(l), "unsigned int" ); 
else if ( varl i st->se_type & FLOAT ) 
strcat( se 1 Li st ( i J , "float" ); 
else if ( varl lst->se_type i SHORT ) 
strcat( selList[i], "short" ); 
else if ( varl lst->se_type & DOUBLE ) 
strcat( selLlst(l), "double" ); 
else if ( varl ist->se_type & CHAR ) 
strcat( selList(l), "string" ); 


/* 

* Check for a matrix, add "matrix" past the data type. 

*/ 


if ( var 1 i st ->se_type & MATRIX ) 

streat ( selList(l), " matrix" ); 


case GLOBAL : 
case MSID : 
case WSG : 

varlist » (struct symbol_entry •) lookup^global^varlist () ; 

global » 1; 

break; 

) 

/* 

* delete the current list entries. 

*/ 


/•DEBUG*/ 

elog (3, "%s", selList(i)); 

i + v; 

I 

varlist » varl ist->se_next ; 

I 

/* 

* Sort the list and Install the list into the selection widget. 

*/ 

if ( i > 0 ) 

( 

for ( j*=0; j<i; ) 


XmLi stDe leteAl 1 Items ( list ); 
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i 

i 

qsort ( sell.ist, 1, MAX_NAME, strcmp ); 
for ( j-0; j<l; ) 

( 

xmstr = XmSt ri ngLtoRCreate ( selList(J) 
XmLi st Addltem ( list, xmstr, j+1 ); 
XmStrl ngFree ( xmstr ); 

) 

} 


XmSTRING DEFAULT CHARSET 


) 


if ( global. ) 

dest roy_global_varlist ( varlist ); 


cbr_var_input.c 
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MODULE NAME: look up_g 1 oba lvarl 1st () 

MODULE FUNCTION: 

This routine forms a list of the global variables for the current element. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


< — 


— > 


/ 


struct symbol^entry * lookup_global_varl ist {) 


[ 

struct symbolentry *temp, *head =» NULL, *sym_entry; 


/* 

* Initialize sym_entry to point to the root of the symbol table. 
*/ 


sym_entry - symbol_table; 


while ( sym entry ) 

( 

ii ( syment ry->se_type & VARIABLE ) 

[ 


/' 

• only elements, intrinsic functions and variables are global; of 

• these, only variables have the VARIABLE flag set. add this entry 

• to list. 

V 


if 


( temp - (struct symbol_entry *)malloc( sizeof( struct synibol_ent ry 


[ 

strcpy( temp->se_symbol, 
temp->se_t ype 
temp->se_use count 
temp->se_num_dimensions 
temp->se_subs [0] 
temp->se_subs [ 1 ] 
temp->se_subs[2] 
t emp-> se_s ubs ( 3 ] 


sym_ent ry->se_symbol) ; 

= sym_ent ry->se_type; 

■ syment ry->se_use_count ; 

- sym_entry->se_num_dimensions; 

- sym_ent ry->se_subs (0 ) ; 

= sym_ent ry->se_subs [ 1 ) ; 

- sym_entry->se_subs ( 2 ] ; 

“ sym_entry->se_subs [3 ) ; 


temp->se_local_vars = NULL; 

) 


temp->se_next = head; 
head « temp; 

) 

sym_entry = sym_entry->se_next ; 

1 


) 


return ( (struct symbol_entry *) head ); 

1 
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MODULE NAME: valid name() 


MODULE FUNCTION: 


This routine determines if the name has only the proper type of characters 
and number of brackets. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int valld_name( name, popup_type ) 

char name [ ] ; 

int popup_typo; 


Int attribs, 

i, 

Ion, 

left_br_count * 0, 
rght_br_count - 0; 


* It Che variable Is not a local "looking" variable but the popup thinks the 

* variable was supposed to be a local, then error. 

*/ 

attribs - ls_local( name ); 

If ( attribs & LOCAL_VAR ) 

If ( popup_type !- LOCALVAR ) 
return! ERR ); 

else It ( attribs i WS_GLOBAL ) 

If ( popup_type !“ WS_GLOBAL ) 
return! ERR ); 

else If ( attribs i WS_OBJECT ) 

If ( popup_type !- WSOBJECT 1 
return! ERR ); 

else If ( attribs i GLOBAL_VAR ) 

If ( popup_type !* GLOBAL ) 
return! ERR ); 


* If the variable name Is empty, then error. 

•/ 

len - strlen( name ) ; 

If (1 len ) 

return! ERR ); 


• Go through the variable name ami look for an Illegal character. The first 

* character should only be alphabetic, no underscores or numbers. 

*/ 


for ( j-0; j<len; j++ ) 


* First character must be alphabetic. 

*/ 

lf(! J ) 

I 

if < 1 lsalpha (name ( j | ) ) 
return l ERR ) ; 

I 

/* 

* Remaining characters can be alpha or numeric or matrix Identifier 

*/ 

el se 

If (! lsalnum (name ( J | ) ) 

If (1 index name [j | ) ) 
return! ERR ); 

el se 

/• 

* Record brackets. 

*/ 

I 

1 f ( name | j I *•« ' ( ' ) 

1 of t_br_eount k * ; 

1 f ( namo[ } ] -- ' | ' ) 
rght_br_countl+; 

I 

1 

/* 

* Do some checking on the brackets. 

*/ 

If ( rght_br_count !» left_br_count ) 
return! ERR ); 

If ( (popuptype WSGLOBAL) II (popuptypo — WSOBJECT) ) 

If ( rghtbreount > 1 ) 
return ( ERR ) ; 

/* 

* Variable must be okay, otherwise we wouldn't get this far. 

*/ 


return ( OK ) ; 
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MODULE NAME: valid_num() 


MODULE FUNCTION: 


This routine determines if the number is well formed. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 « 08/28/91 


int valid_num( text ) 
char *text; 


int j, dot = 0; 


* a NULL string is not well-formed. 

*/ 

If ( ! st rlen (text) ) 
return { 0 ) ; 

for ( 0; j<strlen (text) ; J+t ) 

1 

If ( text ( j| -- ' . ' ) 


If ( dot ) 

return ( 0 ); 
else dot - TRUE; 

I 

else If ( j (text ( j ] — 'x') I (text [ J ] -- 'X') ) 

( 


hex number 


If ( ( ! j ) II (text | j-l| ! = ' 0' ) ) 
return! 0 ); 

I 

else If ( ! lsdlglt (text ( }| ) ) 
return ( 0 ) ; 

1 

return! 1 ) ; 


/ 


< — 


— > 
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cbr_var_input.h 


* PILE NAME: cbr_var_input . h 

* FILE FUNCTION: 

* This file contains the global variables and function prototypes for cbr_var_input . c 


* :»i* i-'.c i i' l cat i on document:.;: 

* /home/pro ject/3531/Docu/GCB. spec.doc 


• FILE MODULES: 

* N/A 

>•••«••••••••«••••••• 

/* 

* cbr_var_lnput . c global variables. 

*/ 

char variable (MAX_TEXT| ; 

lnt rb_sym_type; 

/* 

* cbr_var Input. c function prototypes. 

*/ 

just_raat_name () ; 


void 


| 91 / 08/29 | 
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* 

* FILE NAME: colors. c 

t 

* FILE FUNCTION: 

* 

* This file contains the routines which create and manipulate 

* SPECIFICATION DOCUMENTS: 


colors.c 


the display colors. 


/* 

* vars for storing current color choices 
*/ 

static unsigned long btn_fore, btn_back 


/home /pro ject / 3531 /Docu/GCB. spec.doc 



* FILE MODULES: 

* build color popup O 

* ebr co 1 or _ choice {) 

* cbr_colo redone () 

* cbr_color_menu 0 

* cbr_color_sym_choi ce () 

* get_colors () 


- builds the popup to select palette Item colors. 

- handles button press events over a color choice. 

- applies the color choices to palette and work areas. 

- pops up the color menu from the pulldown menu. 

- changes bitmap in color popup according to selection 

- sets up the color map for gcb. 

******* * 


•include 

•include 

•include 

•include 

•include 

•include 


<stdio. h> 

<X1 1/Intrinsic. h> 
<X1 1/ cursor font .h> 
<Xm/Xm. h> 
<Xm/PushB. h> 
<Xm/RowColumn.h> 


•Include 
•Include 
•include 
•include 
•include 
• i nclude 
• i ncl ude 


"gcb. h" 

"cbr . h" 
"widgets . h" 
"menu.h" 
"pixmaps. h" 
"constant s. h" 
"Images .h" 


extern char *palotte_i terns [J ; 

/* 

* header string for colors popup. 

*/ 

char color_string [ ) - "Select the item whose colors you wish to change. Then select the 
background or foreground. Next, select the color. \nTo change the color of the palette 
item and corresponding symbols, click Apply. To restore the original colors, \ncllck Re 
set . 

static char *cnamos[| « 1 

"white", 

"gray", 

"khaki", 

"gold" , 

"yellow", 

"yellow green", 

"green", 

"aquamarine", 

"sky blue", 

"dark slate blue", 

"brown", 

"black" 

1; 
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MODULE NAME: bu 1 ld__color_popup () 


* MODULE FUNCTION: 

* This routine builds the popup from which the user selects palette item colors. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* * < >* * **** ( ** M **•.*»«**»*******» « 

void build_color__popup ( parent ) 

Widget parent; 

l 

Int n, 1; 

Arg args [10]; 

XI mage ‘image; 

Pixmap pixmap; 

Widget button; 

dlg_color - cr_popup ( NULLS, parent, "Select Colors" ); 

FormW - cr_form( NULLS, dlgcolor, NULL, NULL ); 
set_at tribs ( FORM, FormW, 77S, 400, XmRESIZE_NONE ); 

lbl_color_header «• cr__label ( NULLS, FormW, colorist ring, 0, 3, 20, 5, 95 ) ; 

/* 

* header is left-aligned. 

V 

XL Sot Arg ( args|0], XmNn 1 1 gnmont , XmALI CNMENT_ BEGINNING ); 

XlSetValucs( 1 bl_color_header, args, 1 ); 

/• 

* create rowcol to hold palette name items 

*/ 

. \ 

n - 0; 

Xt Set Arg { args(n), XmNpa eking, XmPACK_COLUMN ); n++; 

XtSetArg( args (n I, XmNnumColumns, 1 ) ; n++; 

XtSetArg! args(n), XmNentryAllgnment , XmALIGNMENT_CENTER ) ; n++; 

XtSetArg! args[n), XmNor lentat ion, XmHORIZONTAL ); n++; 

rc_color_i name “ XmCreateRowColumn ( FormW, "rc_color_iname", args, n ); 

XtManageChi Id ( rc_color__lname ); 

set_position { rc_color_Tname, 25, ICNORE, 5, IGNORE ); 
for ( i - 0; 1 < 10; i++ ) 

button * cr_command( NULLS, rc_color_iname, pa lett e items ( i ) , 
cbr_color_sym_cholce, i ); 
button - cr_command{ NULLS, rc_color_lname, "All", 
cbr_color_sym_cholce, 11 ); 

image - (Xlmage * ) CreateDefaul t Image { box_bits, 16, 16 ); 

Xmlnstal llmage ( image, "box" }; 

/* 


colors.c 

* create rowcol to hold colors 
**** */ 

n - 0; 

XtSetArg( argsfn], XmNpa eking, XmPACK COLUMN ); n++; 

XtSetArg! argsfnj, XmNnumColumns, 1 ); n + + ; 

XtSetArg! args(n), XmNentryAllgnment, XmALI GNMENT_CENTER ); n**; 

XtSetArg! argsln], XmNorlentat ion, XmHORIZONTAL ); n+*; 
rc color ■* XmCreateRowColumn! FormW, "rc_color", args, n ); 

XtManageChlld( rccolor 1; 

set_posl tion ( rc_color, 60, IGNORE, 5, IGNORE ); 

/• 

* find pixmap for each button, set callback function, and 

* create button. 

•“/ V 

for { 1=0; i < MAX_C0L0RS-1; i++ ) 

l 

pixmap - XmGetPlxmap { XtScreen (rc_color) , "box", colors]l), 0 ); 

/* 

• create push button 

•/ 

n - 0; 

XtSetArg! args In], XmNlabelType, XmPIXMAP ); n++; 

Xt SetArg ( argsjn], XmNlabelPixmap, pixmap ); n++; 

XtSetArg! args[n], XmNwldth, 16 ); n + t; 

Xt SetArg ( argsinj, XmNheight, 16 ); nf + ; 

button - XroCreatePushButton ( rc_color, NULLS, args, n ); 

XtManageChild ( button ); 

XtAddCal lback ( button, XmNactl vateCallback, cbr_color_choi ce, i ); 

J 

/* 

* create rowcol to hold palette items 
V 

n - 0; 

Xt SetArg! args[n), XmNpa eking, XmPACK_COLUMN ); n++; 

XtSetArg! args[n), XmNnumColumns, 1 ); n++; 

Xt Set Arg( args[n], XmNentryAlignment , XmALI GNMENT_CENTER ); + ; 

XtSetArg! argsln], XmNorlentat ion, XmHORIZONTAL ); n++; 

rc color template - XmCreateRowColumn! FormW, "rc_color_template", args, n J; 
XtManageChild! rc_color_template ); 

setposition ( rc_color_template, 45, IGNORE, 75, IGNORE ); 

/* 

* find pixmap for begin button, create template button. 

*/ 

pixmap = XmGetPlxmap ( XtScreen (rc_color) , "BEGIN", 

colors [get_my_foreground (BEGIN) 1 , colors (get_my_background (BEGIN) ] ) ; 
n *= 0; 

XtSetArg! argsln], XmNlabelType, XmPlXMAP ); n++; 

XtSetArg! argsln], XmNlabelPixmap, pixmap ); n++; 

XtSetArg! args(n), XmNwidth, 64 ); n++; 

XtSetArg! args(n], XmNheight, 64 ); n ♦ 

XtSetArg! args[n], XmNuserData, 0 ); n++; 

btn color template » XmCreatePushButton ( rc_color_template, NULLS, args, n ); 
XtManageChild! btn_color_template ); 
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rb_color « cr_radio_box ( NULLS, FormW, XmVERTICAL ); 


/ 


< >* 


cr_separator { NULLS, FormW, 82, IGNORE, 1, 99 ); 


CancelW 

= cr_command { 

NULLS 

FormW, 

"Close”, cbr_ 

color 

done, 3 

; 

DoneW 

■ cr_command( 

NULLS 

FormW, 

"Apply", cbr 

color 

done, 1 

; 

ResetW 

- cr_command{ 

NULLS 

FormW, 

"Reset", cbr 

color 

done, 2 


HelpW 

- cr_command ( 

NULLS, 

FormW, 

"Hel 

p", cbr 

help. 

SET 

COLORS 

set_posi tion ( 

rb_color, 

40, 

IGNORE, 

5, 

IGNORE ) 




setposit Ion ( 

CancelW, 

90, 

IGNORE, 

5, 

IGNORE ) 




setposit ion { 

DoneW, 

90, 

IGNORE, 

30, 

IGNORE ) 




set_posi t ion ( 

ResetW, 

90, 

IGNORE, 

58, 

IGNORE ) 




set_posi t ion ( 

HelpW, 

90, 

IGNORE, 

GO 

U> 

IGNORE ) 





MODULE NAME: cbrcolorchoice 0 

MODULE FUNCTION: 

This routine handles events when the user pushes a mouse button over a 
color choice. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


tgl_color_fore 

tgl_color_back 


cr_toggle( NULLS, rb_color, 
cr_toggle( NULLS, rb_color, 


"Foreground", NULL, 0, 0 ); 
“Background”, NULL, 0, 0 ); 


< >* *************************** 


1 


bt n_fore 
btn back 


get_jny_foreground ( BEGIN ); 
get_my_back ground { BEGIN ); 


XtCal IbackProc cbr_color_choice { w, color, call_data ) 

Widget w; 
int color; 

caddrt call data; 


l 


Pixmap 

pixmap, 

Arg 

args [1 

int 

syo; 

/• 



* retrieve symbol I whose colors we are changing 

V 


** */ 


XtSetArg{ argslOJ, XmNuserData, &sym ); 
XtGetValues( btn_color_template, args, 1 ) ; 

/* 

* ii user selected all, set template to BEGIN. 
V 


ii { sym > (NUM_PALETTE-1) ) 
sym = 0; 

if ( XmToggleButtonGet State (tgl_color_fore) ) 

/* 

* foreground tgl is set 

V 

1 

pixmap = XraGet Pixmap ( XtScreen (rccolor ) , palette_i terns (symj , 
colors (color ) , colors [btn_back j ); 

/* 

* Remember most recent foreground color choice. 

*/ 


btn_fore = color; 
) 

else 


/* 

* background tgl is set 




< > 
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( 

pixmap ■ XmGetPlxmap ( XtScreen (rc^color) , palette items [symj, 
colors (btn^fore ] , colors (color ) ); 

/* 

* Remember most recent foreground color choice. 

*/ 


btn_back - color; 

) 

XtSetArg( args[0], XmNlabel Pixmap, ptxmap ); 
XtSetValues( btn_color_t emplate, args, 1 ); 
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MODULE NAME: cbr_color_menu () 

MODULE FUNCTION: 

This routine pops up the color menu from the pulldown menu. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 

**•*»•*«******«•*«**«******«•**««*****< 


XtCa llbackProc cbr_color_menu ( w, client_data, call_data ) 

Widget w; 

caddr_t client_data; 

caddr t call data; 


[ 

If ( (Color) & & (Mode «= EdltSymbol) ) 

( 

arm tgl { tgl_color_back ); 
disarra_tgl( tgl_color_fore ); 
XtManageChild ( dlgcolor ); 

1 



KM'XvWwx-; 


color popup according to the selected 


1.0 - 07/17/91 

1.02 - 08/28/91 


XtCallbackProc cbr_color_sym_choice ( w, client_data, call_data ) 
Widget w; 

caddr_t client_data; 
caddr_t call data; 


Pixmap pixmap; 

Arg args [2 ] ; 

int sym - (i nt ) cl ient_data; 

It ( sym > (NUM PAl.F.TTE-l ) ) 

/* 

* If 'all' is selected, the representative pixmap is BEGIN 
V 

sym « 0; 

btn_fore « get_my_foreground { sym ) ; 
btn_back “ get_my_background ( sym ); 

/* 

* retrieve palette item pixmap from Motif cache. 

*/ 

pixmap =■ XmGetPixmap ( XtScreen (rc_col or ) , palette_items [sym} , 
colors ffc>tn_f ore ] , colors [bt:n_back] ); 

XtSetArgl args(0], XmNlabelPixmap, pixmap ); 

XtSetArg( argsfl], XmNuserData, (int) client_data ); 

/* 

* set template's user data to the symbol number selected. 

*/ 

XtSetValues{ btn_col or_tomplatu, args, 2 ); 



* MODULE NAME: cbr_color_sym_choi ce () 

* 

* MODULE FUNCTION: 

* 

* This routine changes the bitmap in the 

* palette item. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 

* Release 

* 

*********#**********#ft*ftftfc******Aft***ftft*^ w _, 





pixmap - XmGetPixmap ( XtScreen (rc_color) , palette_items ( sym] , 
colors (btnfore] , colors (btnback] ); 

XtSetArg{ args(O), XmNlabe 1 P ixmap, pixmap ); 

XtSetValues{ Palette [sym J , args, 1 ); 
redrav*_sym type( sym ); 

) 


/* 

* set fore and backs of all palette Items 

V 


for ( 1-0; I < NUM PAI.KTTK; III ) 

1 

set_my_foreground { 1, btn_fore ); 
set_my_background { 1, btnback ); 

/* 

* change palette item's colors to reflect btn_color template 

*/ 


pixmap - XmGetPixmap ( XtScrocn (rc^color) , palette ltems(l), 

color s [get_my_£oreground (1)1, colors |got_my_background (i ) ] ) ; 
Xt Sot Arg ( argsjo], XmNlabclPlxtnap, pixmap ); 

XtSetValues( Palette{i), args, 1 ); 
redraw_sym_type ( 1 ); 

) 

J 

) 
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MODULE NAME: getcolors!) 


MODULE FUNCTION: 


This routine sets up the color map for gcb. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void get_colors() 


Colormap cmap; 

XColor exact__def; 

lnt 1; 


* get X’ s delault color map 

*/ 


cmap - DefaultColormap ( display, DefaultScreen (display) ); 
If (Color) 

1 


* allocate the colors In the cnames array. 

*/ 

for ( 1=0; KMAXCOLORS-l; 1++ ) 

I 

If ( ! XParseColor (display, cmap, cnames(l), sexact 

I 

elog ( 1, "get colors: color name %s not In db", 
exit ( 0 ) ; 

1 

if ( ! XA1 locColor (display, cmap, sexaetdef) ) 

I 

elog( 1 , "getcolors : all color cells allocated" 
exit ( 0 ) ; 

I 

colors|l) = exaetdef. pixel; 

) 


allocate red for audit 


If ( ! XParseColor (display, cmap, "red", sexaetdef) ) 

( 

elog ( 1, “getcolors; color name is not In db", "red 
exit ( 0 ); 

) 

If (I XAllocColor (dl splay, cmap, sexact_def) ) 

I 

elog (1, "getcolors: all color cells allocated"); 
exit ( 0 >; 




1 

colors [MAX_COLORS-l ) = exact_def .pixel; 
Red - MAX_COLORS-l; 

} 

else 

( 


/* 

* mono 

•/ 


colors [0] - WhltePlxel ( display, DefaultScreen (display) ); 
colors(l) - BlackPlxel ( display, Default Screen (display) ); 
I 


/• 

* color for inactive expression creation buttons 
V 

insensitive_color - colors (1); 
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FILE NAME: comp_file.c 


FILE FUNCTION: 

This file contains the routines which process the Comp file Information. 
This file contains the routines which create the maintain Comp file 
popups and also contains the routines which read and write Comp disk 
files. 


SPECIFICATION DOCUMENTS: 

/home/pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 

bull d_cre_^comp_popup ( ) 
bui ld_purpose_popup ( ) 
bulld_sel_comp_popup () 
cbr_comp_selected { ) 
cbr_cre_comp 0 
cbr_new_comp () 
cbr_sel_comp {) 
del_element_f rom_comp { ) 

1 n 1 1 _comp_va r s ( ) 
load_comp_list () 
read_comp_fi le () 
read_comp_list () 
update_comp_f 1 le () 
vail d_comp_d i r_name ( ) 
va 1 1 d_comp__name () 
writ e_comp_f i 1 e ( ) 

* *< > 


- build the Create Comp popup 

- build the Comp/Element popup for Purpose editing 

- build the Select Comp popup 

- process the Selection list during Select Comp 

- display the Create Comp popup 

- process the Create Comp popup 

- process the CANCEL button during Select Comp 

- remove Element reference from Comp file 

- initialize Comp level global variables 

- load Selection list widget with Comp dir names 

- read Comp file information 

- read Element file names from Comp file 

- update and write a Comp file 

- make sure filename is a Comp directory name 

- make sure filename is a Comp file 

- write out Comp file to disk 


I Include <stdio.h> 

•Include <sys/file.h> 
•Include <sys/types.h> 
•include <dirent.h> 

•include cXll/Intrinslc. h> 
•include <Xm/Xm.h> 

• Include "gcb.h" 

•include "cbr.h" 

•Include "widget s. h" 
•include "comp_f ile. h" 

• Include "element_f i le .h" 
•include "constant s. h" 
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/ 





* MODULE NAME: bui 1 dcrecomppopup () 

* MODULE FUNCTION: 

* This routine builds the popup which allows the user to create a Comp 

* file. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 

Widget bu lldcrecomp popup ( parent ) 

Widget parent; 


1 

Arg args(l); 

dlg_cre_comp - cr_popup( NULLS, parent, "Create Comp" ); 

FormW - cr_form( NULLS, dlgcrecomp, NULL, NULL ); 
set_attr lbs ( FORM, FormW, 475, 400, XmRESIZE_N0NE ); 

cr_label ( NULLS, FormW, "Comp Name:", 0, 7, 12, 9, IGNORE >; 

txtcrecomp name - crtext (NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 37); 

XtAddCal lback { txt crecompname, XmNact lvateCal lback, cbr_text_proc, 2); 

Xt AddCal Iback ( t xt_cre_comp_name, XmNmod i fyVerl fyCa 1 lback, cbr_text_proc, 2); 
XtSetArg( args(O), XmNtraversalOn, True ); 

XtSetValues( txt _cre_comp name, args, 1 ); 

cr label (NULLS, FormW, "Root Element Name 0, 20, 25, 9, IGNORE) ; 

txt_cre_comp_re_name - cr_text (NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 37); 
XtAddCal lback ( txt_cre_comp_re_name, XmNacti vateCallback, cbr_text_proc, 3); 
XtSetArg( args[0], XmNtraversalOn, True ); 

XtSetValues( txt_cre_comp_re_name, args, 1 ); 

cr_label (NULLS, FormW, "Purpose:", 0, 35, 40, 9, IGNORE); 
scr_cre_comp = cr_scr_text (NULLS, FormW, 10, True, 275, NULL, NULL); 

cr_separator ( NULLS, FormW, 87, IGNORE, 1, 99 ) ; 

DoneW = cr_command ( NULLS, FormW, "Create", cbr_ new_comp, DONE ); 

CancelW - cr_command( NULLS, FormW, "Cancel", cbr_new_comp, CANCEL ); 

HelpW ■» cr_command ( NULLS, FormW, "Help", cbr_help, CREATE_COMP ); 


set position ( XtParent (scr_cre_comp) , 
set_posit ion ( txt_cre_comp_name, 
set_posit ion ( txt_cre__comp_re_name, 
setposit ion ( CancelW, 
set posi t ion ( DoneW, 
setposit ion ( HelpW, 


35, 

IGNORE, 

35, 

IGNORE 

7, 

IGNORE, 

35, 

IGNORE 

20, 

IGNORE, 

35, 

IGNORE 

92, 

IGNORE, 

3, 

IGNORE 

92, 

IGNORE, 

41, 

IGNORE 

92, 

IGNORE, 

39, 

IGNORE 



/A*************************************** < ^ *************************: 

* MODULE NAME: bui 1 d_purpose_popup { ) 

* MODULE FUNCTION : 

* This routine builds the popup which allows the user to edit a Comp or 

* Element file purpose text string. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************************* # ********** 


Widget bulld_purpose_popup ( parent ) 
Widget parent; 

i 

Int n; 


dlg_purpose - cr_popup ( NULLS, parent, “Input Purpose" ); 

FormW - cr_form( NULLS, d!g_purpose, NULL, NULL ) ; 
set_attrlbs( FORM, FormW, 475, 300, XmRESI ZENONE ) ; 

cr_label ( NULLS, FormW, "Purpose: ", 0, 10, IGNORE, 9, IGNORE) ; 

scrpurpose - cr_scr_text ( NULLS, FormW, 10, True, 265, NULL, NULL); 

CancelW - cr_command( NULLS, FormW, "Cancel", cbr_pos_done, CANCEL ); 

DoneW - cr_command( NULLS, FormW, "Done", cbrposdone, DONE ); 

HelpW - cr_command( NULLS, FormW, "Help", cbrhelp, COMPPURPHELP) ; 

cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ); 

setposltlon ( XtParent (scr_purpose) , 10, IGNORE, 25, IGNORE ); 

set_posltlon ( CancelW, 88, IGNORE, 5, IGNORE ) ; 

setposltlon ( DoneW, 88, IGNORE, 40, IGNORE ) ; 

set_posltlon ( HelpW, 88, IGNORE, 75, IGNORE ) ,- 
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******* /*•********************»**************** *< > **************************************** 

* 

* MODULE NAME: bul ld_sel_comp_popup () 

* 

* MODULE FUNCTION: 

* 

* This routine builds the popup which allows the user to select a Comp 

* from a selection list for the current Position. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

/ *«****••*********•«*•.*•*****•*•••••*•**< >*********************************** *****/ 

Widget bui ld_sel_comp_popup { parent ) 

Widget parent; 

{ 

int n; 


dlg_sel_comp = cr_popup( NULLS, parent, "Select Comp" ); 

FormW - cr_form( NULLS, dlg_sel_comp, NULL, NULL ); 
setattrlbs ( FORM, FormW, 450, 400, XmRESI ZENONE ); 

cr_label( NULLS, FormW, "Comp List:", 0,10,15,9, IGNORE); 
llst_sel_comp - cr_list { NULLS, FormW, 14, 215 ); 

XtAddCal lback ( 1 1 st_sel_comp, XmNbrowseSelectionCallback, cbrcompselected, NULL ); 
cr_separator { NULLS, FormW, 85, IGNORE, 1, 99 ) ; 

CancelW « cr_command( NULLS, FormW, "Cancel ", cbr_sel_comp, CANCEL ); 

HelpW = cr_command( NULLS, FormW, "Help", cbr_help, SELECT_COMP) ; 


set 

position { 

XtParent (1 ist_sel_comp) , 

10, 

IGNORE, 

35, 

IGNORE 

set 

position ( 

CancelW, 

91, 

IGNORE, 

5, 

IGNORE 

set 

position ( 

HelpW, 

91, 

IGNORE, 

75, 

IGNORE 


} 
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MODULE NAME: cbr_comp selected () 


MODULE FUNCTION: 

This routine processes, the user's button presses during the selection of 
a Comp. This routine is called when the user selects a Comp from the 
Selection list. This routine only processes the Selection list callbacks. 


REVISION HISTORY ; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* popup. 

•/ 

upd_pos_panel ( COMP_PURPOSE ) ; 
upd_mode_panel 0 ; 

XtUnmanageChi Id (dlg_sel_comp) ; 


void cbr_comp_se looted { w, client data, calldata ) 

Widget w; 

caddr_t *cl ient_data; 

XmListCal IbackStruct ‘call data; 


char ‘string; 


Get the string the user picked in the selection box. 


XmSt rlngCetLtoK ( cal l_data-> 1 tem, XmSTRI NG_DEFAULT_CHARSET, (string ); 
busy{ dlg_sel comp, TRUE ); 


• See It the current tile has been updated and should be saved. 

•/ 

if ( SaveNeeded ) 

save_curr_element (| ; 

reinit_element Jvars () ; 
init_comp_vars () ; 


* Move down into the comp directory. 

*/ 

chdlr ( PositionPath ); 


strepyt CompDir, string ); 
Strcat { CompDir, ** .DIR* ); 
chdir ( CompDir ); 

strcpy( CompFile, string ); 
strcpy( GCompFlle, string ); 
strcat ( GCompFlle, CMP_EXT) ; 
read_comp_f i le () ; 


* Update the onscreen status indicators and then take down the 



mfim 
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/***•••***•**••**••**•*•**••“*•*****•***< >****• |/ 

* MODULE NAME: cbr_cre_comp () 

* MODULE FUNCTION: 

* This routine pops up the create Comp popup. This routine is a callback 

* which is used by the menu system to display the create Comp popup to the 

* user. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




XtCallbackProc cbr_cre_comp { w, client_data, call^data ) 

Widget w; 

caddr_t client_data, 
ca ll_data; 


if ( Mode -- EdltSymbol ) 

I 

XtManageChlld ( dlg_cre_comp ); 
busy { dlg_cre_comp, FALSE ); 

1 


MODULE NAME: cbr_new_comp () 

MODULE FUNCTION: 

This routine responds to the user's button presses in the Create Comp 
popup. This routine processes the DONE and CANCEL buttons. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

« 

********•*•*•*••**.*•*••*«•«**.•• *•«****< >* ** * .***M»***M****«M.»*»«*»»*«»M*M«/ 

XtCallbackProc cbr_new_comp ( w, client_data, call_data ) 


Widget 

w; 

int 

client data; 

ca ddr_t 

call_data; 

FILE 

•fp; 

int 

key. 


pos. 


symslze = 0; 

char 

tempPath (MAX_PATH 

if ( client data -= DONE ; 


I 


/* 

* Make sure the user entered a Comp name and Root Element name. 

*/ 

if {! strl en {XmTextGet St rl ng (txt_cre_coinp_name) ) ) 

i 

user_ack (“Please enter a new Comp name”); 
return; 

\ 

if (! strlen (XmTextGet St ring (txt_cre_comp_re_name) ) ) 

l 

user ack ("Please enter a Root Element name”); 
return ; 

) 

/* 

• See if the current file has been updated and should be saved. 
*/ 

busy ( dlg_cre_comp, TRUE ); 

if ( SaveNeeded ) 

save_curr_element () ; 

/* 

# Clear work area if needed. 

V 
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Save the symbol table size and then close the file. 


91 / 08/2 

glgffggj 


mmM 


reinit_element__vars () ; 
init_comp_vars {) ; 


strcpyl CompFlle, (char *) XmTextGetStrlng (txt_cre_comp_name) ); 
strcpy( RootElement, (char M XmTextGetStrlng (txt_cre_comp_re_name) >; 


fwrite{ isymsize, sizeof(lnt), 1, fp ); 
{close ( fp ) ; 


/• 

* Create the Comp directory string and then create the new comp 

* subdirectory. 

*/ 


/* 

* Mark the comp as valid and update the status Indicators 

* take down the popup. 

*/ 


strcpy{ CompDlr, 
strcat( CompDlr, 
strcpy{ tempPath, 
3trcat( tempPath, 
strcat( tempPath, 


CompFlle ); 

M .DIR" ) ; 
PositionPath l; 
"/■ ) ; 
CompDlr ); 


if ( mkdl r (tempPath, 0777) ) 
l 

Val ldComp - FALSE; 

user_ack ("Couldn* t create the Comp directory. Comp not created."); 
elog (1, "cbr_new_comp: Couldn't create the Comp directory: %s", CompDi r) ; 
return; 

/ 


/* 

• Move into the new Comp directory and create the Comp file. 
V 


chdir( tempPath ); 

strcpy( GCompFile, CompFlle ); 
strcat ( GCompFile, CMP_EXT ); 


Val ldComp = TRUE; 
upd_pos_panel ( COMP^PURPOSE ) ; 
upd_mode panel () ; 

XtUnmanageChi Id ( dlg_cre_comp ); 
) 


f k 

• User doesn't want to create a new comp, take down the popup 

*/ 

else if { clientdata CANCEL } 

1 

if (! Val ldComp ) 

I 

CompFlle (0] - NULL; 

GCompFile [0] - NULL; 
i 

XtUnmanageChi Id ( dig creeomp ); 

I 


if (! access (GCompFi le, R_OK) ) 

1 

user_ack ("Couldn' t open the new comp file, file already exists**); 
return; 

) 

strcpy( CompPurpose, (char * ) XmTextGetSt ring (scr_cre_comp) ); 


/* 

• Create the new comp file. 
V ! 


if ( ! (fp “ fopen (GCompFile, ’'w") ) ) 

( 

user_ack (**Couldn' t open the Comp file for writing. Comp not created**); 
elog (1, "Couldn* t open the Comp file. Comp %s not created**, GCompFi le) ; 
return; 

1 


/* 

* Save the purpose string and the root element name. Save the end- 

* of-elements indicator. 

V 

save_eiement_st r ( fp, CompPurpose ); 

fprintf{ fp, ”\n%c %s\n*‘, 'E', RootEiement ); 
fprlntfi fp, "2 22\n“ ); 


/ 


/ 
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MODULE NAME: cbr__sel_comp {) 

MODULE FUNCTION: 

This routine processes the user's button presses in the Select Comp 
popup. This routine processes the CANCEL button only. This routine is 
also called by the menu system to display the Select Comp popup. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*•««***«**»*«****»««,.**«*****,,«*•«*««« * *< >* * «M*»Mt**.M«.M*M.****** 

XtCa 1 IbackProc cbr_sel_ccmp ( w, cl ient__data, call_data ) 

Widget w; 

int client_data; 
caddr_t call_data; 

1 

if (Mode ! “ Edit Symbol) 
return; 

/* 

* User wants to abort from selecting a comp, take down the popup. 

*/ 

if ( cl ient_da ta — CANCEL ) 

I 

XtUnmanageChild ( dlg_sel_comp ); 
return; 

) 

/• 

* User has selected Select Comp from the menu system. Show the Select 

* Comp popup. 

*/ 

If ( c 1 i ent._d.bta -- MANAGE ) 

( 

/* 

* Load the selection list with the comp names. 

*/ 

if (! load_comp_l 1 st () ) 

{ 

XtManageChl Id ( dlg_sel_comp ); 
busy ( dlg_sel_comp, FALSE ); 

1 


I 


return; 

) 
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MODULE NAME: del_element_from_comp ( ) 

MODULE FUNCTION: 

This routine is used to remove a reference to an Element file when the user 
chooses to delete an Element file. The Element file name is removed from 
the Comp file. 


• REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

/ *» M ..*****. M .*»»..». M *»***»*«**»***8 *< >* * t ****** M 8 *. M **** M **.***.»« M *» M * M / 

void del_element_f rom_comp { element, type ) 

{ 

FILE *cfp; 

char element List (MAX_FILES1 [MAX_NAME 1 , 
typeLi st (MAX_FILES ) , 
purposeStr [MAXPURPOSE J ; 
int i , 

lsize - 0; 

/* 

* Open the Comp file. Read the comp purpose string. 

*/ 

if (! (c f p =* f open (GCompFl le, " r" ) ) ) 

{ 

userack C’Couldn' t open the Comp file to remove Element name"); 

elog (1, "Couldn' t open Comp file: %s for updating to remove element", GCompFile); 

return; 

l 

read_element_str { cfp, purposeStr ); 
fscanf ( cfp, " \n" ) ; 

/* 

* While not end of element list, read the Element names and insert them into 

* the list. Don't insert the name of the element we want to delete from the list. 
*/ 

while ( fscanf {cfp, "%c%s%*c", itypeList ( lsize) , elementList [ lsize) ) != EOF ) 

i 

if ( typeList { lsize] »- 'Z' ) 
break; 

if ( strcmp (elementList [ Is ize] , element ) ) 
lsl ze++; 

else 

{ 

if ( type == LIB ) 

if { typeList [ lsize] !- 'L' ) 
lslze++; 

if ( type =- ELEMENT ) 

if ( typeList [ Is ize) ! - 'E' ) 
lsize-M; 


) 


I 


yi9W/25_ 

mm&fisW 

f close ( cfp ) ; 

/• 

* The comp file has been read and the element name to delete has 

* been removed from the list, now write the comp file back to disk. 

V 

wr * te _. com P_£ 1 1 c < GCompFlle, lsize, purposeSlr, typeLlst, element 1.1 sl, NULL ); 
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MODULE NAME: 1 n It comp va rs 0 

MODULE FUNCTION: 

This routine Initializes the various Comp related variables. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void init_comp_va rs () 

t 

lnt 1; 


ValidComp - FALSE; 

CompFi le [0 1 - NULL; 

GCompFile [0 1 - NULL; 

for ( 1 *=0; KMAXPURPOSE; 1+ + ) 
CompPurpose l 1 1 - ' '; 
CompPurposefO] » NULL; 

symbol_table_l nit 0 ; 



;;X*X\ 
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MODULE NAME: load__comp_l i st { ) 

MODULE FUNCTION: 

This routine loads the selection list widget of the Select Comp popup with 
the Comp directory names from the current Position file directory. Comp 
directories are identified by their .DIR extension. 

REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 

Release 1.02 


07/17/91 

08/28/91 


int load_comp_l 1st ( ) 

1 

DIR * 

char * 


struct dirent 
int 

XmString 


♦dir; 

♦cptr, 

• npt r; 

•dp; 

cnt, 

i; 

xmstr; 


* Sort the list and install the list into the selection widget. 

V 

if ( cnt > 0 ) 

[ 

qsort ( selList, cnt, MAX_NAME, strcmp ); 
for (i“0; i<cnt; i + + ) 

{ 

xmstr =» XmSt rl ngCreate ( selList(i|, XmSTRING_DEFAU LT_CHARSET ); 
XmLi st Addltem ( 1 ist_sel_comp, xmstr, 1+1 )? 

XmStringFree ( xmstr ); 


} 


I 


return ( OK ) ; 


XmLi stDeleteAl 1 Items ( list_sel_comp ); 

/* 

* Read the Position directory. 

*/ 

if ((dir «=• opendir (Posit ionPath) ) — NULL) 

{ 

user_ack ("Error: couldn't open Position directory”); 
elog (1, " load_comp_list () - couldn't read directory"); 
return ( ERR ); 

1 

/* 

* Insert only Comp directory names into the list. 

V 

for ( cnt=0, dp~readdir (dir) ; dp!~NULL; dp=roaddi r (dir ) ) 

I 

strcpy ( selList [cnt) , dp->d_name ); 
if (! valid_comp_dir_name (selList (cnt ) ) ) 

( 

nptr - selList (cnt ) ; 

cptr - & selList (cnt ) (strlen (nptr) -4 ) ; 

*cptr <= NULL; 
cnt++; 

} 

if ( cnt “= MAXFILES ) 

{ 

user_ack ("Error: exhausted file list - notify developer”); 
elog (1, " load_comp_list : exhausted file list"); 
return ( ERR ); 

1 


i 
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MODULE NAME: read_comp_f i le () 

MODULE FUNCTION: 

This routine reads the comp file. The list of Comp elements is NOT read in. ) 

The list of element names contained in this comp is read in when the selection 
list is shown to the user. Only the Root Element name Is; read by this routine. 

The symbol table is also read. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

>*••*••****••*«***•**•**«**»***•*********/ 


/* 

* Close the Comp file. 
*/ 

fclose ( fp ) ; 

ValidComp » TRUE; 
return ( OK ); 


int read comp_file() 
l 

FILE * fp; 

char type_char; 

int rc; 


if ( ! (fp - fopen (GCompFlle, "r") ) ) 

l 

user_ack ("Error: could not open comp file"); 
return ( ERR ); 

) 

read_element_str ( fp, CompPurpose ); 

/* 

* Read the first element which is the root element. 
*/ 


rc - fscanf( fp, " \n%c%s%*c", &type_char, RootElement ); 

/• 

* Read the rest of the element file names, but throw them away. 
V 

while ( fscanf (fp, "%c%*s%*c", 4type_char) !~ EOF ) 
if ( type_char -» • ) 
break; 


V 


/* 

* Read the symbol table. 
V 


if ( symbol_tabl e_restore (fp) ) 

{ 

user_ack ("Couldn' t restore the symbol table from the Comp File"); 
elog (1 , "Couldn' t restore the symbol table from: %s M , GCompFlle); 
user ack ("Unrecoverable error - GCB exiting"); 
exit{ ERR ); 

1 

/‘DEBUG*/ 

print_symbol_table () ; 




/****«*****«****««***********************< >**************************************** j j 

* MODULE NAME: read_comp_l i st () 

* MODULE FUNCTION: 

* This routine reads In a list of element names of one of two types, either 

* comp elements or library elements. Tho element names are read from a 

* previously opened Comp file. The number of element names which are Inserted 

* Into the list Is returned. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

int read_comp_list ( fp, type, list ) 


MODULE NAME: update comp f i le () 

MODULE FUNCTION: 

This routine updates the comp file. It reads the element names from the 
comp file, traverses from the root element to determine if there are any 
comps which are referenced but not Included, and then makes a call to 
create a shiny new comp file. If the root_name or purpose parameters are 
NULL pointers, then the value In the existing comp file is used, if these 
parameters actually point to data, then the value of the parameters is used. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


FILE * fp; 

char list (] (MAX_NAME) ; 


int cnt = 0; 

char type_char; 

/* 

* Read the purpose string and the element names from the Comp file. 
•/ 

read_element_st r ( fp, Purpose ) ; 
fscanf{ fp, M \n" ); 

while ( fscanf (fp, "%c%s%*c M , stype_char, list [cnt ] ) 1“ EOF ) 

[ 

if ( type_char — 'Z' ) 
break; 

if ( (type_char — ' L' ) && (type == LIB)) 
cnt++; 

else if ( (type^char = “ * E' ) && (type -- ELEMENT)) 
cnt + f ; 

1 

return ( cnt ) ; 


void updatecompf ile ( comp_file, purpose, rootElem, newElem, newType ) 

char *comp file, 

•newElem, 

* newType, 

•purpose, 

•rootElem; 

i 

FILE *c£p, 

•efp; 

char epath(MAX_PATHJ , 

elementName (MAX NAME] , 
elementLlst [MAXFILES) [MAXNAME) , 
typeList (MAXFILES) , 
purposeStr (MAXPURPOSE ] ; 

Int elementType, 

l, 

lslze - 0, 

ptr, 

rc, 

symbol_type; 

/* 

* Open the Comp Hie. 

*/ 

If (! (cfp = f open (compf 1 le, " r" ) ) ) 

I 

user_ack ("Couldn't open the Comp file for reading, Comp file not updated") ,- 

elog (1, "Couldn' t open the Comp file for reading: %s“, comp_f 1 1 e ) ; 

return; 

I 1 

/• 

* Read the purpose string from the Comp file. If we need to update the 

* purpose string, throw away the one in the Comp file. 

*/ 


If ( purpose ) 


NULL ) ; 


\ 
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read_element_str ( cfp, NULL ); 

el se 

read_element_str ( cfp, purposeStr ); 
f scant ( cfp, ** \n" ) ; 
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/* 

* Open each of the element files in the list, locate any calls to other 

* element flies. 


/* 

* While not EOF, read the Element names and insert them Into 

* the list. Ignore any duplicates. 

*/ 

while ( fscanf (cfp, M %c%s% - c**, 4 typo List ( lsize] , element List ( Isizc) ) !- EOF ) 
{ 

/* 

* Check for the end of the element list. 

*/ 


If { typeList [lslze] *»=* • Z' ) 
break; 

/* 

• Check for the comp file entry to be the same as the specified root name. 

*/ 

If ( rootElem && typcList { Is 1 ze 1 E' && ! strcmp (elementList (lsi ze] , rootEiem) 
continue; 

/* 

• Check for the comp file entry to be the same as the specified new 

• element name. 

*/ 


*/ 


for 


( ptr°0; ptr<lslze; ptr++ ) 
l 

if { typeList (pt r | “ a ' L' ) 
1 


st rcpy ( epath, 
strcat( epath, 
st rcat ( epath, 
strcat ( epath, 
I 


LlbPath ); 

■/■ ) ? 

elementList (ptr J 
ELEXT ) ; 


else 


I 

strcpy( epath, element List [ptr J 
strcat ( epath, £L_EXT )? 

1 


); 


) ; 


/* 

* Open the element file. 

*/ 

if ( ! (efp = fopen (epath, "r") ) ) 

I 

elog (3, -Couldn' t open an Element file during Comp File update: %s", epath); 
continue; 

) 


If { newElem && LypeLl st ( 1 si ze | -« ‘newType 
( ! strcmp (elementList ( lslze] , newElem) ) ) 
cont lnue; 


/* 

* Locate a symbol which will contain an element file name. 
*/ 


/* 

* Check the entry read from the comp file to make sure it is not 

* already in the list. 

V 

1 - 0; 

while ( i < lslze ) 

{ 

if < , typeList [ lslze) -- typeList(l) ) 

if ( ! st rcmp (element LI st ( 1 si ze ) , elementLi st ( i ) ) ) 
break; 

i + + ; 

\ 

if ( i — lsize ) 
lsize++; 


fclose( cfp ); 

/* 

* Add the new element to the list. 
V 


while ((rc « fscanf (efp, "Id", &symbol_type) ) !- EOF ) 

i 

/• 

* If we don't get an Integer, dump the rest of the line. If we 

* get a LINE SEGMENT indicator, we are finished with the current 

* file because the line info follows the symbol info. 

*/ 


if ( rc «== 0 ) 

1 

fscanf ( efp, • , %*[ A \n]" ); 
continue; 

1 

if ( symbol _type =“ SEGMENT_KEY* ) 
break; 

/* 

* See If we have a symbol which may contain a reference to an 

* element file. 

*/ 


If ( newElem ) 

[ 

strcpy( elementList [ lslze] , newElem ); 

typeList [lslze] - *newType; 

lsize++; 


if ( symbol_type -- GOTO ) 

I 

fscanf { efp, **%*u %*d %*d %*d %*d %*d %*d %*d %*d %*d l*d M ); 
read_element_str { efp, elementName ); 
fscanf ( efp, "%*u %*u %d M , selementType ); 





comp_file.c 

fscanff efp, "t*[ A \n|’’ ); 

I 

else 

( 

fscanf ( efp ( "%*( A \n]“ ); 
continue; 

I 

/* 

* Loop through the list, if the new element name Is already In 

* the list, Ignore It, otherwise add the new element name and 

* update the list size. 

*/ 

1 - 0 ; 

while ( lclslze ) 

If (! strcmp (elementLlst (1 1 , elementName) ) 

( 

If ( (typeLlst ( 1 1 ■*= 'L') ii (elementType == LIB)) 
break; 

else If ( (typeLlst [1 ] — ' E' ) li (elementType -- ELEMENT)) 
break ; 

else 

1 + + ; 

I 

else 

1 ++; 

/* 

* If we are at the end of the list, this name must be a new 

* one so add It to the list. 

*/ 

If ( 1 — Islze ) 

( 

strcpyl elementLlst [ lslzel , elementName ); 

If ( elementType — LIB ) 
typeLlst (Islze] - 'L'; 

else 

typel.l st 1 1 si ze | - 'E'; 
lslze++; 

) 

I 

/* 

* Close the current file, go get another. 

*/ 

fclose ( efp ); 

1 

/* 

* Write out our new, updated Comp file. 

*/ 

if ( purpose ) 

wrlte_comp_f lie ( comp_file, Islze, purpose, typeLlst, elementLlst, rootElem ); 

else 

write_comp_f lie ( comp_flle, Islze, purposeStr, typeLlst, elementLlst, rootElem ) 




) 


return; 
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MODULE NAME: valld_comp_dir_name (} 

MODULE FUNCTION: 

This routine validates the Comp directory name. Valid Comp directories can 
be Identified by a ".DIR** extension. This routine was designed to be fast 
and robust. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Roleasc 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

lnt- val ld_comp_di rename ( name ) 
char 'name; 


char *ptr; 


if ( strlen(name) < 5 ) 
return ( ERR ); 

ptr - &name(strlen (name) -1 J ; 

If { ‘ptr !- 'R' ) 
return ( ERR ); 

ptr— ; 

if ( ‘ptr ! - 'I' ) 
return ( ERR ); 

ptr— ; 

if ( * pt r ! - ' D' ) 
return! ERR ); 

ptr— ; 

if { ‘ptr ! “ > 

return ( ERR ) ; 

ptr— ; 

return ( OK ) ; 


< >*•.*.*.*******•*.*******..**«« 

MODULE NAME: va 1 id_comp_name ( ) 

MODULE FUNCTION: 

This routine validates the Comp filename name. Valid Comp filenames can 
be Identified by a ".CMP" extension. This routine was designed to be fast 
and robust. 


* REVISION HISTORY: 

‘ Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

‘ Release 1.02 - 00/20/91 

***********••***********»*»**»**«******«< 

int val id_comp_name { name ) 
char ‘name; 


char ‘ptr; 


If { strlen(name) < 5 ) 
return! ERR ); 

ptr = £name[strlen (name) -1 ); 

if ( ‘ptr ! - ' P' ) 
return! ERR ); 

Ptr--; 

If ( ‘ptr !« 'M' ) 
return ! ERR ) ; 

ptr— ; 

if ( *pt r ! - 'C' ) 
return! ERR ); 

Ptr— ; 

if ( *pt r ! = r . ' > 
return! ERR ); 

Ptr—; 

return! OK ); 


I 
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* MODULE NAME: writ e_comp_f i le ( ) 

* MODULE FUNCTION: 

* 

* This routine creates a Comp file based on the supplied arguments. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


******** 


fprintf( cfp, "Z ZZ\n" ); 
/* 

* Save the symbol table. 


if { symbol_table_save (cfp) ) 

I 

user_ack ("Couldn' t save the symbol table to the Comp file"); 
elog (1 , "Couldn' t save the symbol table to: %s", compFlle); 
user_ack ("Unrecoverable error - GCB exiting"); 
exit ( ERR ) ; 

) 

fclose( ctp ); 


void write_comp_f lie ( compFile, 

lsize, 

, purposeStr, typeLlst, elementList, 

rootElem 

char ‘compFile, 

/* 

filename of the comp file to write 

*/ 

elementList ( ) [MAX_NAME] 

, /* 

array of element filenames 

*/ 

•purposeStr ( ) , 

/* 

comp purpose string 

*/ 

* ‘rootElem, 

/* 

may specify a root element name 

•/ 

type List ( ) ; 

/* 

array of element types -> comp/lib 

*/ 

int lsize; 

/■ 

size of the element name/ type lists 

•/ 


1 

FILE *cfp; 
int i; 


/* 

* Write out the Comp file. 

*/ 

if ( ! (cfp " fopen (compFlle, "w") ) ) 

[ 

user_ack ("Couldn' t open the Comp file for writing, Comp file invalid"); 
elog (1, "Couldn' t open the Comp file for writing: %s", compFile); 
return; 

J 

/* 

* Write the purpose string. 

*/ 

save_element_str ( cfp, purposeStr ); 
fprintf( cfp, "\n" ); 

/* 

* If the user has specified a new root element, make it the head of the 

* element list and by default the new root element. 

*/ 


if ( rootElem ) 

fprint f ( cfp, "%c %s\n", ' E' , rootElem ); 

/• 

* Save the element names and types. 

V 


for ( 1 = 0; Klsize; i + + ) 

fprintf( cfp, M %c %s\n", typeList[i], elementList ( i] ); 





* Funcclon prototypes. 

*/ 


XtCallbackProc cbr_comp purpose () , 

cbr pos done () , 

cbr_new_comp () , 

cbr_sel~ C omp () ; 

lnt read_comp list 0 ; 

void cbr comp selected 0 , 

lnlt comp vars () , 

load_read_l 1 st () , 

del_element_from_comp() , 

savecompf He (), 

updalccomptlle (I, 

wrlto_oomp_t 1 le (1; 



- > ******************************* 
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/*************************** 
FILE NAME: constants. h 


FILE FUNCTION: 

This file contains many of the Graphical Comp Builder program constants 

FILE MODULES: 

N/A 


constants.!! 





Assorted constants. 


•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•dcf i ne 
• def i ne 
•def lne 
•define 
•define 
•define 
•define 
•define 
•define 
•define 


SELECT_COMP 

CREATE_POS 

SELECT_POS 

L0GIC_P0PUP 

CALL_ELEM 

PAUSE_ELEM 

TEXT_POPUP 

DEF_FN_ H ELP 

OBJECTHELP 

COMP_PURP_HELP 

SYM ATTR HELP 

VARIABLE* HELP 

NUMBERHELP 

STATUS~HELP 

S£L_ROOT_ELEM 

DISPLAYER_HELP 

USER_ACK_HELP 

WSGHELP 

STRING^HELP 

ACTIVATE COMP 


22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


•define 

NO WAIT 

0 

•define 

WAIT 

1 

•define 

HELP 

200 

•define 

HELP CANCEL 

201 

•define 

HELPJiELP 

202 

•define 

HELP HELP CANCEL 

203 

•define 

DEF__FN CANCEL 

204 


/* 

* Define Popup ids and Help keys. 
*/ 


•define ASK_HELP 106 

•define ASK_NO 107 

•define ASK_YES 108 

•define USER_ACK 143 

•define USER_HELP 144 

•define FI LE_OK 200 

•define FILE HELP 201 


/* 

* Help keys - these are used as indexes into the tokens array. See tokens. h 
*/ 


•define 

PALETTE AREA 

10 

•define 

WORK AREA 

11 

•define 

BROWSE 

12 

•define 

ASK 

13 

•define 

COPY ELEM 

14 

•define 

CREATE_ELEM 

15 

•define 

SELECT ELEM 

16 

•define 

PRINT_ELEM 

17 

•define 

TARGET_LANG 

18 

•define 

DELETE_ELEM 

19 

•define 

SET_COLORS 

20 

•define 

CREATE COMP 

21 
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************** 


MODULE NAME: cr__cascado () 

MODULE FUNCTION: 

This function is an interface "helper routine" which is used to create a 
cascade button and to place it. This function returns a pointer to the 
created cascade button. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Roleaso 1.02 - 08/28/91 

>*,**************************************/ 


•include <stdio.h> 

•include <X1 1/Intr insic. h> 
•include <Xm/CascadeB. h> 


Widget cr_cascade( instance, parent, menu, mnemonic, label ) 


Widget 

menu, 


parent ; 

char 

* instance 


Mabel, 


mnemonic; 


static Arg 

args (3] 

Widget 

widget; 

int 

n; 


n - 0; 

XI Set Ary ( 

args 

(01 , 

XmNsubMenuId, 

menu ) ; n* ♦ ; 

/•DEBUG 

XtSetArg ( 

args 

m. 

XmNmnemonic, 

mnemonic ) ; n++ 

XtSetArg { 
V 

args 

12). 

XmNfontList, 

Fnt_List_Btn ); 


/• 

* Use the MOTIF XmCreateCasadeButton to create the Cascade 

* widget and attach it to the parent, and initialize all arguments. 

•/ i 


widget » XmCreateCascadeButton ( parent, label, args, n ); 
XtManageChild { widget ); 
return! widget ); 


i 
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********************************** 


/************************«************** * < ^ ** * 

* 

* MODULE NAME: cr_command () 

* 

* MODULE FUNCTION: 

* This function is an interface "helper routine" which is used to create a 

* push button and place it in a form. This function returns a pointer to the 

* created widget. 

* REVISION HISTORY: 


crcpmmand.c 



XtSetArg( args[0], XmNwidth, &wid ); 

XtGetValues( widget, args f 1 ); 
if ( (int) wid < MIN_BTN_WIDTH ) 

{ 

XtSetArg ( args[0], XmNwidth, MIN_BTN_WIDTH ); 
XtSetValu es( widget, args, 1 ); 

) 


Add the callback routine if specified. 


* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

**************************************** *********** 


if ( callback ) 

XtAddCallback ( widget, XmNacti vateCa llback, callback, id ); 
return ( widget ) ; 


♦include <stdio.h> 

♦include <X1 1/ Intrinsic. h> 
♦include <Xm/Xm.h> 

♦include <Xm/PushB.h> 
♦include <Xm/Label.h> 


•include "gcb.h" 


Widget cr_command( instance, parent, label, callback, id ) 


( 


XtCa 1 IbackProc 

Widget 

int 

char 


call back ; 
parent ; 
id; 

•instance, 

•label; 


Widget 

int 

Arg 

XmSt ring 


widget ; 
n = 0; 
args [3 ] ; 
tcs; 


Dimension wid; 


/• 

• Create compound string for the button text. 

*/ * 

tcs “ XmStringLtoRCreate ( label, XmSTRING_DEFAULT_CHARSET ); 

XtSetArg ( args{n], XmNlabelType, XmSTRING ); n++; 

XtSetArg ( args(n), XmN labelstring, tcs ); n++; 

/* 

* Create the command button. 

*/ 


widget = (Widget) XmCreatePushButton ( parent, instance, args, n ); 
XtManageChild ( widget )? 

XmStringFree ( tcs ); 

/* 

* Check the width, if it is too small, reset the size. This will ensure 

* all the push buttons are consistent in size. 


*/ 
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MODULE NAME: cr_f orm (} 

MODULE FUNCTION: 

This function is an interface “helper routine'* which is used to create a 
form widget. This function returns a pointer to the created widget. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

x Release 1.02 - 08/28/91 

******** ******** ********* ************* < >*********** 


•include <X1 1 /Int r i nsl c . h> 
•Include <Xm/Form.h> 


Widget cr_form( instance, parent, h_offset, v_o f f set 1 

Widget parent, 

h_of fset, 
v_of fset ; 

char * instance; 

{ 

static Arg args[lj; 

Widget widget; 


/* 

* Use the MOTIF XmCreateForm routine to create the form widget. Then 

* attach the newly created widget to its siblings. 

V 

XtSetArg( args(0], XmNborderWidt h, 0 ); 

widget - XmCreateForm ( parent, instance, args, 1 ); 

XtManageChild ( widget ); 

set_attach_widget ( widget, v__offset, NULL, h_of fset ,' NULL ); 
return ( widget }; 


} 
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MODULE NAME: cr_f rame () 

MODULE FUNCTION: 

This function is an interface "helper routine" which is used to create 
frame widget. This function returns a pointer to the created widget. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* < >* 


********** 


linclude <X11/Intrinsic. h> 
linclude <Xm/Frame.h> 


Widget cr_f rame ( instance, parent, h_offset, v_offset ) 


Widget 

parent , 


h_of fset , 


v_of fset; 

char 

♦instance 

W 1 dyol 

widget ; 

/* 



* Use the MOTIF XmCreateFrame routine to create the frame widget. Then 

* attach the newly created widget to its siblings. 

*/ 

widget = XmCreateFrame ( parent, instance, NULL, 0 ); 

XtManageChild ( widget ); 

set_attach_widget ( widget, voffset, NULL, h_offset, NULL ); 
return ( widget ) ; 
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Set the font of the label string. 
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Ilip 

Mi 


FILE NAME: cr_label.c 

FILE FUNCTION: 

This file contains the routines which create and manipulate label widgets. 
FILE MODUI.ES : 

cr_label () - create and manage a label widget 

set_label() - set the label widget's text string to the specified string 


/•DEBUG 

XmFontList 


fnt_li st ; 


if (load_font ("9x15*, *fnt_llst)) 

( 

uscr_«ick ("cr text: loadfont failed"); 
exit (1 ) ; 

) 

XtSetArg ( args In), XmNfontList, fnt_list ); n+ + ; 


“D 

X) 

m 

O 

m 

g 

Q 

-u 

> 

o 


•include <stdlo.h> 

•include <X1 1/Intri nsi c. h> 
I include <Xm/Label.h> 


•include "geb.h” 


/• 

• Create the label widget. 

V 

widget “ (Widget) XmCreateLabel ( parent, instance, args, n ); 
XtManageChlld ( widget ); 

XmStringFree ( tes ) ; 


MODULE NAME: cr_label {) 

MODULE FUNCTION: 

This routine is used to build label widgets 
This routine returns a pointer to the newly 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 

Release 1.02 


which are placed within forms, 
created and managed widget. 


- 07/17/91 

- 08/20/91 


/ 


\ 


/* 

• Place the new widget relatively within the form. 

*/ 

supposition ( widget, top, bottom, left, right ); 
return ( widget ) ; 


CO 

r* 

S3 

z 

•X 


o 

-1. 

T! 
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m 
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Widget cr_label ( instance, parent, label, borderWidth, top, bottom, left, right ) 


{ 


Widget parent; 
char •instance, * 

•label; 

lnt borderWidth, 

top, bottom, left, right; 


Widget 

register int 
Arg 

XmSt rl ng 


widget ; 
n - 0; 
args (5) ; 
tes; 


/* 

• Create compound string for the label text. 

*/ 


tes - XmSt ri ngLtoRCreate ( label, 
XtSetArg { args(n), XmNlabelType, 
XtSetArg ( args{nl, XmNlabelStrlng, 
XtSetArg ( args In), XmNborderWidt h, 


XmSTRING_DEFAULT_CHARSET ) ; 
XmSTRING ); n++; 

tes ) ; n++; 

borderWidth ) ; n++; 
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/' >*•***«******.****.******•***«*»»«•**»,«* 

* 

* MODULE NAME: set_label () 

* 

* MODULE FUNCTION: 

* 

* This routine sets a label widget to the specified string value. 

* 

* 

* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

********.**•••*••**•*«***•***•*••*****«*< >•*•*»,*•••***«••*•**•«****•*****•*******/ # 

void set_label{ widget, string ) 

Widget widget; 
char ‘string; 


{ 

Arg args [11; 


1 


Xt Set Arg ( args[0], XmNlabelString, 

XmSt ringCreate (string, XmSTRING_DEFAULT_CHARSET) 
XtSetValues ( widget, args, 1 ); 



>; 





MODULE NAME: cr_llst() 

MODULE FUNCTION: 

This function Is an Interface “helper routine" which is used to create a 
scrolled list widget. This function returns a pointer to the created 
widget . 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


•include <X1 1/ Intr 1 nslc. h> 
•include <Xm/Llst . h> 


Widget cr__list< Instance, parent, count, width ) 

Widget parent; 
char *instance; 

int count, 

width; 


a 

(ft 


static Arg args[4J; 

Widget widget; 

XtSetArgl args[0], XmNvlslbleltemCount, 
XtSetArg( args[l|, XmNwldth, 

XtSetArgl args|2], XmNllstSlzePollcy, 
XtSetArgl args[3], XmNscrollBarDlsplayPollcy, 


count ) ; 
width ) ; 
XmCONSTANT ) ; 
XmSTATIC ) ; 


/* 

* Use the MOTIF XmCreatcScrolledList routine to create the list 

* widget, attach It to the parent, and Initialize all arguments. 
*/ 


widget * XmCroaLeScrol ledLlst ( parent. Instance, args, 4 ); 
XtManageChlld ( widget ) ; 


I 


return! widget ); 
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************* 


*********< >** 




* MODULE NAME: cr_pixmap() 

* 

* MODULE FUNCTION: 


This routine is used to build pixmap label widgets which are placed within 
forms. A pointer to the newly created and managed widget is returned. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* *.**«.**< >****...*.*...*•...*.**...*.************./ 


linclude <X1 1/ Intrinsic. h> 
linclude <Xm/Label.h> 
linclude "gcb.h" 


Widget cr_pixmap( instance, parent, plxmap, top, bottom, left, right ) 


Pixmap ‘pixmap; 

Widget parent? 

char ^instance; 

int top, bottom, left, right; 


Widget widget; 

Arg args[2]; 

XtSetArg ( args[0], XmNlabelType, XmPIXMAP ); 

XtSetArg( args[l], XmNlabelPlxmap, *pixmap )? 

/* 

* Create the label widget with a pixmap. 

*/ 

widget « (Widget) XmCrea t eLabe 1 ( parent, instance, args, 2 ); 
XtManageChild ( widget )? 

/* 

* Place the new widget relatively within the form. 

*/ 

set_position ( widget, top, bottom, left, right ) ; 


z 
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return ( widget ); 
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cr_popup.c 


/* 

‘ MODULE NAME: cr_popup() 

* MODULE FUNCTION: 

* This function is an Interface "helper routine" which is used to create a 

* popup shell. This function returns a pointer to the created widget. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

•*••****•*•*****••**••*«***«••• *******< >***• ******* 


1 


/ 


* the popup. 
•/ 


XtSetArg! args(0], XmNmwmDecorations, 17 ); n+ + ; 
XtSetArg( args[l) r XmNmwmFunctions, 33 ); n++; 
XtSetValues( XtParent (widget ) , args, 2 ); 


/• 

* Free the string now that we are finished with It. 

*/ 

XmSt rl ngFree ( xstr ); 
return! widget ); 



flnclude <X1 1 / Intrinsic. h> 
•Include <Xm/MwmUt 11 . h> 
•Include <Xm/Bul letlnB.h> 


Widget cr_popup( instance, parent, title ) 

Widget parent; 
char ‘instance, 

‘title; 


Widget 

Arg 

XmSt rl ng 
Int 


widget, foo; 
args (2) ; 
xstr; 
n - 0; 


/* 

* If a title string was supplied for the popup, Initialize an argument. 
*/ 

if ( title ) 

1 

xstr - XmStrlngCreate ( title, XmSTRING_DEFAULT_CHARSET ) ; 

XtSetArg! argsln], XmNdialogTitle, xstr ); n++; 

1 

/• 

* Set the dialog style to MODAL, this will ensure that the user 

* processes the popup before doing anything else within the GCB. 

*/ 


XtSetArg! args(nl, XmNdlalogSty le, XmDIALOG_APPLICATION_MODAL ); n++; 


XtSetArg! args In), XmNmwmDecorations, 0 ); n*+; 

/* 

* Create the popup widget. 

*/ 

widget - XmCreateBul let inBoardDialog ( parent, instance, args, n ) ; 
/* 

* Remove the window menu button and the close function from 
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* MODULE NAME: cr_pulldown{) 

* 

* MODULE FUNCTION: 

* 

# This function is an interface "helper routine" which is used to create a 

* pulldown menu. This function returns a pointer to the created widget. 


cr_puIldown.c 



REVISION HISTORY: 

Graphical Comp Builder - MOTIE Release 1.0 - 07/17/91 

Release 1.02 - 06/28/91 




Ilnclude <stdio.h> 

•include <X11/Intrlnslc. h> 
•Include <Xm/RowColumn.h> 


Widget cr_pulldown( Instance, parent ) 

Widget parent; 

char ‘Instance; 


/* 

* Create the pulldown menu. 

*/ 


return! (Widget) XmCroatePul ldownMenu (parent , 1 nstance, NULL, 0) 

I 
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*************************************** *< >*** ******•»»«**•»*«****.***»** 

MODULE NAME: cr__rad 1 o_box 0 

MODULE FUNCTION: 

This function Is an Interface "helper routine" which Is used to create a 
radio box and place It in a form. This function returns a pointer to the 
created widget. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

• •< >* 


cr radio box.c 



m 


•Include <stdio.h> 

•Include <X11/Intrlnsic. h> 
•Include <Xm/Xm.h> 

•Include "gcb.h” 


widget cr_radlo_box ( instance, parent, orientation ) 


Widget 

pa rent ; 

char 

•instance; 

unsigned char 

orientation; 


Widget 

Arg 


widget; 
args [1 1 ; 


/* 

* Create the radio box. 

*/ 

Xt SetArg ( args[0|, XmNorlcntat ion, orientation ); 

widget - (Widget) XmCreateRadloBox ( parent. Instance, args, 1 ); 
XtManageChlld ( widget ); 

return) widget ); 

) 
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cr_rel_cmd.c 



^**********************M******* 


**************************** I * f 


MODULE NAME: cr_rel_cmd () 

MODULE FUNCTION: 

This routine is used to build command widgets which are placed relatively within 
forms. A pointer to the newly created and managed widget is returned. 

REVISION HISTORY: 


if ( callback ) 

{ 

callback->closure » (caddrt) id; 

XtAddCallbacks ( widget, XmNact ivateCal lback, callback ); 
) 

rot urn ( w l dgol ) ; 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

********************.****••**. ,***** < >**««**..*.***********..*****************/ 


•include <X1 1/ Intrinsic. h> 
•include <Xm/PushB.h> 
linclude "gcb.h" 


Widget cr_rel_cmd( instance, parent, label, callback, id, top, left ) 


Widget 

parent; 

XtCal IbackLi st 

callback; 

char 

•Instance 


•label; 

int 

Id, 


left, top, 


Widget 

widget 

register int 

n - 0; 

Arg 

args (6 

XmString 

tcs; 


/* 

* Create compound string for the button text. 

*/ 

tcs - XmSt ringCreate ( label, XmSTRING_DEFAULT_CHARSET ); 
XtSetArg( aras(n], XmNlabelType, XmSTRING ); n++; 
XtSetArgf args(n), XmNlabelString, tcs ); n++; 

/* 

* Create the command button. 

V 


widget = (Widget) XmCreatePushButton ( parent, instance, args, n ); 
XtManageChild ( widget ); 

XmStringFree ( tcs ); 

/* 

* Place the new widget relatively within the form. 

V 

set_position ( widget, top, IGNORE, left, IGNORE ); 

/* 


Add the callback routine if specified. 
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cr_rel_cmd.c 


MODULE NAME: Nc r_re 1 _cmd ( ) 

MODULE FUNCTION; 


This routine is used to create command buttons. This routine differs from 
cr_rel_cmd() in that Its callback parameter data type is a function Instead 
of a list of functions. This routine should replace cr re 1 cmd {) once all 
XtCa 1 1 back Li st s are replaced with XtCa 1 1 backProcs . 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


< >*«**•* *****•**•«••«•*•••. 

Widget Ncr_rcl_cmd( instance, parent, label, callback, id, top, left ) 
parent ,* 


Widget 

XtCallbackList callback; 

•instance, 
• label; 


char 

int 


Widget 

register int 
Arg 

Dimension 

XmString 


id, 

left, top; 


widget; 
n - 0; 
args [6] ; 
wid; 
tes; 


• Create compound string for the button text. 

*/ 

tes - XmSt ri ngCreate ( label, XmSTRING_DEFAULT_CHARSET ); 
Xt SetArg { args In), XmN label Type, XmSTRING ); n + + ; 

XtSetArg{ args In), XmNlabelStrlng, tes ); n* + ; 


* Create the command button. 

•/ 

widget - (Widget) XmCreatePushButton ( parent. Instance, args, n ); 
XtManageChild ( widget ); 

XmStringFree ( tes ); 

/* 

* Check the width, if it is too small, reset the size. This will make 

* sure all the buttons are of reasonable size. 

*/ 


XtSet Arg { args(0), XmNwidth, MIN_BTN_WIDTH ); 
XtSetValues{ widget, args, 1 ); 

I 


/* 

/* 

* Place the new widget relatively within the form. 

*/ 

set position! widget, top, IGNORE, left, IGNORE ); 

/* 

* Add the callback routine If specified. 

V 

if ( callback ) 

XtAddCallback ( widget, XmNact 1 vateCal lback , callback, id ) 


return ( widget ) ; 


XtSetArg ( args(0], XmNwidth, 4wid ); 
XtGetValues{ widget, args, 1 ); 

if ( (int) wid < MIN 8TN_WI DTH ) 
i 


cr_rowcol.c 

/**'° ****** * 

* MODULE NAME: cr_rowcol () 

* MODULE FUNCTION: 

* This function is an interface "helper routine" which is used to create a 

* row column widget and place it in a form. This function returns a pointer to the 

* created widget. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

************************ **************< >****************************************/ 


iinclude <X1 1/ Intrinsic. h> 
•Include <Xm/RowColumn. h> 


Widget cr_rowcol ( instance, parent, columns, orientation, v_offset, hoffset ) 

Widget parent, 

v_offset, h_offset; 
char ^instance; 

int columns, 

orienlat ion; 

I 

static Arg args[5); 

Widget widget? 


XtSetArg( args(0], XmNpacking, XmPACK_COLUMN ) ; 

XtSetArg( args[lj, XmNnumColumns, columns ); 

Xt Set Arg ( args{2], XmNentryAlignment, XmALIGNMENT_CENTER ); 

XtSetArg( args(3], XmNorientat ion, orientation ); 

/* 

* Use the MOTIF XmCreateRowCol umn routine to create the RowColumn widget, 

* attach it to the parent, and initialize all arguments. 

*/ 

widget = XmCreateRowCol umn { parent. Instance, args, 4 ); 

XtManageChild { widget ); 

set_attach_widget ( widget, vjaffset, NULL, h_offset, NULL ); 
return { widget ) ; 



) 
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fcoci^text.c 


MODULE NAME: cr scr text 0 


module function: 

This function is an Interface "helper routine" which is used to create a scrolled 
text widget and place it in a form. This function returns a pointer to the 
created widget. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07 / 17/91 

Release 1.02 - 00 / 28/91 


/•DEBUG 

XtSetArg( acgs(nl, XmNscrol 1 IngPol icy, XmAUTOMATIC ); n+t; 

•/ 


* Create the widget and manage the new widget. 

•/ 

widget - XmCreateScrol ledText ( parent , instance, args, n ); 
XtManageChild { widget ); 


return ( widget ); 


•include <stdlo.h> 

•Include <X11/Inttlnsic.h> 
•include <Xm/Text.h> 


Widget cr_scr_text { Instance, parent, rows, edit, width, x, y ) 


Widget 

char 

int 


pa rent; 
•instance; 
edit , 
rows, 
width, 
x, y; 


Widget 


widget ; 


register int n - 0; 
Arg args {8 J; 


- Set the position of the widget if coordinates are supplied. 

V 

x ) 

i , . 

XtSetArg( args[n|, XmNx, x ) ,* 
n++; 

) 

If ( y ) 

I 

XtSetArg( args[nj, XmNy, y ); 
n4 4; 

I 


* Initialize .other attributes. 
V 


XtSetArgt args in], XmNrows, 
XtSetArg{ argsjnj, XmNeditable, 
Xt Set Arg ( args(n], XmNwidth, 


rows ) ; n++; 
edit ); n++ ; 
width ); n++; 


XtSetArg( args{n), XmNscrol IVert ical , True ); n*+; 

Xt SetArg ( args[nj, XmNedltMode, XmMULTI LINE EDIT ); n> + ; 
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cr_separator.c 



< >* 


MODULE NAME: cr_separat or () 

MODULE FUNCTION: 

This function is an Interface "helper routine" which is used to create a 
separator widget and place it in a form. This function returns a pointer 
to the created widget. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


“0 

Q 

o 

0 

TJ 

> 

0 


•Include <X11/Intrlnslc.h> 
•Include <Xm/Separator . h> 
•Include "gcb.h" 


Widget cr_separator ( Instance, parent, top, bottom, left, right ) 

Widget parent; 
char ‘instance; 

lnt top, bottom, 

left, right; 

( 

Widget widget; 

/* 

* Create the separator widget. 

*/ 

widget * XmCreateSeparator ( parent, Instance, NULL, 0 ); 
XtManageChlld ( widget ) ; 

/* 

* Place the new widget relatively within the form. 

*/ 


] 


set_positlon ( widget, 
return) widget ); 


top, bottom, 


left. 


right 


) ; 




;£ blank not filmed 
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cr_text.c 


MODULE NAME: cr_text {) 

MODULE FUNCTION: 


^C^-XvS'S’^'X^nS^'XsvXvs'Is^sw 


user_ack ("cr_text : loadfont failed**) ; 
exit (1) ; 

) 

XtSetArg ( args[n), XmNfontList, fnt_list ); n++; 


This function is an Interface "helper routine" which is used to create a 
text widget and place it In a form. This function returns a pointer 
to the created widget. 


/* 

* Create a scrolled window with a text edit widget. 

4 / 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

4 4 4 > 4 44 44 44 44 44 44 44 44 44 444 / 


{ 

widget * XmCreateScrol ledText ( parent. Instance, args, n ); 
XtManageChild ( widget ); 

set at tachwidget ( Xt Parent {widget ) , v_offsct, NULL, hoffset, NULL ); 

) 


(include <Xl 1 / Int ri nal c. h> 
•include <Xm/Text.h> 


Widget cr_text( Instance, parent, h_offset, v_offset, text, scrolled, rows, columns ) 


Wi dget 

pa rent , 
h_of fset , 
v__of fset; 

char 

4 1 nstance, 
•text; 

int . 

columns, 

rows, 

scrolled; 

Wl dget 

widget; 

Arg 

args [10) 

int 

n - 0; 


/ 4 

4 Create a non-scrol led text edit widget. 

4 / 

el se 

I 

widget - XmCreateText { parent, instance, args, n ); 
XtManageChild ( widget ); 

setattachwidget { widget, v_offset, NULL, h_offset, NULL ); 
1 

return l widget ); 


/' 

4 Initialize the attribute array for the text widget. 

4 / 


XtSetArg ( args(n|, 
XtSetArg ( args(n), 
XtSetArg ( args (n) , 
XtSetArg ( args (n) , 
XtSetArg ( args [n 1 , 
XtSetArg ( args In] , 


XmNva 1 ue, 

XmNrows, 

XmNcolumns, 

XmNhighl 1 ght Thick ness, 
XmNmarglnWidth, 
XmNmarglnHeight , 


text ) ; 
rows ) ; 
columns ) 
0 ) ; n+ + 
5 ) ; n+ + 
3 ); n+ + 


n ♦ ♦ ; 
n + + ; 

; n+ + ; 


i t ( rows > 1 ) 

{ 

XtSetArg ( args in), XmNeditMode, XmMU LTI_LINE_ED1T ); nt»; 

) 


/* 

4 Load the font and then set the font of the text widget. 
*/ 


/•DEBUG 

XmFontList fnt_list; 
if (load_font ("9x15" , &fnt_list)) 
i 
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cr_toggle.c 



************ * <; ~>* 


MODULE NAME: cr_toggle{) 


MODULE FUNCTION: 


widget - XmCreateToggleButton ( parent, instance, args, n ); 
XtManageChild ( widget ); 

XmStringFree ( tcs ); 


* This function is an interface "helper routine" which is used to create a toggle 

* button and place it in a form. This function returns a pointer to the created 

* widget. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* Add the callback routine if specified. 

*/ 

if ( callback ) 

I 

callback->closure - (caddr_t) arm; 

XtAddCal lbacks ( widget, XmNarmCallback, callback ); 
ca llback-> closure - (caddr_t) disarm? 

XtAddCal lbacks ( widget, XmNdisarmCallback, callback ); 

1 


•include <stdio.h> 

•include <X11/Intrinsic.h> 
•include <Xm/ToggleB. h> 
•include <Xm/Xm.h> 


return ( widget ); 


Widget cr_toygle ( Instance, parent, label, callback, arm, disarm ) 

Widget parent; 

Xt Call back LI st callback; 
char ‘Instance, 

* label; 

lnt arm, 

disarm; 


Arg 

Widget 

XmStrlng 


args [5 | ; 

widget; 

tcs; 


register lnt n - 0; 


* Create compound string for the button text. 


tcs - XmStringCreate ( label, XmSTRING_DEFAULT_CHARSET ); 


* Initialize attribute array. 

*/ 

XtSetArgl argsfn], XmNlabelType, XmSTRING ); n<+; 

XtSetArgl args(n|, XmNlabelStrlng, tcs ) ; n+t; 

XtSetArgl args[n], XmNhlghllghtThlckness, 0 ); n++; 

/•DEBUG 

XtSetArgl args(n), XmNfontLlst, Fnt List Btn ) ; n++; 

*/ 


* Use the MOTIF XmCreateToggleButton routine to create the widget. Then 

* manage the widget and freed the compound string. 
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crjtoggle.c 


XmStrlngFree ( tcs ) ; 


MODULE NAME: Ncr_toggled 

MODULE FUNCTION: 

This function is an interface "helper routine" which is used to create a toggle 
button and place it in a form. This function returns a pointer to the created 
widget. This function should replaco cr toggled once all XtCa 1 lbackLlsts are 
removed. This function accepts XtCa 1 IbackProcs whereas cr_toggieO accepts 
XtCa 1 lbackLi st s . This routine will replace cr_toggle() once all the 
XtCallbackLists are replaced with Xt Cal IbackProcs. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* * >**..*********•.».••...•.***••*«•***«**•*/ 


} 


/* 

* Add the callback routine if specified. 
*/ 


if ( callback ) 

1 

Xt AddCal lback ( widget, 
Xt AddCal lback ( widget, 
) 


XmNarmCal lback, callback, arm ); 
XmNdl sarmCal lback, callback, disarm ) 


return ( widget ); 


Widget Ncr_toggle( instance, parent, label, callback, arm, disarm ) 


Widget 

pa rent ; 

XtCallbackProc 

callback; 

char 

•instance, 


•label; 

caddr_t 

arm. 


dl sarm; 


Arg 

args (5 1 

Widget 

widget ; 

XmStrlng 

tcs; 

register lnt 

n - 0; 


/* 

* Create compound string for the button text. 
*/ 


tcs - XmSt ringCreate ( label, XmSTRING_DEFAULT_CHARSET ); 

/* ; 

* Initialize attribute array. 

*/ 

XtSetArg( args[n), XmNlabelType, XmSTRlNG ); n++; 

XtSetArg( args(n), XmNlabelString, tcs ); n+ + ; 

Xt SetArg ( args(n], XmNhighlightThi ckness, 0 ); n++; 


/•DEBUG 

XtSetArg{ args{n), XmNfontList, Fnt_List_Btn ); n++; 

*/ 


/* 

* Use the MOTIF XmCrcateTogy lehutton routine to create the widget. Then 

• manage the widget and freed the compound string. 

•/ 


widget - XmCreateToggleButton ( parent, instance, args, n ); 
XtManageChild ( widget ) ; 


■lOB 1 1 
popiisit 1 


cursors.h 


FILE NAME: cursors.h 


FILE FUNCTION: 


This file contains the cursor names used throughout the GCB 


SPECIFICATION DOCUMENTS: 


/home/pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 


Cursor tcross_cursor, ul_cursor, lr_cursor, basiccursor, clock_cursor; 




PILE NAME: datatype, c 

FILE FUNCTION: 

This file contains the routines which perform analysis of an expression to determine 
Is "compllabillty" — that is, not whether or not the expression has valid syntax 
(YACC supplies this) but whether or not the expression will pass through the 
compiler (l.e. a floating point number should not be assigned to an integer). 

Any expression passed to these routines will be syntactically correct, these 
routines are looking for any data type anamolles. 

For the purposes of evaluation, data types are considered in the following order: 

DOUBLE 

FLOAT 

UNSIGNED 

INTEGER 

SHORT 


It Is assumed that variables of differing types can be assigned to a more dominant 
type without loss of data. 

Te GCB code builder will take the expression provided by the user and place it in 
the C source code file for compilation (it is assumed that the statement is sytact- 
lcally correct through the use of YACC). 

In addition, the GCB allows the user to enter inline expressions with matrix 
variables embedded, while this Is valid syntax (according to the GCB BNF) , it will 
not produce working compiled code. Therefore, the routines in this file will 
provide matrix Information so that the expression supplied by the user can be 
mapped to matrix manipulation routines provided in the "skeleton_element .c" source 
file. 

The GCB Invokes the routines in this file to return informative diagnostics about 
the data types contained in the supplied expression. The GCB will not allow a user 
to enter expressions that will cause compile and run time anamolles. The following 
routines will access a variety of global (statically allocated) variables which are 
use to correctly and fully Interpret the characteristics of a particular expression. 


FILE MODULES: 

set_bracket {) - issues a state change to acknowledge that either right 

or left bracket ([ or )) was encountered 

func_state<) - issues a state change to Indicate that a function's 

actual parameters are being processed 

- sets the data type of the function being invoked 

- saves the type of a scalar variable 

- saves the type (and attributes if a matrix) of an 
indentlf ier 

- saves an operator found in an expression 

- initializes a blank matrix data structure 

- entry point from the main COMP builder which is used 
to determine if an expression has a legitimate mix of 
data types 

- returns specific matrix data when a matrix operation 
Is required 

- verfiles that the number of subscripts supplied by the 
user is consistent with the matrix definition 

- determines if a matrix Is in an expression 


/* 

* COTS include files. 

V 

tinclude <stdio.h> 

•include <raemory.h> 

•Include <X11/Intrinsi c. h> 

•Include <X1 1/Shel 1 . h> 

•include <Xm/Xm.h> 

/* 

* Custom Include files. 

V 

• include "gcb.h" 

• include "symbol. h** 

•Include "gcb_parse. h M 

/* 

* Various local defines. 

•/ 

•define UNDEFINED_OPERATION 0 

•define GL0BAL_ERR0R_SI2E 128 

/* 

* External references to parsing data structures. 

*/ 

extern lnt WhereAmI; 

/* 

* Global variables which will hold the current data type for the LHS and RIIS of 

* the expression. These variables are only utilized while a SINGLE expression is 

* being evaluated. 

*/ 

static lnt parsc_slatus, f unct ion_stat us, bracket_count , numbered l mens ions; 
static int lhs_current_attributes, rhs_current_att ributes, number_opecators; 
static lnt last_operator, matrix_found; 
static struct matrlx_data result, operand_l, operand_2; 

static char currentmat rix_id ( MAX_SYMB0L_SI ZE + 1 J, global_crror ( GL0BAL_ERR0R_SI2E + 1 

) ; 


set_func_type () 
save_type () 

process_id_data_type () 

save_operator () 
lnlt_matrix_st ruct ure ( ) 
verl fy_expresslon_type () 

return_matrix_data () 
process_ma tr lx_dimenslons 
matrix J n_expr () 
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/ft*ftft«******ft*«*ft***«#*******************< > 

* 

* MODULE NAME: set_bracket ( ) 


MODULE FUNCTION: 

Function setbracket is invoked inform the expression analyzer that a bracket was 
encounter -- this is Important because the analyzer will assume that an operation 
Is matrix In nature when the identifier Is found to be of type MATRIX; this function 
is invoked because YACC has found a matrix element access (i.e. x[l}[2)) and there- 
fore the Identified access should be considered to be a scalar operation. This 
function is only invoked when a left bracket is found (the YACC grammar will ensure 
that a companion right bracket exists). 


/* 

* The other use of this function is to determine if a matrix appears in a 

* conditional expression. This function will decriment the matrixfound 

* count by one each time it is encountered (each matrix element access will 

* invoke this function twice) . 

*/ 

matrix_found — ; 

I 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


**************************»************<____ _^****************************************/ 


void set_bracket () 

( 

/- 

- This routine Is also used to determine if an Identifier (which was declared as 
* a matrix) is accessed properly if subelements are extracted. 

*/ 


bracket_count++; 

/* 

* If we had previously assume a matrix operation (based on the identifier type, 

* unmark the type so that correct interpretations are made (i.e. do not confuse 

* the matrix "abc" with “abc (1 J[ 21 ", the latter should be considered as a scalar 

* operation) . If we are on the RHS and brackets were encountered, turn off the 

* appropriate bit mask of the operand (based on the operator count). 

*/ 

if ( WhereAmI ■=■=■ LHS ) 

lhs_current_attributes &- -MATRIX; 
else { 

rhs_current_attributes &= -MATRIX; 

/* 

* If we are on operand 1 or two, appropriately mask off bits. 

V 


switch ( number_operators ) ( 

case 0 : operand_l .md_att ributes &=* -MATRIX; 

break; 

case 1 : operand_2 .md_att ributes &= -MATRIX; 

break; 

default : /* 

* Do nothing. 

V 


\ 


break; 






MODULE NAME: func_state {) 


MODULE NAME: setf unc_type {) 


MODULE FUNCTION; 

Function func_status is Invoked when a function call is started. When parameters 
appear within a set of perenthesis then the data type is ignored. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* **••••**•*******••*•**•***< 


MODULE FUNCTION: 

The function func_state is Invoked to save the data type of a function being invoked; 
ail Intrinsic routines are of type DOUBLE (UNIX conventions) and all user defined 
functions are of type INTEGER (GCB convention). 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void func__state( status ) 
lnt status? 


/* 

* If the status is turned to ON, increment the perenthesis count for function 

* calls; otherwise, decrement the count. 

V 

if ( status «*■ ON ) 

funct ion_s tat us++; 

else 

functlon_status — ; 


void set_func_type ( funct lontype ) 
int funct lontype; 

I 

if ( funct ion_type — USER_DEFINED ) 
rhs_current_attributes |- INTEGER; 

el se 

rhs_current_at tributes |- DOUBLE; 

/ 
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MODULE NAME: save_type() 


MODULE FUNCTION: 


Function save_type Is invoked to save the type of a scaler value found by YACC (i.e. 
this function is Invoked when non-variables are located). The function will update 
the RHS current attributes variable based on the data type found by YACC. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void save_type ( data typo ) 
Jnt data type; 


* If a function call is currently open (determined by funct ion_status > 0) then 

* ignore the type save because the type should not be used In determining data 

* type. 

*/ 

if ( function_status > 0 ) 
return; 

/* 

* This function should only be invoked when the RHS is being evaluated; if 

* not, an error needs to be generated. Otherwise, OR in the data type to the 

* RHS current attributes variable. 


if ( WhereAml lhs ) 
parse_statu$ - ERR; 

else 

rhs_current^at tributes |= data_type; 


MODULE NAME: process_matrix dimensions ( ) 


MODULE FUNCTION: 


Function process_matrix_dimenslons will check the number of subscripts performed on 
on a matrix ID. If the number is Incorrect appropriate errors will be generated. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void processmat rixdimensions () 

( 

/* 

* If the array was referenced with brackets, verify that the bracket count equals 

* the number of dimensions specified; if not, generate a diagnostic. 

*/ 

if ( bracket_count ) 

if ( numberdimenslons 1- bracketcount ) { 
if ( bracket_count < number_dimensions ) 
sprint f( globalerror, 

-matrix \"%s\ M is a %dD array, referenced with only %d dimension ( 

s) \n-, 

current^matrix_id, 
numbered intensions, 
bracket_count ) ; 

el se 

sprint f{ global_error, 

-matrix \ M %s\ M is a %dD array, referenced with %d dimens ion (s) \n" 

current_mat rix_id, 
numbered imensi on s, 
bracket_count ) ; 
parse_status - ERR; 
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MODULE NAME: process_id_dat a_type {) 

MODULE FUNCTION: 



/* 

* At this point of the check. It Is unknown whether or not the user will be 

* accessing an element of the array or the entire array. The bracketcount 

* variable is initialize to zero to check for this condition. Save the matrix 
‘ name and the number of dimensions for which is was declared {which will be 

* used later during diagnostics) . 

*/ 


Function process_ld_dat a^type is Invoked to process the attributes of an identifier 
located by YACC. If the identifier located is a matrix various attribute information 
is stored so that appropriate data type checks can be made at the conclusion of the 
expression analysis. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


bracket_count - 0; 

strcpy{ current matrlx^ld, cur rentsymbol ); 
dims - 0; 

If ( return matrlxatt rlbutes { ElementFile, current symbol , 

(dims, (subl, (sub2, *sub3, 4sub4 ) -- ERR ) 

If ( returnmatrlxatt rlbutes ( NULL, current_$ymbol, 

(dims, &subl, (sub2, &sub3, &sub4 ) ERR ) 

parse status - ERR; 
number dimensions « dims; 


•< >* 


el se 

parse_status = SCALAR_OPERATION; 


void process_ld_data_type { current_symbol ) 
char * current_symbol ; 

I 

register int attributes; 

struct matrix_data * temp_mat rlx_data; 

short dims, subl, sub2, sub3, sub4; 

/* 

* If a function call is currently open (determined by funct ion_status > 0) then 

* Ignore the type save because the type should not be used In determining data 

* type. 

*/ 

If ( funct lon_status > 0 ) 
return ; 


/* 

* Set the appropriate variables based on whether or not we are parsing the left or 

* right hand side. 

V 

switch! WhereAmI ) { 

case LHS : /* 

* Save the attributes and the name. 

*/ 

Ihs current_attributes attributes; 
strcpy( result .md_name, current_symbol ); 

/* 

* If the operation Is a MATRIX operation, then the number of rows 

* and columns of the matrix must be retrieved. 

V 


/* 

* Determine the attributes of the symbol. First attempt to resolve the variable 

* from the current element, If unresolved, look in the global symbol table. 

•/ 

If ( ( attributes « ret urn_symbol_attributes (ElementFile, current_symbol) ) =» ERR ) 
if ( ( attributes - return_symbol_attribut es ( NULL, current_symbol ) ) -» ERR ) 
parse_scatus - ERR; 

/* 

* Determine if the operation is a MATRIX operation. 

V 

if ( attributes ( MATRIX ) ( 

/• 

* Update parse status. Additionally, update the matrix^found variable to 

* indicate that a matrix identifier was located. The variable Is incremented 

* by two because each matrix element access must encounter two left brackets 

* (which will cause the variable to be decremented by one each time). 

•/ 

parse_status - MATRIX^OPERATION; 
matrix^found +- 2; 


if ( parse_siatus — MAT R IX^O PE RAT ION ) { 

/* 

* Save the attributes. 

•/ 

result .md_attributes - attributes; 

/* 

* Go and fetch the number of rows and columns from the symbol 

* table. This information will be used for integrity checking 

* of expressions. 

V 

if { return_matrix_attributes ( ElementFile, 

current ^symbol, 

& result .md_num_di mens Ions, 
(result. md subs[ SUBl ), 

& result ,md_subs ( SUB2 ), 

& result ,md_subs ( SUB3 ), 

& result .md_subs ( SUB4 ) ) »- ERR) 
if ( return_matrlx_att rlbutes ( NULL, 

current_symbol , 

(result .md_num_dl mens ions. 



parse status - ERR; 

) 

break ; 

case RHS : rhs current .ittrlbutos |- attributes; 


& result ,md__subs ( 
iresult .mdsubs ( 
sresult .md_subs [ 
4 result .md_subs [ 
== ERR ) 


SUB1 J , 
SUB2 J, 
SUB3 j, 
SUB4 ] ) 


/* 

* If the operation is a MATRIX operation, then the number of rows 

* and columns of the matrix must be retrieved. 

*/ 


if { parse_status — MATH IX_OP£ RATI ON ) ( 


/*****««*1 ******************************* * < — — > * *************************************** 

* MODULE NAME: sa ve_operator ( ) 

* MODULE FUNCTION: 

* Function savo operator Is Invoked when YACC locates an oporator. The operator 

* count is updaied and the last operator encountered Is recorded. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


/* 

* Establish temporary pointers to local data structures. 
*/ 

if ( number_operators — 0 ) 

temp_matrix_data = 4operand_l; 

else 

temp_mat rlx_data - &operand_2; 

/* 

* Save the name and attributes. 

*/ 


< >* ****************************** 


void saveoperator ( operator ) 
int operator; 


***** f 


[ 

number_operators+ ♦ ; 
last_operator - operator; 

} 


strcpy{ temp_matrix_data->md_name, current_symbol ); 
temp_matrix_data->md_attrlbutes - attributes; 

/* 

* Go and fetch the number of rows and columns from the symbol 

* table. This information will be used for integrity checking 

* of expressions. 

*/ 


if 


( return_matrix_attrlbutes ( 

ElementFile, 

current_symbol, 

& t emp_ma t r i x_dat a->md_num_d i mens 1 ons , 
4temp_mat r ix_data->md_subs [ SUB1 ), 
4temp_mat rix_data->md_subs 1 SUB2 ), 
4temp_mat rix_data->md_subs ( SUB3 ), 
6temp_matrix_data->md_subs ( SUB4 ] ) -- 
if ( ret urn_matrix_att ributes ( 


parse 


NULL, 


current_symbol , 

4 1 emp_ma t r ix_da t a ->md_num_d intensions. 


4temp_matrlx_data->md_subs ( SUB1 
4temp_matr ix_data->md_subs [ SUB2 
4temp_matrlx_data->md_subs [ SUB3 
4temp_matrix_data->md_subs ( SUB4 
status «* ERR; 


), 

)# 

), 


ERR ) 


ERR ) 


) 


I 


) 

break; 
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MODULE NAME: dominant type() 

MODULE FUNCTION: 

Function dominant^ type will return the most dominant type for the RHS of an expressio 


The most dominant type is defined as the data type which requires highest number of 
bits to represent (i.e. type DOUBLE is considered more dominant than data type INTEGE 


R) • 


REVISION HISTORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* < >• 


static int dominant_type ( data_type ) 


* 

HODULC NAME: i n i tmat ri x_st ruct ure () 

MODULE FUNCTION: 

Function initmat rlx_st ruct ure is invoked to clear out a matrix data structure — 
these data structures are used during the evaluation of an expression to determine 
if the expression specified is "compilable". 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 * 08/28/91 


* < > » 


void inlt_matrlx_st ructure ( structure ) 
struct matrix data ‘structure; 


int datatype; 


( 

register int mask; 


/* 

* Initialize the various fields of the matrix data structure. 

•/ 


/• 

* Look for the leftmost bit of the data_type. When found, return the bit. 

V 

for ( mask » DOUBLE; mask !- 0; mask >>=* 1 ) 
if ( mask & datatype ) 
return! mask ); 

/ • 

* No data typo was found, return a zero (0). 

* found. 

V 


st ruct uro->md_namo [ 0 1 ** NULL; 
structure->md_attrlbutes 0; 
st ructure->md_subs ( SUB1 } - 0; 
st ructure->md_subs ( SUB2 ) - 0; 


return! 0 ); 

) 
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/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAAAA <„ > AAAAAAA*AA*AAAAAAAAAAAAAAAA*AA*AAAAAAAAA 

MODULE NAME: veri fy_express ion_type () 

MODULE FUNCTION: 

Function veri fy_express ion_type is invoked to determine if a particular expression 
will produce reliable source code. The function will initialize various global stati 

variables to record the specific information about an expression. The routine 
parse_expression is invoked to have YACC invoke the various routines which will recor 

data type Information. The function will return a diagnostic and explanatory char- 
acter message to the invoking routine In the event a condition with a bad mix of data 
types is encountered. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


A********************************** >*** A * A * * A A A 1 

int veri fy_expresslon_type ( expression, response_message ) 


* Reset the value of parse expression (if not in an error condition), if all 

* attributes are scalar in nature, set the variable appropriately, otherwise 

* the operation is assume to be a matrix. 

V 

if ( parse status ==■ ERR ) ( 

if ( globalerror [ 0 ) !- NULL ) 

strcpy( response_message, global_error ); 

else 

strcpy( response_message, "Syntax error in expression" ) ; 
return ( INVALID_EXPRESSION ); 

) 

/* 

* Assume that the expression consists of scalar operations unless the MATRIX 

* attributes were set during the analysis cycle. 


parse_status = SCALAR_OPERATION; 

if ( ( lhs_current attributes 4 MATRIX ) I I ( rhs_current_att ributes & MATRIX ) ) 
parse status = MATRI X_OP ERAT ION ; 

/* 

* If the operation is a SCALAR operation then verify that the left and right 

* side variable types are compatible. If not, generated an error. 


char ‘expression, * responsemessage; 


int i; 

/* 

* Initialize various control variables. 

V 

parse_stat us = UNDEFINED OPERATION; 
function_status - 0; 
last_operator - 0; 
bracket_count » 0; 
response_message[ 0 J - NULL; 
global_error [ 0 ) - NULL; 
lhs_current_attrlbutes - 0; 
rhs_current_at tributes - 0; 
number_operators - 0; 
init_matri x_st ructure ( iresult ); 
init_matrlx_st ruct ure ( &operand_l ) ,* 
init_matrlx_st ructure ( 4operand_2 ); 

/* 

* Invoke the parse_express ion routine to cause YACC to analyze the expression 

* supplied. YACC will cause the previously defined functions to be invoked in 

* order to record data type information. 

*/ 

i = parse_expression ( expression ); 
if ( i — END_OF_FILE ) 

return ( VALID_EXPRESSION ); 
else if ( i !- SUCCESS ) 

1 

strcpy( response_message, "Syntax error in expression" ); 
return ( INVALID_EXPRESSION ); 

) 



if ( parse_status — SCALAR_OPERATION ) ( 

/* 

* Verify that the dominant RHS data type (the data type with the highest 

• precision) is of lesser or equal precision than the LHS/ 

*/ 

if ( doml nant_type ( rhs_current_at tributes ) > lhs_current_attributes ) 1 
strcpy( response_message, 

"Assignment of RHS to LHS would cause data loss" ) ; 
return ( INVALID_EXPRESSION ); 

) 

else 

/* 

* If any of the data types are type character, make sure that the 

* expression is only a simple assignment (no operators) . 

*/ 

if ( (lhs_current_attributes & CHAR) | 1 (rhs_current_att ributes 4 CHAR) ) ( 

/* 

* Since the data type CHAR has a lower value than the data type INT, 

* make sure that INT and CHAR are not mixed on an assignment line. 

V 

if ( ( lhs_current_attributes 6 CHAR ) == 0 ) { 

strcpy( response_message, "LHS must be of data type STRING" ); 
return ( INVALID_EXpRESSION ); 

) 

/* 

* Make sure that the RHS ONLY contains a single character variable 

* (i.e. no operators). 

*/ 



r'Mitiism 
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If ( number_operators !- 0 ) { 
strcpy( response_message, 

“Cannot mix operators and string variables" ); 
return { INVALID_EXPRESSION ); 


Make sure that no martrlx operators were used in the scalar 
operat ion. 


if ( ( last^operator — MADD_OPER ) | | 

{ last^operator -- MMINUS_OPER ) | | 

{ last~operator — MMULTOPER ) ) { 
strcpy( response_message, 

“Cannot mix scalar variables and matrix operators" ); 
return ( INVALID_EXPRESSION ); 


* A valid expression was found, return an indication. 


return ( VALID EXPRESSION ); 


* If the operation Is an assignment, verify that the LHS and the RHS are both 

* of type matrix (i.e. do not allow the assignment of a matrix to a scalar). 


if ( ( number_operators — 0 ) 44 

( ( lhs_current_attributes 4 MATRIX ) -• 0 ) && 

( rhs_current_att ributes 4 MATRIX ) ) { 
strcpy( response_message, 

“Can not assign a matrix to a scalar variable" ); 
return { INVALID EXPRESSION ); 


Mask off the matrix attributes and check the basic data type {if the last 
operator was IDENT then no data type will be on the RHS so the check Is 
Ignored) . 


lhs_current_attributes 4- -MATRIX; 
rhs_current_at tributes 4- -MATRIX; 

if ( ( rhscurrent attributes !- lhs_current_att ributes ) 44 
{ last_operat or 1- IDENTOPER ) ) { 
strcpy( responsemessage, 

"Matrix operators must match EXACT data type" ); 
return! INVALID EXPRESSION ); 


Make sure that only a single operator was specified with the matrix operator 


if ( number_operators > 1)1 
strcpy( responsejnessage, 

"Only a single matrix operator Is currently supported" ); 



At this point, we know that we have at most one operator for a matrix 
operation. The current implementation of the GCB supports only matrix 
assign {l.e. assign a single value to an entire matrix) for matrices with 
greater than two dimensions. Based on this constraint, perform the 
following checks. 


{ ( result .mdnumdlmensions > 2 ) II 
( operand_l .md_num_d intensions > 2 ) I I 
( ope ra nd_2 .md_num_dl mens Ions > 2 ) ) { 

/* 

* No operators are currently supported. Generate an error if appropriate. 

*/ 

if ( number_operators !- 0 ) | 

strcpy( responsemessage, 

"Matrix operators are not current supported for 3D and 4D matrices" ); 
return { INVALID_EXPRESSION ); 

) 

/* 

* Determine if the RHS Is a simple scalar. 

* 

* If the operation is a scalar {determined if the attributes of the RHS 

* first operand are zero or if the attributes of the first operand is a 

* matrix element), then we simply return {data types have already been 

* checked) . 

*/ 

if ( { operand_l ,md_attrlbutes ■■ 0 ) |j 

( { operand_l .md_attributes 4 MATRIX ) »■ 0 ) ) 
return ( VALIDEXPRESSION ) ; 

/* 

* At this point, determine if the RHS matrix Is the same size as the LHS 

* matrix. 

*/ 


if ( { res ul t .md_num_dimens Ions ! = operand_l .md_num_dlmensions ) I I 
( result ,md_subs l SUB1 ) 1- opera nd_l .md_subs [ SUB1 ) ) || 

( result .md_subs[ SUB2 ) 1= operand_l .md_subs [ SUB2 ) ) I I 

( result .md_subs | SUB3 1 !- operand_l .md_subs ( SUB3 ) ) II 

{ ( result .md_num_dlmenslons =» 4 ) 44 

{ result .mdsubsf SUB4 ) 1° operand_l .md_subs ( SUB4 ) ) ) ) I 
strcpy{ responsemessage, 

■Matrices must be Identically declared when assigned to each other" ); 
return ( INVALIDEXPRESSION ); 

) 

else 

return ( VALID_EXPRESSION ); 


At this point we know that we either have only one or two dimensional arrays. 
The necessary checks and balances are performed. 

For matrix add, subtract, assign or multiple perform range cheching on the 
involved matrices. 
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First check for a simple assignment. We will check for either a matrix 
assignment or a simple scalar assignment. 


first operand and the number of columns of the second operand. 
Additionally, the number of columns of the first operand must equal the 
number of rows in the second operand. 


if ( number_operators — 0 ) { 

/* 

* If the operation is a scalar (determined if the attributes of the RHS 

* first operand are zero or if the attributes of the first operand is a 

* matrix element), then we simply return (data types have already been 

* checked) . 

*/ 

if ( ( operand_l .md_attributes — 0 ) II 

( ( operand_l.md_attributes & MATRIX ) — 0 ) ) 
return ( VALID_EXPRESSION ) ; 

/* 

* The size of the result and operand matrix must be indentical. 

*/ 

if ( ( result. md subs( SUQ1 ] != operand_l .md^subs ( SUB1 J ) || 

( result .mdsubs ( SUB2 | J- opcrand_l .mdsubs ( SUB1 ) ) ) ( 

strcpy{ response^messago, 

"Matrices assigned to each other must be Identically declared" ); 
return ( INVALID EXPRESSION ); 

I 

el se 

return ( VALt ^EXPRESSION ); 


/* 

* If the operation is either and add or subtract make sure that all sizes are 

* equal. 

V 

if ( ( last_operator =■» MADD_OPER ) || { last_operator — MMINUS_OPER ) ) 1 


if ( ( result .md subs [ SUB1 1 != operand_l .md_subs [ SUB1 ] ) II 
( result.md_subs[ SUB2 1 l- operand_2 ,md_subs [ SUB2 j ) II 
( opera nd_l .md_subs [ SUB2 J !- operand_2.md_subs [ SUB1 J ) ) { 

strcpy( response_message, 

"Matrix multiplies must meet common linear algebra guidelines" ); 
return ( INVALIDEXPRESSION ); 

} 

else 

return ( VALIDEXPRESSION ); 

) 

/• 

* Check to see if the last operator was a transpose operator. 

V 

if ( lastoperator -» TRANSOPER ) ( 

/• 

• Transpose Is defined when the number or columns In the source matrix is 

* equal to the number of columns In the destination and that the number 

• of rows in the source matrix is equal to the number of columns in the 

* destination matrix. 

*/ 

if ( ( result .md^subs ( SUB1 1 ! - operand_l .md_subs l SUB2 ] ) || 

( result .mdsubs ( SUB2 ] !- operandl .mdsubs [ SUB1 ] ) ) { 
strcpy( responsemessage, 

"the number of rows and columns do not match correctly" ); 
return ( INVALID_EXPRESSION ); 

) 

else 

return ( VALID_EXPRESSION ); 

) 


/* 

* The size of the result and operand matrix must be indentical. 

*/ 


/* 

* Check to see if the last operator was an inverse operator. 
V 


if ( { result ,md_subs ( SUB1 J != opera nd_l .md_subs [ SUB1 ] ) || 

( result .md_subs ( SUB2 j I- operandl ,md_subs ( SUB2 ] ) || 

( opera nd_l.md_subs ( SUB1 ) !■= operand_2.md_subs [ SUB1 ] ) || 

{ operand_l ,md_subs ( SUB2 1 != operand_2.md_subs [ SUB2 ] ) ) { 
strcpyi response_message, 

"Matrix ADDs or SUBTRACTS must have variables identically declared" ); 
return ( INVALID_EXPRESSION ); 

) 

else 

return ( VALID_EXPRESSI0N ); 

) 

/* 

* If the operation is either and add or subtract make sure that all sizes are 

* equa 1 . 

*/ 

if ( last_operator -- MMULT_OPER ) ( 

/* 


if ( last operator **=» INVER_OPER ) { 

/* 

* Inverse is only defined if the destination matrix has the same number 

* of rows and the source matrix columns and the destination matrix has 

* the same number of columns as the source matrix rows. 

*/ 

if ( ( result.md__subst SUB1 ) != opera nd_l .md_subs { SUB2 ) ) II 
( result .mdsubs { SUB2 ] !« operand_l .mdsubs [ SUB1 ] ) ) { 
strcpy( response_message, 

"inverse is defined only with source rows - cols and vice versa" ); 
return ( INVALIDEXPRESSION ); 

I 

else 

return ( VALID_EXPRESSION ); 

\ 

/* 

* Check to see if the last operator was a identity operator. 

*/ 


The size of the result must be the same as the number of rows of the 



else 


liliK/29 

09:21:53 




data_type.c 



If { last_operator »» IDENT__OPER ) ( 

/* 

• The Identity operator Is only defined for square matrices. 
*/ 


if ( result .md_subs [ SUB1 ] != result .md_subs [ SUB2 j ) [ 
strcpy( response_message, 

"the matrix must be square for the IPF.NT operator" ); 
return ( 1 NVA 1.1 l)_EXPKESSI ON ); 

I 

else 

return { VALID_EXPRESSION )? 


1 


return ( VALID_EXPRESSION ); 


/* 

* At this point we can not identify the operation to verify it so an error Is 

* generated. 

*/ 


st. repy ( response message, "Expression not currently supported by the CICB" ); 
return ( 1NVALID_EXPRESSI0N ); 


/* 

* Check to see if the last operator was a cross operator. 

*/ 


it ( last_operator -- CROSSOPER ) 1 
/* 

* Cross product is only valid on two vectors with three rows. 

V 

if ( (result .md_subs ( SUB1 | 1-3) |) (operand! .mdsubs ( SUB1 ) !- 3) || 

(operand_2.md_subs| SUB1 ) !« 3) M { result .md subs ( SUB2 ) !- 1) )| 

(operand_l .mdsubsf SUB2 ) !- 1) || (operand_2 . md_subs ( SUB2 ) !- 1) ) 

st r cpy ( response_message, 

"cross product is only defined fro three row vectors" ); 
return ( INVALID_EXPRESSION ); 

) 

else 

return ( VALID_EXPRESSION ); 

1 

/* 

* Check to see if the last operator was a dot product operator. 

V 


If ( last_operator -- DOT_OPER ) i 

/* 

* Dot product is only valid for two identically sized vectors. 

V 

If ( (operand_l ,md_subs ( SUB1 \ !** opera nd_2 .md_subs ( SUB1 1) II 

(operand_l.md_subsl SUB2 ] 1= 1) |j (operand_2.md_subs[ SUB2 ] !=■ 1) ) 

strcpy( response ^message, 

"dot product is defined for identically sized vectors" ); 
return ( INVALID EXPRESSION ); 

) 

else 

/* 

* The LHS cannot be a matrix. 

*/ 


If ( result . md_a Ctrl but es & MATRIX ) { 

strcpy( response_message, "LHS of dot product must be a scalar" ); 
return ( INVALID_EXPRESSION ); 


I 


< > 


< > 
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MODULE NAME: return_matrlx_data () 


MODULE FUNCTION: 

Function return__matrlx_data will invoke veri fy_expresslon to fill the various 
matrix data attribute structures. When the function Is Invoked no errors should 
be generated as the GCB will not allow code generation in the event of syntax 
errors. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1 .02 - 08/28/91 


lnt return_matrlx_data ( expression, operator, result_mat, operandmatl, operand_mat2 ) 

char ‘expression; 
int ‘operator; 

struct matrix_data ‘resultmat, ‘operandmatl, *operand_mat2; 

I 

char parse_error [ MAX_PARSE_MESSAGE |; 

/* 

* Invoke verl fy_expresslon to fill the various local data structures. 

* The parse_error variable should be NULL, if not then a syntax error occurred 

* which MUST be resolved before allowing compilation to occur; return the 

* appropriate diagnostic. 

*/ 

If ( verlfy_expresslon_type ( expression, parseerror ) -- INVALIDEXPRESSION ) 
return) ERR ); 

/* 

* Copy the appropriate variables to be returned to the build routine. 

*/ 

memcpy ( result_mat, result, slzeof ( struct matrix_data ) ); 
memcpy ( operandmatl, operandl, slzeof! struct matrlxdata ) ); 
memcpy! operand_mat2, operand_2, slzeof! struct matrlx_data ) ); 

•operator - last_operator; 

/* 

* Return the type of operation (either scalar or matrix) . 

*/ 

return! parse_status ); 



MODULE NAME: matrlx_in_expr () 


MODULE FUNCTION: 

Function matrlxln expr will determine if a matrix variable (with no subscripts 
exists within an expression). If It does then -1 (ERR) will be returned, otherwise 
a zero (SUCCESS) will be returned. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* .........< 

int matrix_in_expr ( expression ) 
char ‘expression; 

( 

/* 

* Initialize the matrixfound variable to zero. Each time a matrix identifier is 

* found the variable will be Incremented by two, each time a left bracket is found, 

* the variable will be decremented by one. If at the end of parsing the variable 

* equals zero, we know that no matrix identified (without an element access) exists 

* in the expression. 

*/ 

matrix_found • 0; 

/* 

* Invoke parse_expresslon to compute the value of matrix_found . 

*/ 

parse_expresslon ( expression ); 

/* 

* If the value of matrix_found is zero, no matrix identified exists (with no 

* element access specified); therefore return success, otherwise an error is 

* returned. 

•/ 

if ( matrix_found == 0 ) 
return ( SUCCESS ); 

else 

return! ERR ) ; 
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FILE NAME: displayer.c 


* FILE FUNCTION: 


* This file contains the routines which build and control the "Displayer". The 

* "Displayer” is a larger NON-modal popup which is used to display results to 

* the user during Element/Comp Installation and during Comp Call Flow. 


* SPECIFICATION DOCUMENTS: 

* 

* /home/project/3531 /Docu/GCB. spec.doc 


FILE MODULES: 


MODULE NAME: builddi splayer_popup ( ) 

MODULE FUNCTION; 

This routine builds the Displayer popup. This routines builds the popup and 
all children widgets. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


bu i 1 d_d i sp 1 aye r_popup ( ) 
cbr_dl splayer () 
cl ose_di splayer {) 
displayer ( ) 
show_di splayer () 


- build the Displayer popup 

- callback for Displayer CANCEL button 

- takes down the Displayer popup 

- insert a new string into the Displayer text widget 

- clear the Displayer text widget and pop it on the screen 


Widget build_displayer_popup( parent ) 
Widget parent; 

{ 

Arg args[l}; 


# include 
f Include 
•include 
•Include 
•Include 
•Include 
•Include 
•include 
•include 


<stdlo. h> 

CXI 1/lntrinsi c. h> 
<X11/Shell.h> 
<Xm/Xm. h> 

"gcb. h" 

"cbr. h" 

"widget s. h” 
"constant s. h M 
"displayer. h" 


* Build the Displayer popup. Set the pointer control style to MODELESS 

* so the user doesn't have to take the Displayer window down between 

* operations -> source file builds. 

*/ 

dlg_di splayer - cr_popup{ NULLS, parent, "Displayer" ); 

XtSetArg( args[0), XmNdialogStyle, XmDIALOGMODELESS ); 

XtSetValues( dlg_displayer, args, 1 ); 

FormW = cr_form( NULLS, dlgdl splayer, NULL, NULL ) ; 
set_attribs( FORM, FormW, 725, 700, XmRESIZE_NONE ); 


scr_dl splayer = cr_scr_text ( NULLS, FormW, 45, False, 675, 10, 10 ); 

CancelW - crcommand ( NULLS, FormW, "Close", cbr_displayer, 0 ) ; 

HelpW *= cr_command( NULLS, FormW, "Help", cbr_help, DISPLAYER_HELP ); 

set_posit ion ( CancelW, 95, IGNORE, 10, IGNORE ); 
set_position ( HelpW, 95, IGNORE, 75, IGNORE ); 


MODULE NAME: cbr_di splayer ( ) 

MODULE FUNCTION: 

This routine processes the Dlsplayer CANCEL button. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCa 1 1 backProc cbr_di splayer ( w, closure, call_data | 

Widget w; 

int closure; 

caddr_t call data; 


close_dl splayer () ; 

) 




MODULE NAME: closedisplayer {) 


MODULE FUNCTION: 


This routine takes down the Dlsplayer. 


* REVISION HISTORY: o 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 

* * * Ik * * # # A ************** 4 * »»»****#******• * * * * ft * * * * ft * 

void close_dl splayer O 

( 

XtUnmanageChi.ld( dlgdlsplayer ); 

I 


/ 


displayer.c 
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............ l<; >** *M«.*1***»*<*».**..**.*»****..*..... 

MODULE NAME: displayed) 

MODULE FUNCTION: 

This routine builds a formatted text string and inserts it into the Dlsplayer for 
viewing. The specified string is appended to any data already in the text 
widget. This routine may also append the string to the Dlsplayer disk file so the 
user has a copy of the Dlsplayer output on disk. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void displayer{ format_str, argl, arg2 ) 


MODULE NAME: showdisplayer 0 

MODULE FUNCTION: 


This routine clears the Dlsplayer' s text widget, and then manages the popup to 
make sure it is popped up on the screen. The routine can be called to clear 
the text widget even while the popup is visible (mapped) on the screen. 

This routine may also attempt to open the Dlsplayer disk file. This will 
erase the old copy of the file and start a new one every time show_d i spl ayer O 
is called. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


char * format__str, 
*argl, 
arg2; 


FILE * fp; 

char string(256); 

sprintf{ string, format_str, argl, arg2 ); 

XmText Insert ( scr_di splayer, XmTextGetLastPosit ion (scr_displayer) , string ); 
XFlush ( display ); 

/• 

• 1 £ the wrlie-dlsk-f i le flag is on, write the same formatted string to 

* the disk file. 

•/ 

if ( WriteFl le ) 

1 

if { (fp *» fopen (DlsplayFlle, '’a") ) -«* NULL) 
return; 

fprintf( fp, format_str, argl, arg2 ); 
fclose( fp ); 


void show_displayer { wrlte_file ) 
int write file; 


Arg args 1 1 J ; 

FILE *f p; 

XtSetArg ( args[0), XmNvalue, NULLS ); 

XtSetValues ( serdisplayer, args, 1 ); 

XtManageChi Id ( dlgdisplayer ); 

WrlteFile - write_flle; 
if ( WrlteFile ) 

1 

if ( ! (fp * fopen (DisplayFi le, "w") ) ) 

el og (1 , M show_dlsplayer : Couldn't open %s for wri t 1 ng", D1 splayFi 1 o) ; 
fclose ( fp ) ; 

) 
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edit.c 


MODULE NAME: edit text() 


MODULE FUNCTION: 


This routine handles events when the user pushes the right mouse button 
while in a symbol (right button edit). This allows the user to either 
edit the expression or select a new Element as the target for a SET 
or CALL symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


linclude <stdio.h> 
linclude <X11/Intri nsic. h> 
linclude <Xm/Xm.h> 

linclude **gcb. h" 
linclude "wl dgct a . h" 
linclude "element_f 1 le .h" 
linclude "symbol. h" 
linclude "gcb_parse . h" 


void edit text ( symbol ) 


Widget symbol; 


Arg args(l); 

Symbol *map_entry - (Symbol *) get_sym_map_entry (symbol ) ; 

int symbol_type; 

XmString eq_string; 


* Determine which type of symbol the user is in. Show the proper 

* popup for this type of symbol. 

* 

* Put up text and expression entry panels; fill the text entry 

* panels with existing text stored in the Symbol_Map entry 

* for the parameter symbol. 


switch ( symbol_type ) 

l 

case IF: 
case SET: 


• Set "equals" button to or according to whether we are 

* in a SET or an IF. 

*/ 

Xt SetArg (args (0 ] , XmNlabelString, *eq__st ring) ,* 

XtGetValues (eqbtn, args, 1); 

XmStringFree (eq_string) ; 

if ( symbol _type ■»«* IF ) 

eqstring “ XmSt r 1 ngCreate ( XmSTR ING_DEFAULT CHARSET ); 

else 

eq_string - XmStri ngCreate ( XmSTRING_DEFAULT_CHARSET ); 

Xt SetArg ( args(O), XmNlabelString, eqstring ); 

XtSetValues( eq_btn, args, 1); 

XmSt rlnqFree ( eqstring ); 

XmTextSetStrlng ( serologic, map_entry->Sym. I fSym. logical_expr ); 
XmText Setstring ( screxpr, map_entry->Sym. I fSym.compexpr ); 
XmTextSetStrlng ( scr_comment , ’ map_entry->Sym. I f Sym. comment ); 


* set global variable SetSym so parser will know what kind of 

* expr to expect. 

V 


* Determine the type of symbol the user pushed the right 

* button in. 

V 


if ( symbol_type SET ) 
SetSym - 1; 
else SetSym =0; 


XtSetArg( args[0], XmNuserData, &symbol_type ); 
XtGetValues ( symbol, args, 1 ); 


* There are no editable attributes in BEGIN or END symbols so 

* check to see if the user is in one of these symbols. 


if ( (symbol_type BEGIN) || (symbol_type =■= END)) 
l 

user_ack ("There are no editable attributes for this symbol"); 
return; 

) 


set_current_sym ( symbol ); 
Mode - EditSymbolContent s; 


* If the symbol expression is not blank, set the insertion 

* point to the end of the expression so any new text will be 

* added to the end of the expression. 

V 

if ( map_entry->Sym. If Sym. comp_expr ) 

[ 

XmTextSetlnsertionPosition ( scr_expr, 

strlen (map_ent ry->Sym. If Sym. comp_expr) ) ; 

/* 

* Parse the expression and set the token expression building 

* buttons based on the expression in the symbol. 

*/ 

do_parse () ; 

) 


The expression is blank, initialize the expression token buttons 


PRECEDE PAGE BLANK NOT FILMED 





* Load the popup selection list with Element names so the user 

* can pick a new one from the list. 

*/ 

If (! load_element_list (ELEMENT, list_elem) ) 

( 

XmTextSetStrlng ( txtcallne, map_entry->text >; 
XtManageChlld ( dlgcall ); 

I 

break ; 

case START: 
case STOP: 

If (! load_element_llst (COMP, list_comp) ) 

( 

XmTextSetStrlng! txtstart, map_entry->text ); 

XtManageChlld ( dlg_start ); 

I 

brea k ; 


default : 

elog (1, “Invalid symbol key during right button edit: %d“, 
return; 

) 


symbol_type) ; 
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element_file.c 


FILE NAME: 


element file.c 


FILE FUNCTION: 

Contains the routines which read, write and open Graphical Comp Element Flies. 

SPECIFICATION DOCUMENTS; 

/home/ pro ject/ 3 531 /Docu/GCB. spec.doc 

FILE MODULES: 


bull d_copy_elem_popup () 
bui ld_cre_elem__popup () 
bui ld_del_elem_popup() 
bui ld_sel_elem_popup () 
bui ld_sel_root_elem () 
cbr_create_elem_copy () 
cbr_element_type () 
cb r_e 1 em_popup < ) 
cbr_el_delete () 
cbr_el__del_sel () 
cbr_el_selected {) 
cbr_new_element () 
cbr_root_elem 0 
cbr_root_selected () 
cbr_sa v_element () 
get_element_calls {) 
get_element_self cal Is {) 
Implode { ) 

init_element_vars O 
load_element_l 1st {) 
locate_l lne () 
locate_l 1st () 
locate^segment () 
locate_symbol {) 
read _el erne nt_f lie {) 
read_element_st r () 
record_l 1 ne {) 
record_l 1st () . 
record_segment () 
reinit_element_vars {) 
sa ve_curr_element () 
save_element_f 1 le () 
save element str() 


build the Copy Element popup 

build the Create Element popup 

build the Delete Element popup 

build the Select Element popup 

build the Select Root Element popup 

process Element copy, create a new Element file 

process the Element type toggle buttons -> comp/library 

determine which Element popup to display to the user 

process Delete Element, purge Element from disk and comp 

process the selection widget selection, load text widget 

user has selected a new Element file, read it in 

creates a new Element file on disk 

process the Select Root Element popup 

process the selection widget selection, load text widget 
user has selected Save Element 

extracts the calls to other Elements from an Element 

extracts the number of times an Element calls Itself 

process the Implode button press 

initialize the Element level global variables 

load a selection list widget with Element names 

locate a line structure during Element file reading 

locate a LlneList structure during Element file reading 

locate a segment structure during Element file reading 

locate a symbol structure during Element file reading 

read an Element file from disk, restore pointers and vars 

read a string from an Element file, read a count of chars 

build a line struct during the saving of an Element file 

build a list struct during the saving of an Element file 

build a seg struct during the saving of an Element file 

reinitialize Element level global vars 

process the user's Save Element button press 

write an Element file to disk, save all pointers and vars 

save a string to an Element file, save a count of chars 


I include 
•include 
•include 
•include 
•include 
•include 
•include 


•include <stdio.h> 
•include <stdlib.h> 
•include <sys/file.h> 
•include <sys/time.h> 
•include <dirent.h> 


•include <X11/Intrinsic.h> 
•include <Xm/Xm.h> 

• include "geb.h" 

•include "cbr.h” 


widgets . h" 
eleroentf i le .h" 
lines. h" 
pixmaps . h H 
constants. h" 
fonts .h" 
symbol . h“ 
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* MODULE NAME: build_copy_elem_popup {) 

* MODULE FUNCTION: 

* 

* This routine builds the copy element popup. 


» REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


element_file.c 


/****************************************< — >** *****'*“ 
MODULE NAME: build_cre_elem_popup () 

MODULE FUNCTION: 

This routine builds the create element popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


Widget build_copy_elem_popup( parent ) 
Widget parent; 


Widget bul ld_cre_elem_popup ( parent ) 
Widget parent; 


Arg args[2|; 

dlgcopyelem - crpopup ( NULLS, parent, “Copy Element" ); 

FormW - cr_form ( NULLS, dlgcopyelem, NULL, NULL ); 
setattrlbs ( FORM, FormW, 450, 200, XmRESIZENONE ); 

rbcopyelem - crradlobox ( NULLS, FormW, XmHORIZONTAL ); 

tgl_copy_elem_ce * cr_toggle( NULLS, irb_copy_elem, "Comp Element", NULL, 0,0 ); 

tgl_copy_elem_le - cr_toggle( NULLS, rb_copy_elem, “Library Element", NULL, 0,0 ); 

cr_label< NULLS, FormW, "New Element Name: ", 0, 35, IGNORE, 9, IGNORE ); 
cr_label( NULLS, FormW, "Element Type:", 0, 12, IGNORE, 9, IGNORE ) ; 

txt_copy_elem_ne - cr_text ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 37 ); 

crseparator ( NULLS, FormW, 75, IGNORE, 1, 99 ); 

DoneW - cr_command( NULLS, FormW, "Create", cbr_create_elem_copy, DONE ); 

CancelW - cr_command( NULLS, FormW, "Cancel", cbr_create_elem_copy, CANCEL ); 

HelpW - cr_command( NULLS, FormW, "Help", cbrhelp, COPYELEM ); 

suL_posltlon (, rb_copy_elem, 9, IGNORE, 40, IGNORE ) ; 

setposltlon ( txt_copy_elem_ne, 35, IGNORE, 40, IGNORE ); 

setposltlon ( CancelW, 84, IGNORE, 5, IGNORE ) ; 

set_positlon ( DoneW, 84, IGNORE, 40, IGNORE ) ; 

setposltlon ( HelpW, 84, IGNORE, 75, IGNORE ); 


XtSetArgl args[l|, XmNdefaultButtonShadowThlckness, 0 ) ; 
XtSetValuesl CancelW, args, 2 ); 


dlg_cre_elem « cr_popup( NULLS, parent, "Create Element" ); 

FormW - cr_form( NULLS, dlg_cre_elem, NULL, NULL ); 
setattribs ( FORM, FormW, 450, 400, XmRESIZE_NONE ) ; 


rb ere elem 


crradlo box ( NULLS, FormW, XmHORIZONTAL >; 


tgl_cre_elem_ce • cr_toggle( NULLS, rb_cre_elem, "Comp Element", NULL, 0,0 ); 

tgl ere elemle - cr_toggle( NULLS, rbcreelem, "Library Element", NULL, 0,0 ) ; 

txt~cre_elem_ne - ertext ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 37); 

crlabel ( NULLS, FormW, "Element Type:", 0, 5, IGNORE, 9, IGNORE ) ; 

crlabel ( NULLS, FormW, "New Element:*, 0, 17, IGNORE, 9, IGNORE ); 

crlabel ( NULLS, FormW, "Purpose:*, 0, 30, IGNORE, 9, IGNORE ); 

scr_cre_elem « cr_scr_text (NULLS, FormW, 10, True, 300, NULL, NULL); 

cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ) ; 

DoneW “ cr_command( NULLS, FormW, "Create", cbr_new_element, DONE ); 

CancelW - cr_command( NULLS, FormW, "Cancel", cbrnewelement, CANCEL ); 

HelpW - cr command! NULLS, FormW, "Help", cbrhelp, CREATE ELEM) ; 


IGNORE, 

40, 

IGNORE ) ; 







IGNORE, 

90, 

IGNORE ) ? 

setposltlon ( 

XtParent (scr_cre elem) , 

29, 

IGNORE, 

30, 

IGNORE ) 

IGNORE, 

5, 

IGNORE ) ; 

setposltlon ( 

txt_cre_elem_ne. 

17, 

IGNORE, 

30, 

IGNORE ) 

IGNORE, 

40, 

IGNORE ) ; 

set posit Ion ( 

rb creelem, 

4, 

IGNORE, 

33, 

IGNORE ) 

IGNORE, 

75, 

IGNORE ) ; 

set position ( 

CancelW, 

80, 

IGNORE, 

5, 

IGNORE ) 




setposit ion ( 

DoneW, 

88, 

IGNORE, 

40, 

IGNORE ) 

2 ); 



set_posl t ion ( 

HelpW, 

88, 

IGNORE, 

75, 

IGNORE ) 


| 9 1 / 08 / 29 • 


"•*•*■••••*••****•****•**••***•••< 

MODULE NAME: bul 1 d_del_elem_popup () 

MODULE FUNCTION: 

This routine builds the delete element popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


element file.c 


*.***.**•**.#**< 

MODULE NAME: bu 1 ld_se l_elem_popup {) 

MODULE FUNCTION: 

This routine builds the select element popup. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 



/ 


Widget bul ld_del_elem_popup ( parent 


Widget build_sel_elem_popup ( parent ) 


Widget parent; 
i 

dl y_del_cl em - cr_popup( NULLS, parent, "Delete Element" ); 

FormW - cr_form( NULLS, dlg_dcl_elem, NULL, NULL ); 
set_at tribs { FORM, FormW, 425, 500, XmRESIZE_NONE ); 

cr_label ( NULLS, FormW, “Delete Element 0, 20, 23, 9, IGNORE ) ; 
cr_label ( NULLS, FormW, "Element List:", 0, 30, 33, 9, IGNORE ); 
cr_label { NULLS, FormW, "Element Type:", 0, 10, 1 3, 9, IGNORE ); 

txt_del_el - cr text ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 34); 

list_del_elem - cr_llst( NULLS, FormW, 14, 235 ); 

rb_del_clem - cr_rad lobox ( NULLS, FormW, XmHORIZONTAL ); 

tgl_del_elem_ce - cr_toggle( NULLS, rb_del_elem, "Comp Element", NULL, 0,0 ); 
tgl_del_elem_le - cr_toggle( NULLS, rb_del_elem, "Library Element", NULL, 6, 6); 

sot user data ( l «j 1 _dol _ <ilom_oe, ELEMENT ); 
set_user_data { tgl_del_elem_le, LIB); 


Widget parent; 
l 

dlg_sel_elem *= cr_popup( NULLS, parent, "Select Element" ); 

FormW = cr_form( NULLS, dlg_sel__elem, NULL, NULL ); 
setattribs { FORM, FormW, 425, 400, XmRESIZE_NONE ) ; 

cr label ( NULLS, FormW, "Element Type: ",0, 5, IGNORE, 9, IGNORE ); 
cr_label ( NULLS, FormW, "Element List:", 0, 1 7, IGNORE, 9, IGNORE ); 

rb_sel_elem - cr_rad lo_box { NULLS, FormW, XmHORIZONTAL ); 

tgl_sel_elem_ce - cr_toggle( NULLS, rbselelem, "Comp Element", NULL, 3,3 ); 

tglselel emle - cr_toggle{ NULLS, rbselelem, "Library Element", NULL, 2,2 ); 

set_user_data { tgl_sel_elem_ce, ELEMENT ); 
set_user_data ( tgl_sel_elem_le, LIB ); 

listsol elcm - cr 1 ist { NULLS, FormW, 14, 235 ); 

cr_separator ( NULLS, FormW, 88, IGNORE, 1, 99 ) ; 


cr_separator ( NULLS, FormW, 86, IGNORE, 1, 99 ); 


DoneW 

- cr 

command { 

NULLS, 

FormW, 

-Delete", 

cbr_ 

_el_delete, 

DONE ) ; 

CancelW 

- cr 

_command ( 

NULLS, 

FormW, 

-Cancel", 

cbr 

_el_delete, 

CANCEL ) ; 

HelpW 

- cr_ 

^command ( 

NULLS, 

FormW, 

-Help", 

cbr 

[help. 

DELETE_ELEM 


XtAddCallback ( 1 ist_del_elem, XmNbrowseSelectlonCallback, cbr_el_del_sel , NULL); 
XtAddCallback ( tgl_del_elem_le, XmNarmCallback, cbr_element_type, llst_del_elem) ; 
XtAddCal Iback ( tgl_del_elem_ce, XmNarrnCallback, cbr_element_type, li st_del_elem) ; 


CancelW « cr_command( NULLS, FormW, "Cancel", cbr_el_selected, CANCEL ); 

HelpW •» cr_command( NULLS, FormW, "Help", cbr_help, SELECT_ELEM ); 


set_poslt ion { Xt Parent (1 ist_sel_elem) , 
set_posi tlon ( rb_sel_elem, 
set_posltion ( CancelW, 
set_position ( HelpW, 


ii. 

IGNORE, 

40, 

IGNORE ) ; 

4, 

IGNORE, 

40, 

IGNORE ) ; 

93, 

IGNORE, 

10, 

IGNORE ) ; 

93, 

IGNORE, 

70, 

IGNORE ) ? 


XtAddCallback ( 1 ist_sel_elem, XmNbrowseSelectlonCa llback, cbr_el_selected, list_sel_elem) 


set_posit Ion ( 

txt_del_el, 

19, 

IGNORE, 

40 , 

IGNORE ) ; 

XtAddCallback ( 

tgl_sel 

set_posl tlon ( 

XtParent (1 1 st_del_elem) , 

29, 

IGNORE, 

40 , 

IGNORE ) ; 

XtAddCallback ( 

tgl_sel 

sctposi t ion ( 

rbdel e lem. 

9, 

IGNORE, 

40 , 

IGNORE ) ; 

1 


set_posi 1 1 on ( 

Cance 1 W, 

92, 

IGNORE, 

5, 

IGNORE ) ; 



set__posit ion ( 

DoneW, 

92, 

IGNORE, 

40 , 

IGNORE ) ; 



set_posit Ion ( 

HelpW, 

92, 

IGNORE, 

75, 

IGNORE ) ; 




XmNarmCallback, cbr_element_type, 1 1 st_sel_elem) ; 
XmNarmCallback, cbr_element_typo, 1 1 st_scl _elem) ; 


) 


i * 9tmmM 

iiiiifi 

>*******.***********.**...****** 

MODULE NAME: bui ld_sel_root_elem ( ) 

MODULE FUNCTION: 

This routine builds the popup which allows the user to select a new root 
element . 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


element_file.c 


2»*****ftft*»<t*ft**ft*** * »*ft***«*A***lt*«***»*** 

Widget build_sel_root_elem ( parent ) 

Widget parent; 

1 

dlg_sel_root = cr_popup( NULLS, parent, “Select Root Element" ) ,- 

FormW - cr_form( NULLS, dlg_sel_root, NULL, NULL ); 
setattrlbs ( FORM, FormW, 425, 400, XmRESI ZE_NONE ) ; 

cr_label ( NULLS, FormW, "Root Element:", 0, 5, IGNORE, 9, IGNORE ); 

, crlabel ( NULLS, FormW, "Element List:", 0, 20, IGNORE, 9, IGNORE ) ; 

txt_sel_root - cr_text( NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 37); 
llst sel root - crjlstl NULLS, FormW, 14, 235 ); 

cr separator ( NULLS, FormW, 08 , IGNORE, 1, 99 ) ; 

DoneW - cr_command( NULLS, FormW, "Done", cbr_root_elem, DONE ); 

CancelW - cr_command( NULLS, FormW, "Cancel", cbrrootelem, CANCEL ); 

HelpW *■ cr_command ( NULLS, FormW, "Help", cbr_help, SEL ROOT ELEM ) ; 

setposltlon ( XL Pa rent ( 1 1 s t_sel_root ) , 20, IGNORE, 40, IGNORE ) ,- 

setposltlon ( txt_sel_root, 5, IGNORE, 40, IGNORE ); 

setposltlon ( CancelW, 92, IGNORE, 3, IGNORE ); 

setposltlon ( DoneW, 92, IGNORE, 40, IGNORE ) ; 

set_posltlon( HelpW, 92, IGNORE, 75, IGNORE ); 

XtAddCal lback ( llst_sel root , XmNbrowseSelect lonCal lback, cbr root selected, LIST_SEL) ; 


MODULE NAME: cbrcreateelemcopy () 

MODULE FUNCTION: 

This routine processes the user's button presses in the Copy Element popup. This 
routine will create a copy of the current Element file If the user choses DONE. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


A*************************************** <_ >« ************** 

XtCallbackProc cbr_create_elem_copy ( w, closure, call data ) 

Widget w; 

int closure; 

caddr t call data; 


FILE * Ip; 

char copy ok msg [1001 * 

P r e v El ement F 1 1 e [ MAXNAME ) ; 


• User wants to CANCEL and exit the popup. 
V 

If ( closure == CANCEL ) 

1 

XtUnmanageChlld ( dlg_copy_elem ); 
return; 

} 


20 , 

IGNORE, 

40 , 

IGNORE ) ; 

/* 


5, 

IGNORE, 

40, 

IGNORE ) ; 

* Make 

sure we have a valid 

92, 

IGNORE, 

3, 

IGNORE ) ; 

* have 

a valid element. 

92, 

IGNORE, 

40 , 

IGNORE ) ; 

V 


92, 

IGNORE, 

95, 

IGNORE ) ; 




if (! ValidElement ) 

{ 

user_ack ("Can' t copy, Invalid Element file"); 

elog (1, "cbr_create_elem_copy : Can't copy, invalid Element file"); 

XtUnmanageChlld ( dlg_copy_elem ); 

return; 

} 

if ( SaveNeeded ) 

if ( ask ("Do you want to save your changes to the current element file?")) 
save element_f ile () ; 


* Check to make sure the user entered a new Element file name. 

* 

* copy popup's element file name to elementfile and gelement f 1 le; 

* element type to ElementType. 

*/ 
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element_file.c 


if ( ! XmTextGet Insert ionPositlon (txt_copy_elem_ne) ) 

1 

user_ack ("Can' t copy element, no new element file name specified"); 

XtUnmanageChild ( dlg_copy_el em ); 

return; 

\ 

busy{ dlg_copy_elem, TRUE ); 

/* 

* Save the current Element info before getting the new Element name. 

*/ 

strcpy( PrevElementFile, ElementFlle ); 

strcpy{ ElementFile, {char *) XmTextGetString (txt_copy_elem_ne) ); 

/* 

* Determine which type of Element file to create based on the toggle buttons. 

*/ 


if ( XmToggleButtonGetState {tgl_copy_elem ce) ) 

ElementType - ELEMENT; 

else 

ElementType - LIB; 

/* 

* If the user wants to build a library element, we need to 

* add the library path. 

*/ 


if ( ElementType »» LIB ) 


I 

st rcpy ( 
st rcat ( 
strcat ( 
strcat ( 
) 

else 

I 

strcpy ( 
strcat { 
} 


GElement Fi le, 
GElementFl le, 
CElementFi le, 
GElementFl le. 


GElementFl le, 
GElement Fi le, 


LlbPath ) ; 

>? 

ElementFile ); 
EL_EXT ) ; 


ElementFile ); 
EL_EXT ) ; 


/* 

* If the file already exists, let the user know. Clear the Work Area because 

* we have changed all the Element paths and variables. 

*/ 


if ( ! access (GElementFile, R_OK) ) 

I 

user_ack ("Couldn' t open the new element file, file already exists"); 
reinit_element_vars {) ; 

XtUnmanageChild { dlg_copy_elem ); 
return; 

I 


elog (1 , "cb rcr eat e_elem_copy: Couldn't open the new element file for writing**); 
reinlt_element_vars () ; 

XtUnmanageChild! dlg_copy_elem ); 
return; 

1 

else 

f close { fp ) ; 


/* 

* save the current file 

*/ 

save element f lie () ; 

/* 

* If we have a valid Comp file, then update the symbol table by adding the 

* new Element file to the symbol table. 

*/ 


If { ValidComp ) 

I 

if ( copy_element_to_symbol table (PrevElementFile) ) 

userack ("Error: could not add new Element to Comp symbol table") ; 

/* 

* If we have a Comp file, then add this new element to the Comp tile 

* element list. 

V 


if ( ElementType -- LIB ) 

updatecompf lie ( GCompFlle, NULL, NULL, ElementFile, "L" ); 

else 

updatecompfi le ( GCompFile, NULL, NULL, ElementFile, **E" ); 
/“DEBUG*/ 

elog (3, "cbr_create_elem_copy ; updated comp**); 

strcpy! copy ok msg, "Copy made; you are now editing "); 
strcat ( copy ok msg, ElementFile ); 
user_ack( copyokmsg ); 

) 

else L : 

t 

user_ack ("ValidComp not set during cbr_create_elem_copy" ) ; 
elog (1, "ValidComp not set during cbr_create_elem_copy") ; 

) 

XtUnmanageChild! dlg_copy_elem ); 


/* 

* Try to open new file, if this fails, clear the Work Area because we have 

* changed all the Element paths and variables. 

*/ 


it {! (fp = fopen (GElementFile, "w") ) ) 

( 

user_ack ("Couldn' t open the new element file for writing"); 
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/********************•*•****•************<; >************•***************«******** 

* 

* MODULE NAME: cbr_element_type () 

« 

* MODULE FUNCTION: 

* 

* This routine responds to the Element Type toggle buttons. This popup will load 

* the Element selection list with the proper type of element names: either comp 

* elements or library elements based on the user's selection of the toggle buttons. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 * 07/17/91 

Release 1.02 - 08/28/91 


XtCal IbackProc cbr_element_type ( w, client_data, call_data ) 
Widget w; 

caddr_t client_data, 
call data; 


Widget list; 

Arg argsllj; 

char tmpStr [MAX_NAME] ; 


MODULE NAME: cbr elem_popup () 

MODULE FUNCTION: 

This routine pops up the Element popups. This routine will display one of the 
following popups: 

Create Element 
Copy Element 
Delete Element 
Select Element 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XtCallbackProc cbr elem popup ( w, closure, call data ) 

Widget w; 

int closure; 

caddrt ca ll_dat a; 


if (Mode ! - Ed it Symbol) 
return; 


list - (Widget) client_data; 


* The user has clicked one of the element type selection buttons, 

* set the global var to the newly selected type and then reload the 

* element selection list based on the type. 


* Start all element file operations with the type set to: ELEMENT. 

*/ 

ElementListType = ELEMENT; 


XtSetArg( args[0), XmNuserData, ^Element Li stType ); 
XtGetValues( w, args, 1 ); 

load _element_l 1st ( ElementListType, list ) ; 


* Clear the text widget in "delete element”. This will be executed 

* during "non-delete-element” operations, but it won't hurt. 

*/ 

XmText Setstring ( txt_del_el, NULLS ); 


* Set the text widget in "create call symbol". This will be executed 

* during "non-create_cal 1-element" operations, but it won't hurt. 

*/ 

sscanf ( selList(0}, "%s", tmpStr ); 

XmText Setstring ( txt_call_ne, tmpStr ); 


Determine which element file operation the user wants and then show 
the corresponding popup. 


switch ( closure ) 
i 

case 0: arm_tgl ( tgl_cre_elem_ce ); 

disarm_tgl( tgl_cre_elem_le ); 

XtManageChlld ( dlg_cre_elem ); 
busy( dlg_cre elem, FALSE-); 
break; 

case 1: arm tgl ( tgl_copy_elem_ce ); 

disarm tgl ( tgl_copy_elem_le ); 

XtManageChlld ( dlg_copy_elem ); 
busy ( dlg_copy_elem, FALSE ); 
break; 

case 2: arm_tgl ( tgl _del_elem_ce ); 

disarm tgl ( tgl_del_elem le ) ; 

If (! load_element_l 1st (ELEMENT, 1 lst_del_elem) ) 

I 

XtManageChlld ( dlg_del_ele/n ); 
busy ( dlg_del_elem, FALSE ); 

) 

break; 

case 3: arm_tgl ( tgl_sel_elem_ce ); 
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disarm_tgl( tgl_sel_elem_le >; 
if ( ! load_element_llst (ELEMENT, 1 1 stsele lem) 
{ 

XtManageChl Id { dlg_sel_elem ); 
busy { dlg_sel_elem, FALSE ); 

} 

break; 


MODULE NAME: cbr_el_delete {) 

MODULE FUNCTION: 

This routine processes the Delete Element popup and deletes the selected element 
from the comp file. 

REVISION lUSTOHY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 




XtCallbackProc cbrel delete) w, 

cl lent__data, 

call_data ) 

Widget w; 

int client 

XmLlstCallbackStruct *call_ 

data; 

data; 


( 

struct symbolentry 'entry; 



char el file [MAX NAME), 

gel_flle[MAX_PATH] ; 
lnt selfcalls; 

/* element 
/' element 

file, no path or extension '/ 

file, with path and extension*/ 


/* 

* User does not want to delete an element, take down the popup. 

*/ 


if ( clientdata — CANCEL ) 

i 

XtUnmanagcChi 1 d ( dlgdelelem ); 
return; 

1 

/* 

* User didn't specify an element to delete but still selected DELETE. 
*/ 


if ( strlen (XmTextGetString (txt_del_el ) ) 0 ) 

[ 

user_ack ("Please select an element to delete from the list"); 
return; 

} 

busy ( dlg_del_elem, TRUE ); 

/* 

* Get the selected Element name. 

*/ 


sscanf( XmTextGetString (txt_del_el ) , Ms", el_file ); 

/* 

* Build the paths depending on whether the user wants to delete a libary 

* element or comp element. 

*/ 




if ( Element LI st Type - = ELEMENT ) 


1 

strcpy ( 
strcat ( 
1 

else 

( 

strcpy ( 
strcat ( 
strcat ( 
strcat ( 
) 


gel_file, 
gel_fi le, 


gel_file, 
gel_f lie, 
gel_flle, 
gelflle. 


el_flle ); 
EL_EXT ) ; 


LibPath ); 
"/" ) ; 
elflle ) ; 
EL_EXT ) ; 


del_element_from_comp ( el_file, ElementListType ); 
/* 

* Let the user know the element was deleted. 

*/ 


user ack ("Element file deleted - references In other elements may still exist"); 
XmText Setstring ( txt_del_el, NULLS ); 

/* 

* If the user deleted the element which was currently In the Work Area, 

* clear the Work Area and reset the status flags. 

*/ 


/* 

* Get the use count of the element. 

*/ 

If (! (entry = lookup_symbol (NULL, el_f lie) ) ) 

elog (1, "cbr_el_delete: Element not found in the symbol table; »s“, elf lie) ; 

el se 

( 

/* 

* Check the use count of the element to be deleted. 

*/ 

If ( entry->se_use_count ) 

selfcalls » get_element_sel fcal Is ( el_flle, gelflle ) ; 

else 

self_calls - 0; 

/* I 

* If the use count is greater than the number of selfcalls in the element, 

* then notify the user that the element has other references and can not 

* be deleted. 

*/ 

if ( ent ry->se__use_count > self_calls ) 

{ 

user_ack ("This element is referenced by another element - can not delete"); 

busy( dlg_del_elem, FALSE ); 

return; 

) 


if (f strcmp (gel_f lie, GElementFi le) ) 
relnit_element_vars 0 ; 

/* 

* Update the selection list, let the user delete another element. 

V 

if ( XmToggloBuL tonCot State (igl_del_e iem_l e) ) 

cbr_element_type ( tgl_del_elem_le, 1 ist_del_elem, calldata ); 

else 

cbr_element_type { tgl_del_elem_ce, 1 lst_del_elem, call_data ); 

/* 

* Turn off BUSY here because we don't take down the popup during delete 

* operations. 

*/ 

busy ( dlg_del_elem, FALSE ); 


/* 

* Remove the Element and its locals from the symbol table. 
*/ 


if ( del_elem_from_symbol_table (el_f ile, gel_fi le) ) 

user_ack ("Error: deleting the Element from the Comp symbol table"); 

} 


/* 

* Delete the file. 
V 


if ( unlink (gel_f ile) ) 

* user_ack ("Could not delete element file - file may not have been created"); 


* Remove element from the Comp file. 

*/ 
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***•**«••»«..**< >.. .ft...,.*.......*..*.........*,,.,.*,**. 

* MODULE NAME: cbr_el_del_sel () 

* MODULE FUNCTION: 

* This routine gets the user's Element name selection from the selection list and 

* Inserts it into the Delete Element text string field. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*********** ******** 

XtCa 1 IbackProc cbr_el_del_sel { w, client_data, call data ) 

Widget w; 

caddr_t client^data; 

XmListCa 11 back St ruct *call_data; 


I 

char “string, 

tempName (MAX_NAME J ; 


XmStringGetLtoR ( cal l_data->ltem, XmSTRING_DEFAULT_CHARSET, istring ); 

sscanfl string, ,, %s**, tempName ); 

XmTextSetString ( txt_del_el, tempName ); 


/*••»**»**»***»*•*••.»•***«**»******«»***< 

* MODULE NAME: cbr^elselected ( ) 

* 

* MODULE FUNCTION: 

* This routine responds to the user's selecting an element from the list. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

« . M< >« 

XtCallbackProc cbr_el_selected ( w, closure, call_data ) 

Widget w; 

int closure; 

XmListCallbackStruct ‘calldata; 


FILE * fp; 
char ‘string; 

if { closure =« CANCEL ) 

1 

XtUnmanageChi Id { dlg_sel_elem ); 
return; 

} 

busy ( dlg_sel_elem, TRUE ); 


XmStringGetLtoR ( cal l_da ta->it em, XmSTRING_DEFAULT_CHARSET, istring ); 
/* 

* See if the current file has been updated and should be saved. 

*/ 


if ( SaveNeeded ) 

save_curr_element () ; 

reinit_element_vars {) ; 

/* 

* Copy element name into ElementFile; set up GElementFile. 

V 

sscanf { string, *‘%s", ElementFile ); 

if { Element ListType *=■- ELEMENT ) 

{ 

strcpy( GElementFile, ElementFile ); 
strcat ( GElementFile, EL_EXT ); 

J 

/* 

* It the user wants to read a library element, prepend the library path 

* to the element name. 

*/ 


else 



( 

strcpy( GElementFlle, LibPath ); 
strcat ( GElementFlle, “/" ); 
strcat) GElementFlle, ElementFlle ) ; 
strcat ( GElementFlle, EL EXT ) ; 

I 
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* 

* MODULE NAME: cbrnewelement () 

* 

* MODULE FUNCTION: 



/* 

* See if the element file exists, if it doesn't ask the user if they want 

* to create one. 

V 


This routine creates a new Element file. This routine is called when the user 
is in the "Create New Element" popup. This routine processes both the CREATE 
button and the CANCEL button. 


if ( access (GElementFi le, R_OK) ) 

if { ask {"Selected Element file does not exist, create one?") ) 

{ 

arm_tgl ( tgl_cre_elem_ce ); 
disarm_tgl( tgl_cre_elem_le ); 

XmText Setstring { txt_cre_elem_ne, ElementFlle }; 
XtManageChild ( dlg_cre_elem ); 
busy( dlg_cre_elem, FALSE ); 

) 

else 

{ 

user__ack ("Element file not created, please select another"); 

ValidElement " False; 

busy { dlg_sel_elem, FALSE ); 

return; 

} 

/* 

* File exists, read it. 

V 


else 

if ( read_element_f ile () -- ERR ) 

1 

user_ack ("Unable to read Element file - please check error log"); 
elog (1, "Unable to read Element file - %s", GElementFlle ); 

) 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.01 - 08/01/91 

* Release 1.02 - 08/28/91 

* 

**************************************** * ******************•********************/ 

XtCallbackProc cbrnewelement ( w, closure, call_data ) 

Widget w; 

int closure; 

caddr_t call_data; 

{ 

FILE *fp; 

timet clock; 

int attributes - 0; 

if ( closure =*» DONE ) 

{ 

if ( ! strlen (XmTextGetString (txt_cre_elem_ne) ) ) 

i 

user ack ("Please enter an Element name") ; 
return; 

1 


upd_pos_panol ( ELEMENT_PURPOSE ) ; 
upd_mode_panel () ; 

XtUnmanageChild ( dlg_sel_elem ); 


/* 

* See if the current file has been updated and should be saved. 

*/ 

busy( dlg_cre_elem, TRUE ); 

if ( SaveNeeded ) 

save_curr_element () ; 

/* 

* Clear work area and reinit variables. 

V 


reinit_element_vars {) ; 

/* 

* Get element file name and get element file type -> comp or library element. 

*/ 

strcpy( ElementFlle, (char *) XmTextGetString (txtcreelemne) ); 

if { XmToggleBut tonGet State (tglcreelemce) ) 

ElementType = ELEMENT; 

else 




/• 

* If Che user wants to build a library element, we need to 

* add the library path. 

V 


clock - t ime ( NULL ); 
strftime( CreateDate, 11, 
strftime( UpdateDate, 11, 
strftime( UpdateTlme, 9, 


"%m/%d/%Y", 

-%m/%d/%Y-, 

"%T“, 


localt ime ((clock ) ); 
localtime ((clock) ); 
localtime ((clock) ); 


if ( ElementType LIB ) 
( 

strcpy( GElementFi le, 
strcat ( GElementFi le, 
strcat( GElementFi le, 
strcat ( GElementFi le, 
) 

else 

( 

strcpy( GElementFi le, 
strcat ( GElementFi le, 
) 


LlbPath ); 

V )? 

ElementFlle ); 
EL^EXT ) ; 


ElementFlle ); 
EL_EXT ) ; 


/* 

* See if an Element file with this name already exists. 

*/ 


upd pos panel ( ELEMENT_PURPOSE ); 
upd_mode_panel () ; 

Va 1 IdElement - TRUE; 

attributes |= PROCEDURE; 

If (! (struct symbol_entry •) lookup_symbol (NULL, Element Fl le) ) 

\ 

/•DEBUG*/ 

elog (3, "cre elem: adding entry %s to symtable", ElementFlle); 

If ( add_symbol_entry (NULL, ElementFlle, attributes, 0, 0, 0, 0, 0) ) 
errorhandler ( ERR_ADD_SYMBOL, “cre_elem* ); 

) 

else 

/•DEBUG*/ 

elog (3, "cre_elem: entry %s found in symtable, not adding”, ElementFlle); 

I 


if (! access (GElementFile, R_0K) ) 

( 

busy( d lg_cre__elem, FALSE ); 

user_ack ("Couldn' t open the new element file, file already exists"); 
return; 

1 

/* 

* Try to open the new Element file. 

•/ 

If (! { t p - I open (GElemc nl Fl )o, V) ) ) 

I 

busy( dlg_cre._elem, FALSE ); 

user_ack C’Couldn' t ' open the new element file for writing"); 

elog (1 , "Couldn' t open the new element file for writing: %s", GElementFi le) ; 

return; 

) 

else 

f close ( f p ) ; 


/* 

* User does not want to create a new Element file, take down the popup. 
V 

else if ( closure — CANCEL ) 

1 

if (I ValidElement ) 

( 

GElementFi le{0) ~ NULL; 

ElementFi le(0] - NULL; 

XmTextSetStri ng ( scr_cre_clem, ■" ); 

XraTextSetStrlng ( t xt_cre_elem_ne, "" ); 

) 


XtUnmanageChl Id ( dlg_cre_elem ); 

) 


* If we have a Comp file, then add this new element to the Comp file 

* element list. 

V 

if ( ValidComp ) 

if ( ElementType =» LIB ) 

update_comp_fl le ( GCompFile, NULL, NULL, ElementFlle, "L" ); 

else 

update_comp_fl le ( GCompFile, NULL, NULL, ElementFlle, "E" ); 

/* 

* Get the purpose text. 

*/ 


strcpy{ ElementPurpose, (char *) XmTextGetString (scr_cre_elem) ); 

/* 


Get the current time and date. 
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Xt UnmanageChi Id ( dlg_sel_root ) 
break; 


MODULE NAME: cbr_root_e lem <) 

MODULE FUNCTION: 


) 


This routine displays the popup which allows the user to select a new root 
element. 


REVISION HISTORY: 


Graphical Comp Builder 


- MOTIF Release 1 .0 
Release 1.01 
Release 1.02 


07/17/91 

08/01/91 

08/28/91 


XtCall backProc cbr_root_e lem ( w, key, call_data ) 

Widget w; 
int key; 

caddr_t call_data; 

( 

if (Mode ! “ EditSymbol) 
return; 

switch ( key ) 

( 

case MANAGE : 

load_element_list { ELEMENT, 1 i st_sel_root ); 

XtManageChlld ( dlg sel root ); 
busy! dlg_sel_root, FALSE ); 
break; 

case DONE: 

if ( strlen (XmTextGetStr ing (txt_sel_root) ) < 1 ) 

{ 

user_ack {" Please select an element to become the root element") ; 
return; 

} 

/* 

* Get the new Root Element name and update the global variable. 

V 

strcpy( RootElement, XmTextGetString (txt_sel_root) ); 

/* 

* Update the Comp file which will update the RootElement name. 

V 

upda te_comp_f 1 le { GCompFile, CompPurposo, RootElement, NULL, NULL ); 
/* 

* Take down the popup. 

V 

XtUnmanageChild ( dlg_sel_root ); 
break; 


case CANCEL : 



ummWi 

;;09:i2;0H 
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_>***************************************» 

MODULE NAME: cbr_root_selected {) 

MODULE FUNCTION: 

This routine is a callback for the Select Root Element selection list widget. When 
the user selects an Element name from the list, this routine is called to Insert 
the string into the Element name single line text field. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 3.02 - 08/28/91 


/*******************•********************< _> A****************** 

MODULE NAME: cbr_sav_element 0 

MODULE FUNCTION: 

This callback routine makes a call to save the current element. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


» < >* 


XtCal IbackProc cbr_sav_element ( w, list, call_data ) 


XtCa 11 backProc cbr__root_selected { w, list, call_data ) 


Widget 

Widget 

Xm Li st Call back St ruct 


w; 

list; 

*cal l_data; 


char ‘string, 

tempName (MAX_NAME 1 ; 


XmSt ri ngGet LtoR ( ca 1 l_data-> it em, XmSTRING_DEFAULT_CHARSET, fistring ); 


Widget w; 

Widget list; 
caddr_t calldata; 


/* 

* Make sure we really need to save the file. 

*/ 

if ( ! SaveNeeded ) 

if (1 ask ("No changes have been made, do you still want to SAVE?") ) 
return; 


sscanf{ string, "%s", tempName ); 
XmTextSetString ( t xt_sel_root , tempName ); 


If ( ! ValidElement ) 

{ 

userack ("A valid file has not been started, no filename, can not save"); 
return; 

) 


save_e loment_f 1 le () ; 

/‘DEBUG*/ 

elog(3,"cbr save elem: updating comp file %s M , GCompFile); 
update_comp_flle ( GCompFile, CompPurpose, NULL, NULL, NULL ); 


91/08/29 ? I 
09:22;0t 
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/A************** ***** 


***< >* 


* MODULE NAME: get_element_calls () 

* 

* MODULE FUNCTION: 

* 

* This routine extracts the calls to other Elements from the specified Element 

* file. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


***•**«< >* 


while ( (rc = fscanf (fp r "id” , &symbol_type) ) != EOF ) 

I 


* If we don't get an integer, dump the rest of the line. If we 

* get a LINE SEGMENT indicator, we are finished with the file 

* because the line info follows the symbol info. 

*/ 

if ( rc — 0 ) 

( 

fscanf { fp, "%M~\n] M )# 
continue? 

I 

if ( symbol type =- SEGMENT_KEY ) 
break; 


int get_element_cal Is ( names, types, element_name, element_type ) 

char names [ 1 (MAXNAME ) , 
types [ | , 

* element^name, 
element_type; 

FILE * f p; 

char elementName (MAX_NAME) , 

epat h [ MAX_PATH ) ; f 

int count - 0, 

elementType, 

i, 

rc, 

symbol_type; 


/* 

* See if we have a symbol which may contain a reference to an 

* element file. 

*/ 


switch ( symbol_type ) 
i 


case START: 
case STOP: 
case GOTO: 


default : 

1 


fscanf ( f p , “ % * u %*d %*d %*d %*d %*d %*d %*d %*d %*d %*d“ 

read element str ( fp, elementName ); 

fscanf ( fp, “%*u %*u %d M , SelementType ); 

fscanf { fp, *’%*[ A \n] M ); 

break? 

fscanf ( fp, "%*[ ys \n} M )? 
continue; 


) ; 


/* 

* Open the specified element file and locate any calls to other element 

* files. 

*/ 


/* 

* Loop through the list, if the new element name is already in the list, 

* ignore it, otherwise add the new element name and update the list size. 
V 


if ( element_type 

I 

strcpy ( epath, 
strcat ( epath, 
strcat ( epath, 
strcat ( epath, 
1 

else 


— ) 

LibPath ) ? 
"/" ) ; 

element_name 
EL_EXT )? 


) ; 


[ 

strcpy ( epath, element_name )? 
strcat ( epath, EL_EXT ); 

} 


if (! (fp “ fopen (epat h, "r" ) ) ) 

l 

elog (3, “Couldn't open an Element file during get_element_ca 1 Is O : %s“, epath ); 
return ( 0 ) ? 

) 


i ° 0? 

while ( Kcount ) 

if ( ! strcmp (names [i ), elementName) ) 

I 

if ( (types [i] « 'L') && (elementType LIB) ) 
break; 

else if ( (types [1] == 'E') && (elementType == ELEMENT) ) 
break; 
else 

i++; 

) 

else 

i + + ; 

/* 

* If we are at the end of the list, this name must be a new 

* one so add it to the list. 

V 


/* 

* Locate a graphical symbol which will contain an element file name. 
*/ 



if ( i == count ) 

1 

strcpy ( names [ count ) , elementName ); 
if ( elementType =** LIB ) 



91/08/25 
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types [ count J 

el se 

types ( count ) 
count++; 

) 



' L' ; 


' E' ; 


/• 

* Close the element tile. 

*/ 


fclose ( fp ) ; 
return ( count ); 



.*•*.*.**..•**•...***.< > 


MODULE NAME: get_element_self cal Is ( ) 

MODULE FUNCTION: 

This routine opens an Element file and counts the number of times the Element 
calls itself. 

NOTE: this routine does not do any checking for Comp Element vs. Library 
Element. This code will need to be added as the Library Element's 
impacts on the Symbol Table are decided. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.01 - 08/01/91 

* Release 1.02 - 08/28/91 

* * “***/ 

int get_element_sel fcal Is ( el_flle, gel_file ) 

char *el_file, /* element name without path or extension •/ 

*gel_file; /* element name, path and extension •/ 


I 

FILE * Ip; 

char elementName [MAX_NAME] / 

int count - 0, 

re, 

symbol type; 


if ( ! {fp » fopen (gel_f i le, "r") ) ) 

i 

elog {3, "Couldn* t open Element file in get_element_sel f ca 1 1 s 0 : \s", gci_tlle ); 
return ( 0 ); 

) 

/* 

* Locate a graphical symbol which will contain an element file name. 

V 

while ( {rc ■ fscanf (fp, "Id", 6symbol_type) ) 1- EOF ) 

I 

/* 

* If we don't get an Integer, dump the rest of the line. If we 

* get a LINE SEGMENT indicator, we are finished with the file 

* because the line info follows the symbol info. 

*/ 


if ( rc 0 ) 

( 

fscanf ( fp, "%*[ A \nl" ); 
continue; 

} 

if ( symboltype — SEGMENT_KEY ) 
break; 


■ 1 / 08/29 4 
09 : 22:01 | 


element_fi!e.c 



/* 

* See If we have a symbol which may contain a reference to an 

* element file. 

*/ 




* 

* MODULE NAME: implode () 


< — 


— > 


switch { symbol_typ£ ) 

1 

case START: 
case STOP: 

case GOTO: fscanf ( fp,"%*u %*d %*d %*d %*d %*d %*d %*d %*d 

read_element_str l fp, elementName ); 
fsc^nf ( fp, "%*u %*u %*d" ); 
fsc3nf( fp, "%* [ A \n] ■ ) ; 
break,* 

default : fscanf { fp, ••% * [ ^\n ) " ); 

continue; 


) 


% *d %*d- 


) ; 


/* 

* If the name in the symbol matches the name of the Element we are working 

* on, then bump the counter. 

V 


if ( ! strcmp(el f i l£, elementName) ) 
count++; 

) 


MODULE FUNCTION: 

This routine loads the element to be imploded into. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*********•****«****************•******< >**»»******» 


void implode { element_name, type ) 

char *element_name; 

int type; 

{ 

/* 

* Save the current element if needed. 
*/ 


f* 

* Close the element file. 
*/ 


fclose { fp ) ; 
return ( count ) ; 


if ( SaveNeeded \ 

save_curr_el ement ( ) ; 

/* 

* Init element variables. 

V 

reinit_element vars () ; 


if ( type — ELEMENT ) 

i 

strcpy( GElement Fi le f elemertt_name ); 
strcat( GElement Fi le, EL_EXT ); 
ElementType - ELEMENT; 

} 

else 


{ 

strcpy( GElement Fi le, 
strcat{ GElement Fi le, 
strcat ( GElement Fi le, 
strcat( GElementFile, 
ElementType “ LIB; 

i 


LibPath ) ; 

“/" ); 

element_name ) ; 
EL EXT ) ; 


strcpy( ElementFile, element_name ); 


/* 

* See if the element file exists, if it doesn't ask the user if they want 

* to create one. 

*/ 


if 



( access (GElement Fi le, R_OK) ) 

if ( ask ("’Selected Element file does not exist, create one?") 

1 

arm_tgl ( tgl_cre_elem_ce ) ; 
disarm_tgl ( tgl_cre_elem_le ); 

XmTextSetString ( txt_cre_elem_ne, ElementFile ); 


) 
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XtManageChl Id ( dlg_cre_elem ); 
busy { dlg_cre_elem, FALSE ); 

} 

else 

{ 

user ack ("El ement tile not created, please select another**); 

ValldElement - False; 

busy! dlg_sel_elem, FALSE ); 

return; 

) 

/* 

* File exists, read It. 

*/ 




MODULE NAME: lnl t_element jars ( ) 

MODULE FUNCTION: 

This routine Initializes the Element variables. 
REVISION HISTORY: 

• Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


else 

If { read element_f 1 le {) «* ERR ) 

I 

user^ack ("Unable to read Element file - please check error log"); 
elog (1 , "Unable to read Element file - %s M , GElementFi le ); 

) 

upd_pos_panel ( ELEMENT_PURPOSE ); 
upd_mode__panel {) ; 


void lnit_element_vars () 

{ 

int 1, value, slider, incr, page_incr; 
Widget hscroll, vscroll; 


Arg args[2); 

Audit = FALSE; 

ElementType - -1; 
LlneSegKey - 1; 

Line Key - 1; 
LlneListKey - 1? 

Save Needed - FALSE; 
Snap - FALSE; 

SymKey - 1; 


ElementFlle(O) - NULL; 
GElementFi le (0 ) - NULL; 

CreateDate (0 ) - NULL; 
UpdateDate (0 f - NULL; 
UpdateTlmo (0 ) - NULL; 


ValldElement - FALSE; 

next symbol - 0; 


strcpy{ Author, UserName ); 


/* 

* The entire textsw widget must be cleared or the end of the last 

* string will be visible when the purpose is updated. 

*/ 


for ( i=0; i <MAX_PURPOSE; i + + ) 
ElementPurpose (i ] - ' 
ElementPurpose (0) - NULL; 


for ( i«*0; i<MAX_SYMBOLS; 1 + + ) 
if (symbols(l)) 

( 

Xt Unreal izeWldget ( symbols (i) ); 

XtDestroyWldget ( symbols [i| ); 
symbols(i) » NULL; 

) 


XClearArea ( display, XtWindow (draw_area) , 0, 0, 0, 0, True ); 
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mwm 


XSet Funct i on { display, Def aultGC (d i spl ay , Default Screen (di spl ay )) , GXcopy ); 


* Initialize the symbol array and Work Area cell map. 

*/ 


MODULE NAME: load_element_l 1st ( ) 

MODULE FUNCTION: 


lnit_symbol_array () ; 
init_cel l_map() ; 

set_nu 1 l_undo_event {) ; 


This routine loads the Element file names from the Comp file into the element 
selection list widget. This routine also loads the Comp names into the Comp 
selection list widget during ACTIVATE and STOPs. 


Audited - 0; 


REVISION HISTORY: 


/* 

* Reset the Work Area scroll bars... 

*/ 


/* 

* Get the work area's scrollbars 

*/ 

XtSetArg( args{0), XmNhorizontalScrollBar, &hscroll ) ; 

XtSetArg( args(lj, XmNvert icalScrollBar, svscroll ); 

XtGetValues( scr_WA, args, 2 ); 

/* 

* Get the current scrollbar values 
V 

XmScrol IBarGetVa lues ( hscroll, rvalue, islider, &incr, &page_incr, True ); 
/* 

* Change only the current scroll bar position. The True parameter 

* indicates that the ChangedPosi t ion callback should be called. 

•/ 


XmScroll BarSetValues ( hscroll, 0, slider, incr, page_incr. True ); 
XmScrollBarSetValues ( vscroll, 0, slider, lncr, page_lncr, True ); 

expr_text *» NULL; 

sym_text - NULL; 

comment_text - NULL; 

/* 

* Start in zoomed in mode. 

V 

Eoomed ** FALSE; 

J 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

a*********************************** > A***************************************/ 


int loadelement _1 1 st ( type, list widget ) 

Widget list^wldget; 

int type; 

l 

DIR 
FILE 

XmString 
struct dirent 
int 

char 


•dir; 
•fp; 
xmst r; 
“dp; 
i, 

cnt=0; 

•cptr, 

*nptr; 


/* 

• Need a list of Comps for an ACTIVATE or STOP list. 
*/ 


if ( type «« COMP ) 

( 

if ( ! ValidPosition ) 

i 

user_ack ("Please select a Position first"); 
return ( ERR ); 

) 

/* 

* Delete the list entries. 

*/ 


XraListDeleteAl lltems ( list_widget ); 

/* 

* Open the Position directory and list get all the Comp names. 

*/ 

if ((dir = opendir (Posit ionPath) ) « NULL) 

( 

elog (1, "load_element_list () - couldn't read Position directory"); 
return ( ERR ) ; 

) 


for ( cnt=G, dp=readdir (dir) ; dpj«NULL; dp^readdir (dir) ) 
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{ 

strcpy( selLl st [cnt ) , dp->d_name ); 

/* 

* If we find a valid Comp dir name, remove the extension from the 

* string which will be inserted into the selection list widget. 


if ( ! valid comp d 1 r name ( so 1 1. 1 st. ( cut. } ) ) 

< 

nptr - so 1 l.i st ( cnt | ; 

cptr - fiselLlst lent) [strlen (nptr)-4J ; 

•cptr - NULL; 

cnt*+; 

) 


) 

if {{cnt - read_comp_llst ( fp, type, selLlst ) ) — ERR) 

{ 

user_ack ("Error: could not read comp file"); 

elog (1, " load_element_llst : couldn't read comp list of file: %s", GCompPlle) 
fclose( fp ); 
return ( ERR ) ; 

I 


f cio 

/* 

* 

*/ 


i ip i 

Mark the first entry as the root element. 


If ( cnt »• MAX_m.ES ) 

I 

user_ack (“Error: exhausted file list - notify developer”); 
elog (1 , “ load_element_l 1st () - exhausted file list"); 
return! ERR ); 

I 

) 

/■ 

* Insert the Comp names Into the selection list widget. 

*/ 

If ( cnt > 0 ) 

I 

qsort ( selLlst, cnt, MAXNAME, stremp ); 
for ( 1-0; l<cnt; 1+ + ) 

I 

xmstr - XmStrlngCreate ( selLlst[l|, XmSTRINGDEfAULTCHARSET ); 
XmLlstAddItem( llstwldget, xmstr, 1+1 ); 

XmStrlngFree ( xmstr ); 

) 

I 

return! OK ); 

1 


• Need a list ot Element names. Check to make sure we have a Comp File. 

*/ 


If ( type — ELEMENT ) 

Strcat! selList(O), “ root Element" ); 

/* 

* Delete the list entries. 

*/ 

XmLlstDeleteAl lltems ( llst_wldget ); 

/* 

* Sort the list and Install the list Into the selection widget. 

*/ 

If | cnt > 0 ) 

( 

qsort! selLlst, cnt, MAXNAME, stremp ); 
for ( 1-0; lccnt; 1++ ) 

I 

xmstr - XmStrlngCreate! selLlst (1|, XmSTRlNG_DEFAULT_CHARSET ) ; 
XmLlstAddltem! llst_wldget, xmstr, 1+1 ); 

XmStrlngFree ( xmstr ); 

) 

) 

return ( OK ) ; 


If ( ! ValldComp ) 

If ( ask (“No Comp selected, do you wish to edit orphan Library elements?") ) 
return! OK ); 

else 

I 

user_ack ("Please select a Comp, then select one of the Comp's elements"); 
return ( ERR ) ; 

I 


/* 

* Open the comp file and load the list. 

*/ 


If ( ! (fp - fopen (GCompFl lc, "r”) ) ) 

( 

user_ack ("Error: could not open comp file"); 

elog (1, " load_element_llst : couldn't open comp file: %s", GCompFlle) ; 
return! ERR ); 
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MODULE NAME: locate_line<) 


* MODULE FUNCTION: 

* This routine is used to locate a line structure during the reading of an Element 

* file from disk. The proper line structure is identified by the key which was 

* used when the line information was written to disk. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08 / 28/91 

* ***** 

Line * locate_l ine ( key ) 

unsigned int key; 

struct readLine 'linePtr; 


/*******«******************************* * < > **************************************** 

* MODULE NAME: locate_list !) 

* MODULE FUNCTION: 

* This routine is used to locate a line list structure during the reading of an 

* Element file from disk. The proper line list structure is identified by the key 

* which was used when the line information was written to disk. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 



LineList *locate_list ( key ) 
unsigned int key; 

1 

struct readLlneList ‘listPtr; 


if { key — 0 ) 

return ( NULL ); 

linePtr - ReadLineRoot ; 

/* 

* Locate the Line structure in the linked list. 

*/ 

while ( linePtr NULL ) 

( 

if ( llnePtr->key -*» key ) 
return! linePtr->line ); 
linePtr » linePt r->next; 

} 

elog (1, M locate_l ine () - serious internal error - couldn't find Line struct %u", key) 



if ( key -» 0 ) 

return! NULL ); 

listPtr - ReadLlneListRoot; 

/* 

* Locate the LineList structure in the linked list. 

*/ 

while ( listPtr !=* NULL ) 

{ 

if ( llstPtr->key — key ) 

return! 1 istPt r->lineList ); 
listPtr - listPt r->next ; 

I 

elog (1, “locate_l 1st () - serious error - couldn't find LineList struct %u",key); 




/ 


< > 


<— — > 


* MODULE NAME: locate_segment () 

* MODULE FUNCTION: 

* This routine is used to locate a line segment structure during the reading of an 

* Element file from disk. The proper line segment structure is identified by the key 

* which was used when the line information was written to disk. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* ******* 

LineSeg * locate_segment ( key ) 
unsigned int key; 

I 

struct readLlneSeg *segPtr; 


MODULE NAME: loca te_symbol () 

MODULE FUNCTION: 

This routine is used to locate a symbol structure during the reading of an 
Element file from disk. The proper symbol structure is identified by the key 
which was used when the Element file's information was written to disk. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

***«**»«»*************•****»»*********< >****«***»«**»***»»***«***«***»**«***«*»*/ 

Symbol * locate_symbol { key ) 
unsigned int key; 

int sym « 0; 


if < key 0 ) 

return ( NULL ) ; 

soyPtr - ReadLlneSegRoot; 

/■ 

* Locate the LineSegment structure in the linked list. 

V 

while { segPtr !- NULL ) 

{ 

if ( segPtr->key -- key ) 

return ( segPtr->lineSeg ); 
segPtr - segPt r->next; 

) 

elog {1, "locate_segment () - serious error, couldn't find LineSeg struct %u",key); 


if ( key -«=■ 0 ) 

return ( NULL ); 

while ( procoss_l lnes (sym] . sym ) 

if ( process_l ines IsymJ ,sym->key -- key ) 
return ( process_lines(sym| .sym ); 

else 

sym ♦ +; 

elog (1, "locate_symbol {) - serious internal error - couldn't find Symbol struct"); 
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Read the header. 


MODULE NAME: readme lement_f lie () 

MODULE FUNCTION: 

This routine opens and reads an Element file from disk. This routine reconstructs 
all the structures kept in memory to record line and symbol information. This 
routine also reconstructs all of the pointers in these structures. 

REVISION HISTORY: 


if ( fscanf (fp, "%d ", iElementType) « EOF ) 
return ( ERR J ; 

switch ( ElemenLType ) 

i 

case LIB : 

case ELEMENT : break; 

default : elog <1 , "read_elemont_t 1 le () - Invalid comp typo id 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


if ( fscanf (fp, "%s", CreateDate) — EOF ) 
return ( ERR ) ; 


<• 


> 


/ 


int read_element 

( 

FILE 

Line 

Li neLi st 
Li neSeg 
Symbol 
char 
int 


unsigned int 


unsigned long 
Ary 

Pixmap 


filed 

*fp; 

* 1 inePtr; 

*1 istptr; 

•segPt r; 

•symbol; 

temp_str IMAX_TEXT) ; 
attributes - 0, 
fontsize, 

j . 
n, 

rc, 

sym, 

symbol _type; 

line_f rom, 
linenext, 

1 inetype; 
fore, 
back ; 
args l 1 0 | ; 
pixmap; 


ValidElement - FALSE; 

/• 

* Try to open the element file. 

*/ 


if (I (fp “ fopen (CElementFile, "r"> J ) 

1 

user_ack ("Error : could not read element file"); 
return ( NOT_FOUND ); 

1 


if ( fscanf (fp, "%s", UpdateDate) -- EOF ) 
return ( ERR ); 

if ( fscanf ( fp, "is", UpdateTime) == EOF ) 
return ( ERR ); 

if ( read_element_str (fp, Author) ) 
return ( ERR ); 


/* 

• Read this element's purpose in life. 

*/ 

if ( read_element_str (fp, ElementPurpose) ) 
return ( ERR ) ; 

/* 

• Read the palette Items' back and foreground colors 

• and if we're on a color display, refill the palette items 
*/ 


for ( ) •• 0 ; J < NUM PALETTE; )•» ) 

I 

fscanf ( fp, "%lu %lu", sfore, &back) ; 
if ( Color ) 

( 

set_my_foreground ( j, fore ); 
set_my_background ( j, back ); 

pixmap - XmGetPixmap( XtScreen (rc_palette) , paletteitems ( j ] , 
colors (back] ); 

} 

else 

( 

/•DEBUG 

* 

* Set mono foreground and background. 

*/ 


/* 

* Initialize the process__l ines array. 

*/ 

for ( sym-0; sym<MAX_SYMBOLS; sym++ ) 
process_l ines [ sym] . sym * NULL; 


set_my_foreground ( j, 1 ); 
set_my_background ( j, 0 ); 

pixmap « XmGetPlxmap( XtScreen (rc_palette) , paletteitems ( j ] , 
} 

XtSetArg( args[0], XmNlabelPixmap, pixmap ); 

XtSetValues( Palette[j], args, 1 ); 

) 



, E 1 emc nt Ty pe ) ; 


colors ( fore] , 


/ 
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/* 

* Eat the last blank, the I, and \n on the palette colors line 
V 


fscanf( fp, "i*c%*c\n" ); 


sSymbol_Map( sym) .cell_y, 
&Symbol_Map(sym) .height, 
6Symbol_Map[sym) .width, 
sSymbo L_Map(syml .ulcx, 
4Symbol_Map[ symj . ulcy) ; 


/• 

* make entry in symbol table for this element; 

* all of this element's vars will depend on this name. 

*/ 

if { ! (struct symbol_entry *) look up_symbol (NULL, ElementFile) ) 

( 

/ ‘DEBUG*/ 

elog(3,*sel elem: adding entry is to symtable*, ElementFile); 
attributes |- PROCEDURE; 

if ( add_symbol_ent ry (NULL, ElomentFl lo, attributes, 0, 0, 0, 0, 0) ) 
error_handler { ERR_ADD_SYMBOL, " read_element_f i le" ); 

) 

el se 

/‘DEBUG*/ 

elog (3, "sel_elem; entry is found in symtabie, not adding", ElementFile); 


fscanf(fp, "id ", if ont__sl ze) ; 

if ( fontsize -- 0 ) 

Symbol_Map( sym) . font - tecny_font; 
else if ( fontsize — 1 ) 

Symbol Map l sym) . font - small_font; 
else If ( font_size « 2 ) 

Symbol_Map(sym) . font « big_font; 

/* 

* if this is the begin symbol, set BeglnSym 
*/ 


if ( symbol_type — BEGIN ) 

BeglnSym - tSymbol_Map( syml ; 


/* 

* Read the symbols, 

•/ 

while ( TRUE ) 

( 

/* 


symtext - NULL; 

read_element_str { fp, temp_str ); 
if ( "temp str !- NULL ) 

[ r 

Symbol Map (sym) .text - malloc{ st rlen (tempstr) +1 ) 
strcpy( Symbol Map fsym J . text, tempstr ); 
sym text - Symbol_Map{ sym| .text; 

) 


* Make sure we can add more symbols. 

*/ 


else 

Symbol Map l sym) .text • NULL; 


if ( (sym - next avall_sym()) < 0 ) 

{ 

user__ack ("Fi le contains too many symbols, aborting read of Element file"); 
elog (1, "File contains too many symbols, aborting read of Element file"); 
return ( ERR ); 

I 

rc - fscanf( fp, "id", isymbol_type ); 
if l (rc — EOF) \ j (rc — 0) ) 
break; 

/* 

* Check for the start of the line information. 

•/ 


fscanf( fp, "lu %u", 4line_next, illne_from ); 
/* 

* Register the symbol's line pointer keys. 

•/ 


process_l 1 nes [ sym) .sym 
process_lines (sym) .next 
process_llnes (syml .from 
process^l ines [ sym) .true 
process_lines ( sym) .false 


4 (Symbol_Map( sym) ) ; 

line_next; 

llne_from; 

0 ; 

0 ; 


Symbol_Map { sym ). next - NULL; 
Symbol _Map( sym) . from - NULL; 


if ( symbol_type -» SEGMENT^KEY ) 
break; 

/* 

* We have a symbol. Read Its info. 

*/ 

Symbol_Map (sym) . symbol_type - symbol_type; 

fscanf {fp, "iu id id id id id id id id id ", 
&Symbol_Map( sym) .key, 

& Symbol Map l sym) .symboigene rated, 
4Symbol_Map(sym] .cel l_height , 
4Symbol_Map[ sym) .cell_wldth, 
4Symbol_Map[ symj ,cell_x. 


if ( SymbolMap) symj .key > SymKey ) 
SymKey ~ Symbol_Map) sym) .key; 

/* 

* Insert the symbol specific info. 

*/ 

if ( symbol_type **» IF) 

/* 

* Insert true and false line info 



{ 

fscanf{ fp, "%u %u %d %d %d %d", 
&process_l lnes [sym] .false, 

&process_l lnes [sym] .true, 
&Symbol_Map[sym] .Sym. I fSym. false_x, 

& Symbol _Map( sym] . Sym. I fSym. fal se_y, 
&Symbol_Map( sym] .Sym. I fSym.truex, 
&Symbol_Map [ sym] . Sym. I fSym.tr ue_y ) ; 

/* 

* Draw the line TRUE/FALSE labels. 

V 


If ( process^l ines [ sym] . fa 1 se ) 

XDrawString{ display, XtWindow (draw_area) , LDgc, 

Symbol_Map [sym] . Sym. If Sym. falsex, 
Symbol_Map(sym] . Sym. IfSym. false_y, 
"FALSE**, 5 ) ; 

if ( process_lines [sym] .true ) 

XDrawString( display, XtWindow (draw_area) , LDgc, 

Sy mbo 1 Map ( sym ) . Sym . I f Sym . t rue x , 
Symbol Map [sym] . Sym. I ( Sym. t ruo y, 

"TRUE” 7 4 ) ; 

] 


/* 

* Process the IF and SET symbol text fields. 
V 


/* 

* set global symJText variable to either logical or comp text, 

* so draw routine can use it to draw the symbol. 

*/ 


element_fjje.c 

return ( ERR ); 

) 

read_element_str ( fp, temp_str ); 
if ( *temp_str !» NULL ) 

( 

Symbol_Map[sym| .Sym. IfSym. comment - malloc( strlen (temp_str) +1 ); 
strcpy( Symbol_Map(sym| . Sym. If Sym. comment , tempstr ); 

I 

else 

Symbol_Map[sym) . Sym. If Sym. comment ~ NULL; 



) 

else if ( (symbol_type == GOTO) || 

(symbol_type -- STOP) | | 

(symboltype -- START) ) 

I 

f scant ( fp, "%d", iSymbol Map ( sym] . Sym. ElemSym. comp_type ); 

1 


fscanf ( fp, "\n", temp_str ); 

/* 

* Set the symbol canvas attributes. 

'/ 

Symbol Map [sym] .mycanvas - currentsymbol; 


n - 0; 

XtSetArq) args|n], XmNwldth, 
XtSetArg! args|n|, XmNhelght, 
XtSetArg) args[n|, XmNx, 
XtSetArg) args)n|, XmNy, 
XtSetArg) args(n), XmNuserData 
XtSetValues) currentsymbol, a 


Symbol Map [sym | .width ) ; nti; 
Symbol_Map[sym) .height ) ; n + + ; 
Symbol_Map[sym] . ulcx ); n++; 
Symbol_Map[sym] .ulcy ); ntt; 
symbol_type ) ; n+ + ; 
s, n ) ; 


if ( (symbol_type — IF) I I (symbol_type =>= SET) ) 

t 

read_element_str ( fp, temp_str ); 
if ( 'tempstr !- NULL ) 

) 

Symbol_Map [sym] . Sym. IfSym. logica l_expr * malloc) strlen (temp_str) +1 ) ; 
strcpy) Symboi_Map [sym] . Sym. If Sym. logical_expr, temp_str ); 
sym_text - Symbol_Map[sym] .Sym. IfSym. logical_expr; 

)' 

else 

Symbol_Map [sym) . Sym. I fSym. loglcal_expr = NULL; 

read_element_str ( fp, temp_str ); 
if ( *temp_str !- NULL ) 

I 

Symbol_Map [sym] . Sym. I fSym. comp_expr = mallocf strlen (temp_str) +1 ); 
strcpy( Symbol_Map [sym] . Sym. If Sym. comp_expr, temp_str ); 
expr_text'=Symbol_Map[sym| .Sym. IfSym. comp_expr; 

) 

else 

Symbol_Map [ sym ] . Sym. I f Sym . comp_expr - NULL; 

If ( (!sym_text) ii (!expr_text) ) 

I 

user_ack ("Error: Symbol did not contain logical or comp text"); 

elog (1, "read_element_file: Symbol did not contain logical or comp text”) 


/• 

* Insert into the cell map. 

*/ 

if ( ! (set_cell_map_sym( SYMBOL CELL, (Symbol *) s (Symbol_Map[sym| ) , 
Symbol_Map[sym| ,cell_x, 

Symbol_Map[sym) ,cell_y, 

Symbol_Map[sym] .cell_wldth, 

Symbol_Map[sym| .cell_height ))) 

( 

userack ("Error: Can't allocate cell map to place symbol"); 

elog (1, “Error: Can't allocate cell to place symbol type: %d”, symboltype) ; 

return! ERR ); 

1 

/' 

* Draw the symbol. 

*/ 

draw_symbol ( symbol^type, current_symbol , WAgc, Symbol_Map[sym) . font ); 

/• 

* reset global text pointers 

*/ 

sym_text = NULL; 

expr_text = NULL; 
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/* 

* Turn on SHOW to make new canvas visible In work area. 

*/ 


XtMapWldget ( current_symbol ); 

I 

/* 

* Read the Line Info. 

*/ 

ReadLlneRoot - RcadLine - NULL; 

ReadLlneSogRoot - ReadLlneSeg - NULL; 

ReadLlneLlstRoot - ReadLlneLlst - NULL; 

/* 

* Read the LlneSegment Info. 

*/ 


lino_type - (unsigned lilt) symbol_type; 
while ( line_type «• SEGMENT_KEY ) 

I 

ReadLlneSeg - (struct readLlneSeg *) malloc( slzeof (struct readLineSeg) ); 
segPtr - (LineSeg *) malloc) si zeof (LineSeg) ); 

fscanf ( fp, "%u %u %u 4d %d td %d %d %d %d %d »d %d *d\n“, 

4 segPtr->key, 

4 ReadLl neSeg-> next _seg, 
sReadLl neSeg->prev_seg, 

4 segPt r->cel l_end_x, 

4segPtr->cell_end_y, 

4segPtr->cel l_start_x, 

4segPtr->cel l_start_y, 

4segPtr->end_x, 

4segPtr->end_y, 

4segPtr->start_x, 
isegPt r->start_y, 

4segPt r->arrow_x, 
tsegPt r->a trowj, 
tscgPt r->orlcntat Ion ); 


ReadLlneSeg->key 

ReadLlneSeg->llneSeg 

ReadLlneSeg->next 

ReadLlneSegRoot 


- segPtr->key; 

- segPtr; 

- ReadLlneSegRoot; 

- ReadLlneSeg; 


If ( ReadLineSeg->key > LlneSegKey ) 
LlneSegKey - ReadLlneSeg->key; 


LDstartX » segPt r->start_x; 
LDstartY - segPtr->start_ y; 
LDendX - segPt r->end_x; 

LDendY - segPt r->end_y; 

setllne () ; 


rc - fscanf ( (p, "%<1 ", 411no_type ); 
If ( (rc — EOF) | | (rc — 0) ) 
break; 

I 


/* 

* Read the Line structure- info. 

*/ 


while ( llnetype ~ LINEKEY ) 

( 

ReadLlne = (struct readLlne *) malloc( slzeof (struct readLine) ); 
llnePtr - (Line * ) malloct sizeof(Llne) ); 

fscanf! fp, “tu %u %u %u\n“, 

4 1 inePtr->key, 

4ReadLlne->l lne_seg, 

4ReadLlne->f romsym, 

4ReadLlne->to_sym ); 


ReadLl ne->kcy 
ReadLlne->llne 
ReadLl ne->next 
ReadLlneRoot 


- llnePtr-Pkey; 

- linePtr; 

- ReadLlneRoot; 

- ReadLlne; 


If ( ReadLlne->key > LlneKey ) 

LlneKey - ReadLlne->key; 

rc = fscanf( fp, "Id ", 4llne_type ); 
if ((rc — EOF) | | (rc — 0) ) 
break; 

) 


/* 

* Read the LlneLlst Info. 

•/ 


while ( llnetype == LISTKEY ) 

< 

ReadLlneLlst - (struct readLlneLlst *) malloct slzeof (struct readLineList) ); 
listPtr - (LlneLlst •) malloc( sizeof(Llne) ); 

fscanf) fp, "%u %u %u lu\n", 

4llstPtr->key, 

4ReadLlneLlst->) lne, 

4ReadLl neLl st->next_l 1st, 

4ReadLlneLlst->prev_llst ); 


ReadLl neLl st ->key 
ReadLl neLl sL-> 1 1 ncl.l st 
ReadLl neLl st->next 
ReadLlneLlstRoot 


- listPtr->key; 

- listPtr; 

- ReadLlneLlstRoot; 

- ReadLineList; 


If ( ReadLlneLlst->key > LlneLlstKey ) 
LlneLlstKey - ReadLlneLlst->key; 

rc = fscanf ( fp, “%d ", 4llne_type ); 
If ( (rc — EOF) | | (rc — 0) ) 
break; 

) 

/* 

* File has been successfully read. 

*/ 


fclose ( fp ) ; 

/* 

* Go through the processllnes array and set the pointers In the 

* symbols to the newly created line structures. 

*/ 


sym *= 0; 

while! processl lnes (sym| . sym ) 

( 


f maim 1 
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symbol « process 1 Ines [sym] . sym; 

symbol->next - locate_line( process_lines [sym] . next ); 
symbol->from = locate_l 1 st ( process_lines[ sym) .from ); 


listPtr->next 
listPtr->prev 
ReadLineLlst = 
) 


“ (struct LlneLlst * ) 
= (struct LlneLlst *) 
ReadLineList->next ; 


locate_list( ReadLineList->next_list ); 
locate list( ReadLineList->prev_l 1st ); 


if ( symbol->symbol_type == IF ) 

1 

symbol->Sym. IfSym. false_llne « locate_line( process_lines [symj .false ); 
symbol->Sym.IfSym.true_line - locate_line( process_llnes [sym) .true ); 

) 


/* 

* Free all the temporary line structures. 
*/ 


sym+ +; 

} 


/* 

* Go through all the Line Segments and update their pointers to the sibling 

* line segments. 

V 


ReadLine » ReadLineRoot ; 
while ( ReadLine !- NULL ) 

( 

readTempLine - ReadLine; 
ReadLine * ReadLlne->next ; 

free ( readTempLine )? 

) 


ReadLIneSeg « ReadLineSegRoot ; 
while ( ReadLIneSeg NULL ) . 

1 

segPtr - ReadLl noSeg-> 1 i neSeg; 

segPcr->next - (struct LineSeg *) locatesegment (ReadLineSeg->next_seg) ; 
segPtr->prev - (struct LineSeg *) locatesegment (ReadLineSeg->prev_seg) ; 

if ( ! (segPtr->next ) ) 

/* 

* last seg in a line - draw arrow 

*/ 

draw_arrows (segPtr, FALSE); 

ReadLIneSeg «* ReadLineSeg->next ; 

) 

/* 

* Go through all the Line Structures and update their pointers. 

*/ 

ReadLine » ReadLineRoot; 
while ( ReadLine !- NULL ) 

{ 

linePtr - ReadLine->line; 

llnePt r->f rom - (struct Symbol *) locate_symbol ( ReadLine->f rom_sym ); 
llnePtr->to - (struct Symbol *) locatesymbol ( ReadLine->to_sym ); 
llnePtr->line - locate_segment ( ReadLine->line_seg ); 
segPtr - 1 inePtr->line; 
while ( segPtr !~ NULL ) 

{ 

set_cell_map_line ( segPtr, linePtr ); 
segPtr = (LineSeg *) segPt r->next; 

) 

ReadLine = ReadLine->next ; 

) 

/• 

* Go through all the LineList structures and update their pointers. 

*/ 


ReadLIneSeg = ReadLineSegRoot; 
while ( ReadLIneSeg !« NULL ) 

( 

readTempSeg * ReadLIneSeg; 

ReadLIneSeg - ReadLineSeg->next ; 
free ( readTempSeg ) ; 

) 

ReadLineLlst - ReadLineListRoot; 
while ( ReadLineLlst !- NULL ) 

I 

readTempI.i st - ReadLineLlst; 

ReadLineLlst - ReadLlneLi st->next ; 
free ( readTempList ); 

) 

/* 

* Bump the pointer/symbol keys to a new, unique value. 

•/ 

SymKey++; 

LineKey*+; 

Li neSegKey++ ; 

LineListKey++; 

ValidElement - TRUE; 

/* 

* removing this symbol may change element status to complete 
*/ 

if ( complete (0, LINES_AND_EXPR) — ERR ) 
upd_status( 1 ); 

else 

upd_status ( 0 ) ; 
return ( OK }; 


ReadLineLlst = ReadLineListRoot; 
while( ReadLineLlst !“ NULL ) 

{ 

listPtr - ReadLineList->lineList; 

listPtr->line = locate_line( ReadLineList->line ); 
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MODULE NAME: read_e lement_st r ( ) 

MODULE FUNCTION: 
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return | OK ) 

****“** ) 


This routine is used to read character strings from Element files. A count of 
the number of characters In the string is read first, and then the specified 
number of characters are read into the string. This method was used so strings 
containing spaces could be written and then read from Element files. The strings 
which this routine read should have been written using save_el ement_st r ( ) . 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 

* * * ****•**••***•< *******/ 


int read_element_st r ( fp, string ) 

FILE * fp; 
char 'string; 


I 

int length; 


/• 

• Road an integer number of characters which indicate the length of this 

• string. 

*/ 

if ( tscanf ( fp, "%d *',4length) — EOF ) 
return { ERR ); 

/• 

• If the string is not zero length and if the user has supplied a valid 

• pointer, then read the specified number of characters into the str pointer 

• supplied. 

V 

if { length ) 

i , ; 

if ( string ) 

1 

if ( f read (string, length, 1, fp) ! - 1 ) 
return ( ERR ) ; 
string [length] - NULL; 

1 

else 

/* 

* The caller did not supply a pointer, must be they don't want the 

* data, skip past the string. 

*/ 


if ( f seek (fp, length, 1 ) ) 
return ( ERR ); 

) 

else if ( string ) 

•string » NULL; 
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/*********** 


********** * < > * 




} 


recordsegment ( line->line ) 


MODULE NAME: record_l ine ( ) 

MODULE FUNCTION: 


This routine Is used to build line structures. These line structures will be 
used to record line information during the saving of Element files to disk. 
These structures contain integer keys Instead of pointers. These keys will be 
used to reconstruct the pointers when the Element file is read from disk. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

•*•******•***.,***********••»»**«««***< >****************.***********************/ 


void record_line( line ) 
Line *line; 


struct saveLlne *tempLine; 
Symbol *sym; 


SaveLlne - SaveLineRoot; 


/* 

* See if this Line structure is already in the linked list. 
*/ 

while ( SaveLlne ! « NULL ) 

1 

if ( SaveLi ne->key ==* line->key ) 
return; 

SaveLlne “ SaveLine->next ; 

I 


/* 

* The current Line structure was not found in the linked list. Add the 

* Line strucutre info to the linked list. 

V 


tempLine - (struct saveLine *) malloc( sizeof (struct saveLine) ); 
tempLine->key = line->key; 

tempLlne->line_seg = line->line->key; 


sym = (Symbol *) line->from; 
tempLine->from - sym->key; 


sym “ (Symbol *) 
tempLine->to 

tempLine->next 

SaveLineRoot 


1 ine->to; 

- sym->key; 

» SaveLineRoot; 

- tempLine; 


* Record this Line 
*/ 



structure's line segements. 



/ 
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MODULE NAME: record_l i st ( ) 

MODULE FUNCTION: 


el se 


tempList->prev_l 1st - 0; 


tempList->next 
SaveLi neLlstRoot 


Save Line LI st Root ; 
tempList ; 


This routine Is used to build line list structures. These line list structures will 
bo used to record line information during the saving of Element flies to disk. 

These structures contain Integer keys instead of pointers. These keys will be 
used to reconstruct the pointers when the Element file is read from disk. 


/* 

* Record this LineList structure's Line structure. 
V 

record line( list->line ); 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* 


void record_llst( list 


) 


/* 

* Save the other LlneLlsts which enter this symbol. 

*/ 

if { list->next ) 

record_list( (LineList •) list->next ); 

If ( list->prev ) 

rccord llst ( (I.ineLlst *) llst->prcv ); 


LineList “list; 


struct saveLineLlst *tempLlst; 
LineList *nextList/ 


SaveLineLlst * SaveLi neLi stRoot ; 

/* 

* See if this LineList structure is already in the linked list. 
V 

while ( SaveLineLlst !■ NULL ) 
t 

if ( SaveLineList->key «-» list->key ) 
return; 

SaveLineLlst - SaveLineLlst->next ; 

) 


/* 

* The current LineList structure was not found in the linked list. Add 

• the LineList strucutre info to the linked list. 

*/ 

tempList - (struct saveLineLlst *) malloc( sizeof (st ruct saveLineLlst) ); 
tempList->key - llst->key; 

tempList->llne ■ list->line->key; 

if ( list->next ) 

i 

nextList « (Lineliist *) list->next; 
tempLlst->next_list - nextLi st->key; 

) 

else 

tempList ->next_l 1st = 0; 

if ( list->prev ) 

1 

nextList - (LineList *) llst->prev; 
tempLi st->prev_l 1st - nextList->key; 

1 
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MODULE NAME: record_segment {) 

MODULE FUNCTION: 


This routine is used to build line segment structures. These line segment 
structures will be used to record line information during the saving of Element 
files to disk. These structures contain integer keys instead of pointers. These 
keys will be used to reconstruct the pointers when the Element file is read from 
di sk . 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


void record__segment { line_seg ) 
LineSeg *line_seg; 

1 

struct saveLineSeg * tempSeg; 
LineSeg *nextSeg; 


tempSeg->prev_seg 

tempSeg->cel l_end_x 
tempSeg->cel l_end_y 
tempSeg->cell_start_x 
tempSeg->cel l_start_y 
tempSeg- >end_x 
tempSeg->end_y 
tempSeq->start x 
tempSeg->start_y 
tempSeg->arrow_x 
tempSeg->arrow_y 
tempSeg->orientat ion 

tempSeg->next 
SaveLi neSegRoot 


1 1 ne_seg -> ce 1 1 _e nd_x ; 
line_seg->cell_end_y; 
line _seg->cell_start_x; 
line_seg->cell_start_y; 
1 i ne_seg->end_x; 

1 i ne_seg->end_y; 

1 i ne_seg->start_x; 

1 i ne_seg->start_y; 
li ne_seg->arrow_x; 

1 i ne_seg->arrow_y; 
line_seg->orientat ion; 

SaveLi neSegRoot; 
tempSeg; 


Record the other segments which make up this line. 


if ( line_seg->next ) 

record_segment { (LineSeg 


) line_seg->next ); 


SaveLineSeg ° SaveLineSegRoot; 

/* 

* See if this Line segment is already in the linked list. 

V 

while ( SaveLineSeg !“ NULL > 

{ 

if ( SaveLi neSeg->key -- 1 lne_seg->key ) 
return; 

SaveLineSeg » SaveLi neSeg->next ; 

\ 

/* 

* The current Line segment was not found in the linked list. Add the 

* Line segment info to the linked list. 

*/ 


tempSeg *» (struct saveLineSeg *) malloc( sizeof (struct saveLineSeg) ); 
tempSeg->key - llne_seg->key ; 

if ( 1 i ne_seg->next ) 

1 

nextSeg «* (LineSeg 
tempSeg ->next_seg 
} 

else 

tempSeg->next_seg 

if { 1 ine_seg->prev ) 

( 

nextSeg = (LineSeg * ) 1 1 ne_seg->prev; 
tempSeg->prev_seg « next Seg->key; 

) 


* ) li ne_seg->next ; 
* nextSeg->key; 
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MODULE NAME: reinit_element_vars {) 

MODULE FUNCTION: 

This routine is used to clear/free Element file information when the user changes 
Element files. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void reinit element varsO 
I 

t ree cel lmap_symbol s () ; 
f ree_cel lmap_l lnel ists () ; 
f ree_l ines () ; 

1 ni t_element_vars () ; 

upd_pos_pa ne 1 ( NO_CHANGE ); 

upd_mode_panel () ; 


MODULE NAME: save _curr_element {) 

MODULE FUNCTION: 

This routine is called when the user selects Save Element. This routine will 
make sure the Element needs to be saved, and then will call the proper routine 
to save the Element file. 


• REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 
» 

*•«•■•••■•••••**••******••***••* ***«*»**< — >•«••..»•«**•••••• * *•*/ 

void save_curr_el ement ( ) 

1 

if ( SaveNeeded it (! Va 1 1 dE lement ) ) 

I 

userack (“Can not save changes, a valid Element file was not created/seloctod*) ; 
return; 

I 

if ( ask ("Do you want to save your changes to the current element file?”) 1 
I 

save_el ement _f 1 1 e (1 ; 
if ( ValldComp ) 

update_comp_file ( GCompFlle, CompPurpose, RootElement, NULL, NULL ); 

el se 

( 

userack (“Val ldComp not sot during save_curr_clcmcnt") ; 
elog (1, “ValldComp not set during save_curr_element“) ; 

) 

1 

1 
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* MODULE NAME: save_element_f lie () 

* 

* MODULE FUNCTION: 

* This routine will save the currently active Element file to disk. 


element_file.c 


* Write the header. 

*/ 

fpri nt f ( fp, "%d ", ElementType) ; 
fprint f (fp, "%s ", CreateDate); 
fprint f (fp, "%s ", UpdateDate); 
fprint f (fp, "%s ", UpdateTime); 
save element_str( fp. Author ); 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


/* 

* Write this element's purpose in life. 

*/ 

save_element_str ( fp, El ementPurpose ) ,* 


void sa ve_element_f 1 le { ) 


FILE 

*fp; 

int 

i, 


sym, 

zoomed 

time t 

clock; 

/* 



* Write the palette items' back and foreground colors 

*/ 

for ( i=0; i < NUM_PALETTE; i+* ) 

1 

fprlntf( fp, "%lu ", get_my_foreground (1 ) ); 
fprintf( fp, "%lu ", get my background (i ) ); 

1 

fprint f ( f p, " I \ n " ) ; 


* If we are zoomed out, zoom back in so as to restore the correct 


* sizes of 

the symbols and lines. 


* Initialize the 

save line 

*/ 


- 

•/ 



If ( Zoomed ] 

* 


SaveLineRoot 

= 

NULL; 

{ 



Sa ve Ll ne Li s t Root 

- 

NULL; 

zoomed - 

1? 


Sa veLi neSegRoot 

= 

NULL; 

zoom) 1 ) 
1 

/ 


Save Line 


NULL; 

else 



SaveLineLi st 

* 

NULL; 

zoomed " 

0; 


Sa veLi neSeg 

- 

NULL; 


/* 

* Try to open the element file. 
V 


/* 

• Save the symbols. 
*/ 


/‘DEBUG* / 

elog (3, "save_element_f lie: GElementFile is %s", GElementFile); 

if ( ! (fp - fopen (GElement File, "w" ) ) ) 

I 

user__ack ("Unable to open the Element file for writing"); 

elog (1, "Unable to open the Element file: %s for writ ing", GElementFile) ; 

return; 

) 

/* 

* Update the Update date field date string in the date portion of the 

* file. 

*/ 

clock - time( NULL ); 

st rf t Ime ( UpdateDate, 11, "%m/ld/% Y", localt ime Uclock) ); 
strf t ime ( UpdateTime, 9, "%T", localt ime (sclock ) ); 



for ( sym^O; sym<MAX_SYMBOLS; sym++ ) 

( 

/* 

* Make sure this symbol map entry is active. 

*/ 

if ( Symbol_Map{ sym) . symbol_type ! = NONE ) 

( 

fprint f( fp, "%d % u %d %d %d %d %d %d %d %d %d ", 
Symbol_Map(sym] . symbol_type, 
Symbol_Map(sym) .key, 

Symbol_Map (sym) . symbol_generated, 
Symbol_Map(syml . cell_height, 
Symbol_Maplsym] . cell_width. 

Symbol _Map (sym j . cel l_x. 

Symbol Map (sym | . cel l_y , 

Symbol_Map [sym| .height, 
Symbol_Map[sym] .width, 
Symbol_Map(sym) . ulcx. 
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Symbol _Map ( sym| . ul cy) ; 

1£ 1 Symbol_Map)sym) . font — teeny_font ) 
fprintf ( fp, "td ", 0) ; 

else If ( Symbol_Map)sym| . font ■■ small_font ) 
fprintf ( fp, "%d ", 1) ; 

else If ( Symbol_Map [sym) . font — blg_font ) 
fprlntff fp, "%d ", 2) ; 

savo__c lament str( Ip, Symbol Map | sym | . text ); 


/* 

* Save the “next" pointer. 
V 


If ( Symbo l_Map l sym| . next !- NULL ) 

1 

fprlntf( fp, " % u ", Symbol_Map[syml .next->key ); 
record_line( Symbol_Map(sym| .next ); 

1 

else 

fprintf! fp, " tu ", 0 ) ; 


/• 

* Save the "from" pointer. 

*/ 


If ( Symbol_Map(sym| . from !- NULL ) 

! 

fprintf! fp, "tu ”, SymbolMaplsym] . from->key ) ; 
record_llst( SymbolMaplsym) .from ); 

) 

else 

fprintf ( fp, "tu ", 0 ) ; 


Symbol _Map(sym] . Sym. I f Sym. fal se_y, 
Symbol_Map (sym) .Sym. I fSym. true_x, 
Symbol_Map|sym) . Sym.IfSym.truey ) ; 


/* 

* Save the text fields. 

*/ 

save element str( fp, Symbol_Map( sym) . Sym. I f Sym. 1 ogl ca l_expr ); 
savee lementstr ( fp. Symbol Map) sym) . Sym. I f Sym. comp_oxpr ); 
save_element_str ( fp, Symbol_Map[sym) . Sym. I f Sym. comment ) ,* 

) 

/* 

* Save the SET symbol's specific fields. 

*/ 

else If ( Symbol_Map|sym) ,symbol_type SET) 

! 

save_element_str ( fp, Symbol_Map)sym) . Sym. IfSym. logl cal_oxpr ); 
saveelementstr ( fp, SymbolMaplsym) . Sym. If Sym. compexpr ) ; 
save_element_str ( fp, Symbol__Map[sym) . Sym. IfSym. comment ); 

) 

else If ( (Symbol_Map[sym| ,symbol_type •- GOTO) I I 
(Symbol^Map Isym) . symbol_type »= STOP) !( 

(Symbol_Mapisym| .symboltype -- START) ) 

I 

fprintf! fp, "td". Symbol Map [ sym) . Sym . E lcmSym . comp_t ypo ); 

I 


fprintf! fp, "\n" ) ; 
1 


/' 

* Depending on the symbol type, save the other fields. 

*/ 


If ( Symbol_Map(sym| ,symbol_type -■ IF) 
I 


/* 

* Save the line Information that was generated while saving the symbols. 

* 

• Save the list of line segments. Free the line segment structure 

* after writing its contents to the file. 

*/ 


/• 

* Save the IF symbol's TRUE and FALSE line pointers. 

;/ 


if ( Symbol_Maplsym) .Sym. I fSym. f al se_l ine NULL ) 

1 

fprintf ( fp, "%u ", Symbol_Map [sym) .Sym. IfSym. fal se_line-> key ); 
record_lloe( Symbo 1 _Ma p [ sym) .Sym. I fSym. false_l ine ); 

) 

else 

fprintf ( fp, "%u ", 0 ); 

If ( Symbol_Map(sym) .Sym. IfSym.true_line !« NULL ) 

1 

fprintf ( fp, "%u ", Symbol_Map[sym] .Sym. If Sym. true_llne->key ); 
record_line( Symbol_Map[ sym) .Sym. I fSym.true_line ); 

) 

el se 

fprintf ( fp, "%u ", 0 ) ; 

fprintf ( fp, -%d %d %d %d ", 

Symbol_Map[sym) . Sym. If Sym. falsex, 


SaveLineSeg = SaveLi neSegRoot ; 
while! SaveLineSeg !- NULL ) 

{ 

fprintf ( fp, *%d ", SEGMENTJCEY ); 

fprintf [ fp, "%u % u %u %d %d %d %d %d %d *d %d %d %d %d\n", 
SaveLi neSeg->key, 

SaveLi neSeg->next_seg, 

SaveLi neSeg->prev_seg, 

SaveLineSeg->cel l_end_x, 

SaveLineSeg->cell_end_y, 

SaveLi neSeg->cel l_start_x, 

SaveLineSeg->cel l_st art_y, 

SaveLi neSeg->end_x, 

SaveLi neSeg->end_y , 

SaveLi neSeg->start_x, 

SaveLi neSeg->start_y, 

SaveLi neSeg->arrow_x, 

SaveLi neSeg->arrow_y, 

SaveLineSeg->orientatlon ) ; 
tempLineSeg - SaveLineSeg; 

SaveLineSeg - SaveLineSeg->next; 
f ree ( tempLineSeg ); 
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* Save the list of Lines. 

*/ 
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m 


* If we were zoomed out, zoom back out so that work area is undisturbed 

* by save. 

*/ 


SaveLine - SaveLlneRoot; 

while ( SaveLine !- NULL ) 

1 

fprlntfl tp, "»d ”, LINE_KEY ); 
fprlntff fp, "%u %u %u %u\n“, 
SaveLine->key, 

SaveLlne-sllneseg, 

SaveLine->from, 

SaveLlne->to ); 
tempLlne - SaveLine; 

SaveLine - Savcl.i ne->next ; 
free! tempLlne ); 

I 

/* 

* Save the list of LineList information. 

*/ 

SaveLlneLlst - SaveLl net 1 st Root ; 

while ( SaveLlneLlst !- NULL ) 

t 

fprlntfl fp, " %d ", LIST_KEY ); 
fprlntfl fp, "»u % u %u %u\n" , 
SaveLlneLlst->key, 
SaveLlneLlst->llne, 

SaveLl neLl st ->next_l 1st, 
SaveLlneLlst->prev_llst ); 
tempLlneLlst - SaveLlneLlst; 
SaveLlneLlst - SaveLlneList->next; 
free! tempLlneLlst ); 

I 

/* 

* Close the element file. 

*/ 


If ( zoomed ) 
zoom 1 2 ) ; 

return; 

I 


f close! fp ) ; 

/* 

* Mark the file as saved. 

*/ 

upd_pos_panel ( NO_CHANGE ); 

SaveNeeded - FALSE; 

/• 

* Update this Element's Installed flag in the symbol table so we know it 

* needs to be reinstalled. 

*/ 

set_sym_attribs ( ElementFlle, NOTHIN STALLED, False ); 


/* 

* Update this element's Comp file. 

*/ 


update_comp_flle ( GCompFlle, NULL, 



NULL, NULL, 


NULL ) ; 





91/08/29 


element_file.c 


MODULE NAME: save_element_str () 


MODULE FUNCTION: 

This routine Is used to write character strings to Element disk files. A count of 
the number of characters In the string is first written to the file. This count 
Is necessary because the Element file strings often contain spaces. The strings 
written with this routine should be read with: read_element_st r O . 


REVISION HISTORY: 

craphlcal Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void savc_element_str ( fp, string ) 

FILE * fp; 
char ‘string; 


lnt length; 


If ( string !- NULL ) 

I 

length * strlenl string ); 
fprlntfl Ip, "Id ", length ); 
fwrlte ( string, length, 1, fp ); 
fprlntfl fp, " " ) ; 


fprlntfl fp, "Id ", 0 ); 


fe:9l/08/29'.kl| 

k0|:22:0$l|| 


FILE NAME: element file.h 


element_file.h 

******** ,. 

struct saveLineList 


FILE FUNCTION: 

This file contains the constants and variable declarations used in element_f i 1 e. c 
to maintain Element files. 


{ 

unsigned int 


key, 

line, 

nextl 1st, 
prev_l 1st; 


SPECIFICATION DOCUMENTS: 


struct saveLineList ‘next; 

); 


/home/ pro ject /3531 /Docu/GCB. spec.doc 


FILE MODULES: 

N/A 

A************************************** 


/* 

* Constants. 

•/ 


•define C8R_D0NE 1 
•define CBR_CANCEL 2 
•define CBRJTYPE 3 
•define CBR_DELETE A 

•define HGT_PURPOSE 100 
•define MAX_FILES 150 
•define WID~PURPOSE 271 

•define LINES_AND_EXPR 1 
•define JUST_LINES 2 
•define JUST_EXPR 3 

•define NO_BEGIN -2 
•define NO END -3 


/* 

* Structure definitions. Most of these structures are used to build linked lists 

* to record lirje information to disk files. 

*/ 

struct proc_line 

t 

Symbol 

unsigned int 


); 

struct saveLine 
t 

unsigned int 


•sym; 
false, 
from, 
next , 
true; 


key, 

line_seg, 

from, 

to? 


struct saveLlneScg 

i 

unsigned int key, 

next_seg, 

prevseg; 

int cell end_x, 

cell_end_y, 

/ cel l_start_x, 

cellstarty, 
endx, 
end_y, 
startx, 
st art_y, 
arrow_x, 
arrowy, 
orientat ion; 

struct saveLineSeg *next; 

i; 


/* 

* Save line information linked list pointers. 

V 

struct saveLine ‘tempLine, 

•SaveLine, 

•SaveLlneRoot; 

struct saveLineList * tempLineLlst , 
•SaveLineList, 

• SaveLineList Root; 

struct saveLineSeg *tempLineSeg, 

•SaveLineSeg, 

•SaveLlneSegRoot; 

/* 

• Read line information structures. 

V 


struct readLine 

t 

unsigned int key, 

1 i ne_seg, 
f rom_sym, 
to|_synv; 

Line *l : ine; 

struct readLine *next; 


struct readLineSeg 

{ 



struct saveLine 


next ; 




* 1 ocate_symbol {) ; 

get_element_self ca 11s () , 
load_element_l 1st 0 » 
read_element_f 1 le {) , 
read_element_str () ; 

cbr_cre_element () , 
cbr_sel_element 0 , 
inlt_element_vars ( ) , 
record 1 1st () , 
recordsegment () , 
relnlt element vars 0 , 
save^curr element U , 
save_elemcnt_f lie {) , 
save element str 0 ; 




FILE NAME: expr_list.c 

FILE FUNCTION: 

Contains the routines which load the User Define Function selection list 
is used during the building of expressions. 


SPECIFICATION DOCUMENTS: 

/home /project/ 35 31 /Docu/GCB. spec .doc 


* FILE MODULES: 

* load_fn_list () - load the user defined function selection list 

* valid_fn_name {) - check for a user defined function object file name 

* 

**************************************** * **************************** 

•include <stdio.h> 

•include <dlrent.h> 

•include <X1 1 / Intrinsic. h> 

•include <X1 1/Shel 1 . h> 

•include <Xm/Xm.h> 

•include "gcb.h" 

• include "widgets. h" 

•include "element file.h" 






return ( ERR J ; 
i 
i 

/* 

* .If entries exists, sort them and then Insert them Into the selection 

* list. 

*/ 

if ( cnt > 0 ) 

( 

qsort ( selLlst, cnt, MAX_NAME, strcmp ); 
for ( 1-0; Kent; 1 + + ) 
f 

tos - XinSI. rl ngCre.it c ( selUsl.|i|, XmSTRINCUEEAULT CHARSET ); 
XmLl stAddl tem ( list, Lcs, ltl ); 

XmStrlngFree ( tes ); 

I 

1 


return ( OK ) ; 


exprjist.c 


MODULE NAME: va 1 id_fn_name 0 

MODULE FUNCTION: 

This routine determines if a filename is a valid User Defined Function object 
f i lename. 

This routine could be made simpler using strncmpO, but it would be slower than 
using the local character pointer. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


val id_f n_name ( st 

char 

*st r; 

char 

♦ptr; 

int 

len; 

len - 

strlen! str 

ptr - 

st r; 


/* 

* First make sure the name starts with a "FN_". All user defined functions 

* must start with a "FN_". 

V 

if ( *pt r != ' F' ) 
return ( ERR ); 

pt r++; 

if ( *ptr != 'N' ) 
return! ERR ); 

pt r++; 

if ( *ptr ! * ) 

return! ERR ); 

/* 

* Now make sure the extension is " .o" 

*/ 

ptr = sstr (len-1 ] ; 

if ( *ptr !* 'o' ) 
return! ERR ); 
ptr—; 

if ( *ptr !« ' .' ) 
return ! ERR ) ; 


I 


return! OK ); 


!: 91/08/29 ; 
f 09:43:49 

! K-. v. v.v.*: v.\-x 

^* ******* * ** * * * * 




expr_menu.c 



************ 


******************** *< > ************************ 

* FILE NAME: expr_menu.c 

* FILE FUNCTION: 

* 

* This file contains the routines which create the math menu for if/set stmt input 

* 

* 

* SPECIFICATION DOCUMENTS: 

* 

* /home /pro ject/ 3531 /Docu/GCB. spec. doc 


FILE MODULES: 

bu i 1 d_de f_f n_l nput _popup ( ) 
bui i d_local_lnput () 
bulld_str_popup() 
build_unknown_type_popup () 
bui ld_var_input_popup ( ) 
cbrmat^tgls () 
cbr_def fn <) 
cbr_expr_lnput () 
cbr_expr_num 0 
do_parse () 
lnlt_inputs (> 
lnvalidate^buttons () 
setstate {) 

setup_logic_type_popup () 
setup_mathjnenu () 

****************************** 


- builds the "Select a User Defined Function" popup. 

- builds popup to declare or select variables. 

- builds the popup to receive string variable input. 

- builds popup to receive types of undeclared vars. 

- builds the popup to receive number value input. 

- processes the scalar/matrix/vector toggles. 

- Puts user-defined function name in expression string. 

- called when user selects a math/logic button. 

- set text string to user's number choice 

- set globals, parse expression, reset input buttons 

- initializes input buttons based on expression type 

- sets buttons (in)active based on parser state. 

- gets parse state from yacc, sets expression buttons 

- sets toggles and text fields for variable input 

- builds the logical expression window 


* <- >* 




^***»************************************ < — > ********* 

MODULE NAME: bui ld_def_fn_i nput _popup {) 

MODULE FUNCTION: 

This routine builds the "Select a User Defined Function" popup. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


****************** 


void build_def_fn_input_popup ( parent ) 
Widget parent; 


1 nt 
Arg 

XmString 


args 16) ; 
cstrl , 
cstr2, 
cst r3; 


dlg_def_fn * cr_popup{ NULLS, parent, "Defined Function Input" ); 

cstrl =• XmSt ringCreate ( "Functions", XmSTRING_DEFAULT_CHARSET ); 
cstr2 = XmStringCreate ( "Cancel", XmSTRING DEFAULT CHARSET ); 
cstr3 * XmStringCreate ( "Done", XmSTRINGDEFAULTCHARSET ); 


#include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio. h> 

<X11/ Intrinsic. h> 
<Xll/StringDefs.h> 
<Xm/Xm. h> 

<Xm/MwmUt i 1 . h> 
<Xm/SelectioB. h> 
<Xm/Form. h> 


♦include 

♦Include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦Include 


"gcb. h" 
"widgets. h" 
"menu.h" 

"symbol .h" 

"gcb_ parse. h" 
"next_input s. h" 
"term_set .h" 
"constants. h" 
"expr_menu. h" 


/* 

* Build the selection box from which the user will select the "user defined 

* function." The "OK" button is usually the left-most button in a selection 

* box, but we want it to be in the middle because the "CANCEL" button is 

* always the left-most button in the GCB. 

*/ 


0 ; 


XtSetArg ( args(n), 

XtSetArg( args[n) 

XtSetArg { args(n) 

XtSetArg ( args [n] 

XtSetArg { args[n), XmNcancelCallback, 
XtSetArg ( argsfnj, XmNhelpCallback, 


XmNlistLabelString, cstrl); n++; 
XmNokLabelString, cstr2) ; n++; 
XmNcancelLabelString, cstr3) ; n+ + ; 

XmNokCallback, def_fn_cancel_code) ; n++; 

def fn_done_code) ; n+ + ; 
def fnhelpcode) ; n++; 

selbxdeff n * XmCreateSelect ionBox ( dlg_def_fn, NULLS, args, n ); 
XtManageChild ( sel_bx_def_f n ); 


txt def fn = XmSelect ionBoxGetChild ( sel_bx_def_fn, XmDI ALOG_TEXT ); 


XmSt ringFree ( cstrl ) 
XmStringFree ( cstr2 ) 
XmSt ringFree { cstr3 ) 
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MODULE NAME: bu 1 1 d_l oca 1J nput ( ) 

MODULE FUNCTION: 



tgl var type_int 

- 

cr_toggle { 

NULLS, 

rb_var_type. 

"Int", 

NULL, 

1 , 

1 

This routine builds the popup to declare new variables or select existing ones. 

tgl_var_type rea 1 

- 

cr_toggle ( 

NULLS, 

rb_var_type. 

"float", 

NULL, 

1 , 

1 


tgl_var type_string 

- 

cr toggle ( 

NULLS, 

rb_va retype, 

"String", 

NULL, 

1 , 

1 


tgl var typeunsigned 

- 

cr_toggle ( 

NULLS, 

rb_var_type, 

"Unsigned", 

NULL, 

1 , 

1 

REVISION HISTORY: 

tgl_var_type_short 

- 

cr_toggle ( 

NULLS, 

rb_var_type. 

•Short", 

NULL, 

1 , 

1 


tgl_var_type_double 

- 

cr_toggle ( 

NULLS, 

rb_var_type. 

"Double", 

NULL, 

1 , 

1 


Graphical Comp Builder - MOTIF Release 1.0 

Release 1.02 


void bu i ld_loca 1_1 nput { parent ) 
Widget parent; 


07/17/91 

08/28/91 


I 


Arg args(10); 

XmString tcs; 

Widget list; 

int n - 0; 


dlg_logic_type - crpopupl NULLS, parent 

, "Variable Selector" ) 

• 

txt_matdlm_x 

- crtext ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i. 

2 ) 

FormW - cr form! NULLS, dig logic type. 

NULL, NULL ) ; 


txtmatdimy 

- cr text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i, 

2 ) 

set_attrlbs< FORM, 

FormW, 550, 350, XmRESIZE NONE 1; 


txt matdim_3 

- cr_text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE/ 

i. 

2 ) 





txt_matdlm_4 

- cr text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i. 

2 ) 

tcs * XmStrlngLtoRCreate ( -variables". 

XmSTRING DEFAULT CHARSET ); 

txt_matelm_x 

- cr text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i. 

2 ) 





txt_matelm_y 

“ cr_text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i. 

2 ) 

XtSetArg( arqs(n), 

XmNl 1 st Label St rl ng, 

tcs) ; 

n* t; 

txt_matelm_3 

- cr text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i, 

2 ) 

XtSetArg( args(n), 

XmNtextColumns, 

40); 

n*+; 

txt_matelm_4 

» cr text ( 

NULLS, 

FormW, 

NULL, 

NULL, 

NULLS, 

FALSE, 

i. 

2 ) 

XtSetArg( args(n), 

XmNoX Cal lback, 

var_input_done_code) ; 

n+ + ; 











XtSetArgt args[n), 

XmN cancel Cal lback, 

var_lnput_cancel_code) ; 

n+ + ; 

cr^label ( NULLS, FormW, 

"Matrix Size" 

, 

0, 56 

IGNORE, 60, 

IGNORE ) 

XtSetArg( argsfnj. 

XmNhelpCallback, 

def_fn help_code); 

nH; 

cr label ( NULLS, FormW, 

"Matrix Element", 

0, 66 

IGNORE, 60, 

IGNORE ) 

sel bx v,ir_typo - 

XmCreateSelect lonBox ( 

FormW, NULLS, args, n ) 

; 











XtManageChll d { sel 

_bx_var_Cype ) ; 



cr_scparator 

NULLS, FormW, 80, 

IGNORE, 1, 

99 ) ; 





XmSt ri ngFree ( tcs 

) ; 



DoneW - cr_ 

command! NULLS, FormW, " 

Done" , 

cbr_var_lnput_done 

, DONE ) ; 


Replace the automatic list callback with cbr_var_choose so we can 
prune the var name from list line before installing it in the 
text field. 


txt__va r_name - XmSelect ionBoxGetChild ( selbxv a retype, XmDIALOGJTEXT ); 

list - XmSelect ionBoxGetCh i Id ( sel _bx_var_type, XmDI ALOGLIST ); 

XtSetArg( args(0), XmNbrowseSelect ionCal lback, var_selc_code ); 

XtSetValues! list, args, 1 ); 

XtUnmanageChi Id ( XmSelectionBoxGetChild (sel_bx_var_type, XmDIALOG_DEFAULT_BUTTON) ); 
XtUnmanageChild ( XmSel ect IonBoxGetChild (sel_bx_var_t ype, XmDIALOG CANCEL BUTTON) ); 
XtUnmanageChi Id ! XmSel ect ionBoxGetChi Id (selbxvart ype, XmDI ALOG_HELF_BUTTON) ); 
XtUnmanageChi id { XmSelect IonBoxGetChi Id (sel_bx_var_t ype, XmDIALOG_SEPARATOR) ); 

cr_label( NULLS, FormW, “Data Type-, 0, 7, IGNORE, 73, IGNORE); 
cr_separat or ( NULLS, FormW, 13, IGNORE, 60, 99 ); 


Xt SetArg ( args[l), XmNpacking, XmPACK_COLUMN ); 

XtSetArg! args [2], XmNnumColumns, 2 ); 

XtSetArg( args [3], XmNradioBehavior, True ); 

rbvartype- (Widget) XmCreateRadloBox ( FormW, NULLS, args, 4 ); 
XtManageChlld ( rb_var_type ); 


XLAddCal lback ( 
Xt AddCal lback ( 
Xt AddCal lback ( 
Xt AddCal lback ( 
Xt AddCal lback ( 
Xt AddCal lback ( 


tgl_var_type_int, XmNarmCal lback, cbr__va retype, INTEGER); 

tgl_var_type_real , XmNarmCal lback, cbr_v a retype, FLOAT); 
tgl_var_type_strlng, XmNarmCal lback, cbr_var_type, CHAR); 
tgl_var_type_unsigned, XmNarmCal lback, cbr_var_type, UNSIGNED); 
tgl_var_type_short, XmNarmCal lback, cbr_var_type, SHORT); 
tgl_var_type_double, XmNarmCal lback, cbr_var_t ype, DOUBLE); 


crlabel ( NULLS, FormW, “Scalar/Matrix/Vector", 
cr_separator ( NULLS, FormW, 44, IGNORE, 60, 99 ); 


0, 38, IGNORE, 68, IGNORE ); 


rb_isit_mat = cr_radlo_box ( NULLS, FormW, XmHORIZONTAL ); 

tgl_isnt_mat « Ncr_toggle( NULLS, rb_lslt_mat , "Scalar - , cbr_mat_tgl s, SCAI,, 0) 

tgl_is_mat « Ncr_toggle( NULLS, rb_is It jnat, "Matrix/Vector", cbr_mat_tgl s, MAT, 0) 


CancelW = cr command! NULLS, FormW, "Cancel", cbr var Input done, CANCEL ); 


HelpW - cr_command< NULLS, FormW, "Help", cbr_help, 


VARIABLE HELP ); 


set 

position ( 

rb_ 

var_t ype. 

12, 

IGNORE, 

60, 

IGNORE) 

set 

position ( 

rb_ 

isit mat. 

45, 

IGNORE, 

60, 

IGNORE) 

set 

position ( 

txt 

jnatdim_ 

X, 

55, 

IGNORE, 

78, 

IGNORE) 

set 

position ( 

txt 

_jnatdira_ 

y» 

55, 

IGNORE, 

83, 

IGNORE) 

set 

position ( 

txt 

_matdira_ 

3, 

55, 

IGNORE, 

88, 

IGNORE) 

set 

position ( 

txt 

_matdim_ 

4 t 

55, 

IGNORE, 

93, 

IGNORE) 

set 

position ( 

txt 

_ma t e 1 m_ 

x. 

65, 

IGNORE, 

78, 

IGNORE) 

set 

position ( 

txt 

_mate lm_ 

y# 

65, 

IGNORE, 

83, 

IGNORE) 

set 

position ( 

txt 

_matelm_ 

3, 

65, 

IGNORE, 

88, 

IGNORE) 

set 

position { 

txt 

matelm 

4, 

65, 

IGNORE, 

93, 

IGNORE) 

set 

position ( 

CancelW, 


89, 

IGNORE, 

5, 

IGNORE) 

set 

position ( 

DoneW, 


89, 

IGNORE, 

40, 

IGNORE) 

set 

position ( 

HelpW, 


89, 

IGNORE, 

75, 

IGNORE) 


XfSetArg( args[0), XmNor ientat Ion, 


XmHORIZONTAL ); 
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* *< >* 


MODULE NAME: bui ld_st r_popup ( ) 


Arg args(5); 
dlg_unknown_type 


cr_popup( NULLS, parent, "Data Type Declaration" ); 


* MODULE FUNCTION: 

* 

* This routine builds the popup to receive string variable input. 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 

**************************************** < > * ft**************************************/ 

void build_str_popup { parent ) 

Widget parent; 


{ 

dlg_str_input = cr_popup( NULLS, parent, “String Input" ); 

FormW - cr_form( NULLS, dlg_st r_input, NULL, NULL ); 
set_at tribs ( FORM, FormW, 500, 125, XmRESIZE_NONE ); 


FormW ** cr_form( NULLS, dlg_unknown_type, NULL, NULL ); 
set_attribs ( FORM, FormW, 650, 350, XmRESIZE_NONE ); 


cr_label { NULLS, FormW, "Undeclared Variables", 0, 5, IGNORE, 5, IGNORE ); 
crlabel ( NULLS, FormW, "Data Types", 0, 10, IGNORE, 72, IGNORE ); 

crseparator ( NULLS, FormW, 12, IGNORE, 5, 27 ); 
cr_separator ( NULLS, FormW, 15, IGNORE, 60, 97 ); 

rb_unknown_type_name = crradiobox ( NULLS, FormW, XmVERTICAL ); 
setposlt ion ( rb_unknown_type_name, 17, IGNORE, 10, IGNORE); 


tgl_unknown_type_name(0J = Ncr_toggle ( NULLS, 
cbrunknowntypeselectname, 0, 0); 
tgl_unknown_type_name( 1 ) - Ncr_toggle ( NULLS, 
cbr_unknown_type_select_name, 1, 1); 
tgl_unknown_type_name[2) « Ncr toggle { NULLS, 
cbrunknowntypeselectname, 2, 2); 
tgl_unknown_type_name[3) = Ncr_toggle ( NULLS, 
cbrunknown type_select_name, 3, 3) ; 
tglunknowntypename [ 4 ) - Ncr_toggle ( NULLS, 
cbr_unknown_type_select_name, 4, 4); 


rb_unknown_type_name, NULLS, 
rb_unknown_type_name, NULLS, 
rb_unknown_type_name, NULLS, 
rb_unknown_type_name, NULLS, 
rb_unknown_type_name, NULLS, 


cr_label( NULLS, FormW, “Enter a string", 0, 3, 20, 5, 95 ); 

txt str_lnput - cr_text{ NULLS, FormW, NULL, NULL, NULLS, FALSE, I, 60 ); 

cr^separator ( NULLS, FormW, 70, IGNORE, 1, 99 ); 


CancelW - cr_command ( NULLS, 

FormW, 

"Cancel 

", cbr_str_lnput_done. 

CANCEL 

I; 

DoneW - cr_command ( NULLS, 

FormW, 

"Done", 

cbrstrlnputdone, 

DONE 

); 

HelpW - cr_command ( NULLS, 

FormW, 

"Help", 

cbrhelp. 

STRING^ 

HELP 

set posit ion ( txt_str input, 

30, 

IGNORE, 

15, IGNORE); 



set position ( CancelW, 

80, 

IGNORE, 

5, IGNORE); 



set position ( DoneW, 

80, 

IGNORE, 

40, IGNORE); 



setposlt ion ( HelpW, 

80, 

IGNORE, 

75, IGNORE); 




) 

/****************************************^ >**************************************** 

* 

* MODULE NAME: bul ld_unknown type popup () 

* MODULE FUNCTION: 

* This routine builds the popup to receive the types of undeclared variables. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 

* 

**************************************** < >****************************************/ 

void build_unknown_type popup (parent) 


lbl 

unknowntypename (0) 

- cr_ 

label ( 

NULLS, 

Fo rmW, 

NULLS, 

0, 

20, 

IGNORE, 

28, 

IGNORE) 

lbl" 

unknown type name ( 1 ) 

“ cr _ 

label ( 

NULLS, 

FormW, 

NULLS, 

0, 

30, 

IGNORE, 

28, 

IGNORE) 

lbl 

unknowntype name( 2) 

- cr_ 

label ( 

NULLS, 

Fo rmW, 

NULLS, 

0, 

41, 

IGNORE, 

28, 

IGNORE) 

lbl' 

unknowntypename [ 3| 

- cr_ 

label ( 

NULLS, 

FormW, 

NULLS, 

0, 

51, 

IGNORE, 

28, 

IGNORE) 

lbl' 

unknowntypename [ 4 ) 

“ cr_ 

label ( 

NULLS, 

FormW, 

NULLS, 

0, 

62, 

IGNORE, 

28, 

IGNORE) 


Xt SetArg ( argslO), XmNor ientat ion, XmHORIZONTAL ); 

Xt Set Arg { args|l), XmNpacking, XmPACK COLUMN ); 

XtSetArg( args[2], XmNnumColumns, 2 ); 

XtSetArg( args[3), XmNradioBehavior, True ); 

rb_unknown_type_type=- (Widget ) XmCreateRadioBox (FormW, NULLS, args, 4); 

XtManageChi 1 d ( rb unknown type type) ; 

set posl 1 1 on ( rbunknown type type, 17, IGNORE, 60, IGNORE); 

tgl_unknown_type_int - Ncr_toggle( NULLS, rb_unknown_type_type, "Int", 
cbr_unknown_type_select_type, 0, 0); 

tgl_unknown_type_f loat - Ncr_toggle (NULLS, rb_unknown_type_type, “Float", 
cbr_unknown_type_select_type, 1, 1); 

tgl_unknown_type_double - Ncr_toggle (NULLS, rb_unknown_type_type, "Double", 
cbr_unknown_type_s elect type, 2, 2); 

tgl_unknown_type_short = Ncr toggle (NULLS, rb_unknown_type_type, "Short", 
cbr_unknown_type_select_type, 3, 3); 

tgl_unknown_type_unsigned « Ncr_toggle (NULLS, rb_unknown_type_type, "Unsigned", 
cbr unknowntypeselecttype, 4, 4); 

tgl_unknown_type_string - Ncr_toggle (NULLS, rb_unknown_type_type, "String", 
cbrunknowntypeselecttype, 5, 5) ; 

cr_label ( NULLS, FormW, "Matrix?", 0, 42, IGNORE, 62, IGNORE); 

rb_unknown_isit_mat «= cr radio box ( NULLS, FormW, XmHORIZONTAL ); 

setposition ( rb_unknown_isit_mat, 40, IGNORE, 75, IGNORE); 

tgl_unknown_is_mat = Ncr_toggle ( NULLS, rb_unknown_isit_mat, "Yes", 
cbrunknownismat , 0, 0); 

tgl_unknown_isnt_mat - Ncr_toggle ( NULLS, rb_unknown_isit_mat, "No", 
cbr__unknown_is_mat , 1, 1); 


Widget parent; 



txt_mat_numrows 
txt mat numcols 


cr_text ( NULLS, FormW, NULL, NULL, NULLS, 
cr_text ( NULLS, FormW, NULL, NULL, NULLS, 


FALSE, 1, 2) ; 
FALSE, 1, 2); 




f 
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txt_mat_dim3 ■ cr_text ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 

txt_mat_dlm4 - cr_text ( NULLS, FormW, NULL, NULL, NULLS, FALSE, 

setposition ( txt_mat_numrows, 55, IGNORE, 68, IGNORE); 
seCposltlon ( txt_mat_numcols, 55, IGNORE, 81, IGNORE); 
set_posltlon( txt_mat_dim3, 65, IGNORE, 68, IGNORE); 
setposition ( txt_mat_dlm4, 65, IGNORE, 81, IGNORE); 
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2 ); 

2 ); 


cr_label ( 

NULLS, 

FormW, 

"Dlml", 

o. 

56, 

IGNORE, 

62, 

IGNORE) ; 

* This routine builds the. popup to receive number value 

cr_label ( 

NULLS, 

FormW, 

"Dim2", 

0, 

56, 

IGNORE, 

75, 

IGNORE) ,* 

* 

cr label ( 

NULLS, 

FormW, 

"Dlm3", 

o. 

66, 

IGNORE, 

62, 

IGNORE) ; 

* 

cr label ( 

NULLS, 

FormW, 

"Dim4", 

o, 

66, 

IGNORE, 

75, 

IGNORE); 

* REVISION HISTORY: 


crseparator ( NULLS, FormW, 82, IGNORE, 5, 95 ); 

DoneW - cr_command( NULLS, FormW, "Done", cbr_unknown_type_done, 1 ); 

HelpW - cr_command ( NULLS, FormW, "Help", cbr help, CREATE ELEM) ; 

CancelW - cr_command ( NULLS, FormW, “Cancel", cbrunknowntypedone, 0 ); 

set_posltlon ( CancelW, 89, IGNORE, 10, IGNORE); 
setposition ( DoneW, 89, IGNORE, 40, IGNORE) ; 
set'posltlon ( HelpW, 89, IGNORE, 70, IGNORE); 




MODULE NAME: bui ldvarlnputpopup ( ) 

MODULE FUNCTION: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void bull d_va r_i npu t _popup ( pa re nt ) 
Widget parent; 


lnt 

Arg 

char 


args (10 j ; 

*var string, *num string, *str_strlng; 


d\ gvari nput ■“ cr popup! NULLS, parent, "Variable input" ); 

FormW =* cr_form( NULLS, dig var_input, NULL, NULL ); 
setat trlbs ( FORM, FormW, 300, 325, XmRESI ZE_N0N£ ); 

num string = (char *)malloc( slzeof (char) * (34) ); 

strcat ( numbering, "Please enter a valid number below. \n M ); 

str strlng - (char “)malloc( slzeof (char) • (34) ); 

strcat ( str^strlng, "Please enter a valid string below. \n M ); 


num_header 
str header 


XmStringLtoRCreate ( 
XmStrlngLtoRCreate ( 


(char *) num_strlng, XmSTRING_DEFAULT_CHARSET) ; 
(char •) str_strlng, XmSTRI NG J)EFAULT_CHARS£T) ; 


free (num_string) ; 
free (strstrlng) ; 


lblvarlnputheader - cr_label (NULLS, FormW, NULLS, 0, 3, 20, 5, 95); 

scr_var_input = crtext (NULLS, FormW, NULL, NULL, NULLS, FALSE, 1, 30); 
set_posit ion (scr_var_input , 20, IGNORE, 20, IGNORE); 


rc_expr_num - crrowcol ( NULLS, FormW, 4, XmHORIZONTAL, NULL, 
setposit ion ( rc_expr_num, 35, IGNORE, 35, IGNORE ); 


NULL) ; 


Bt nW 
Bt nW 
Bt nW 
Bt nW 
BtnW 
Bt nW 
BtnW 
Bt nW 
BtnW 
Bt nW 
BtnW 


cr_command 
crcommand 
cr_command 
cr_command 
cr_command 
cr_command 
cr_command 
crcommand 
cr_command 
cr_command 
cr command 


(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 

(NULLS, 


rc expr 
rc expr 
rc expr 
rc expr 
rc_expr_ 
rc_expr 
rc_expr 
rc_expr_ 
rc_expr 
rc_expr_ 
rc_expr_ 


num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 


cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 

cbr_expr_ 


num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 

num, 


"7") 
" 8 ") 
"9") 
"4") 
"5") 
" 6 ") 
" 1 ") 
" 2 ") 
"3") 
" 0 ") 
" . " ) 


cr_separator ( NULLS, FormW, 80, IGNORE, 1, 99 ) ; 




\ 


DoneW = cr_command{ NULLS, FormW, "Done", cbr_num_input_done, CBR_COMP_TYPE_DONE) ; 
CancelW - cr_command ( NULLS, FormW, "Cancel", cbrnuminputdone, CBR_COMP_TYPE CANCEL) ; 

HelpW *= cr_command{ NULLS, FormW, "Help", cbr_help, NUMBER_HELP ); 


set 

position { 

CancelW, 

89, 

IGNORE, 

3, 

IGNORE 

set 

position ( 

DoneW, 

89, 

IGNORE, 

37, 

IGNORE 

set 

position ( 

HelpW, 

89, 

IGNORE, 

70, 

IGNORE 


MODULE NAME: cbr_mat_tgls () 


MODULE FUNCTION: 


This routine processes the user's selection of the Scalar/Matrix/Vector toggle 
buttons. This routine will determine which type of variable the user wants 
to select, and will then control the matrix size/element text fields accordingly. 


REVISION HISTORY: 


Graphical Comp Builder 


MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*< >********** 


XtCallbackProc cbrmattgls ( w, cllent_data, call_data ) 


Widget 

int 

caddr t 


w; 

cl ient_data; 
calldata? 


int syratype; 

Arg args [1 ) ; 


Xt SetArg ( args(0], XmNuserData, isym type ) ; 
XtGetVal ues ( d lglogictype, args, 1 ); 

/* 

* User clicked Scalar. 

V 


if ( clientdata — SCAL ) 

{ 

/* 

• Clear the matrix size/elements text widgets, they are not appropriate 

* at this point. Set the matrix size/element text widgets inactive. 

*/ 


XmText Setstring { txt_matdim_x, NULL ); 
XmText Setstring { txtjnatdimy, NULL ); 
XmText Setstring ( txt_matdim_3, NULL ); 
XmText Setstring ( txt_matdim_4, NULL ); 


XmText Set St ring { txt_mat elm_x, NULL ); 
XmTextSetString ( txt_mat elm_y, NULL ); 
XmText Setstring ( txt_mat elm_3, NULL ); 
XmTextSetString! txt_matelm_4, NULL ); 


XmText Set Ed i table ( 
XmTextSetEditable { 
XmText SetEditable ( 
XmTextSetEditable ( 


txt_matdim_x, 

txt_matdim_y, 

txt_matdim_3, 

txt_matdim_4, 


False ) 
False ) 
False ) 
False ) 


XmText SetEditable ( 
XmTextSetEditable ( 
XmTextSetEditable ( 
XmTextSetEditable ( 


txt_matelm_x, 

txt_matelm_y, 

txt_matelm_3, 

txt_matelm_4. 


False ) ; 
False ) ; 
False ); 
False ); 


XmText SetEdi table ( txt_var_name. True ); 
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return; 

) 


User clicked matrix. 


MODULE NAME: cbr_def_fn() 

MODULE FUNCTION: 


if ( client_data ■»« MAT ) 
l 

XmText. Set Edi tabl e { txt_matdlm_x, True ); 

XmTextSetEdi table ( txt_mat elm_x, True ); 

/• 

* If the user is selection a local or global variable, then let them 

* fill in both dimensions. if they are selection an Object or WS Global, 

* then only let them select the number of rows, columns must «** 1. 

*/ 


if { {sym_type -- LOCAL VAR) || (sym type 
I 

XmTextSutEditable ( txt_matdim_y, 
XmTextSetEditable ( txt_mat dl m_3, 
XmTextSetEditable ( txt_matdlm_4, 
XmTextSetEditable! txt_matelm_y, 
XmText SetEdltable ( txt_mat elm_3, 
XmTextSetEditable! txt_matelm_4, 

) 


el se 

{ 

XmTextSetStrlng ( 
XmTextSetString ! 
XmTextSetStrlng { 
XmTextSetStrlng ( 
XmTextSetString ( 
XmTextSetStrlng { 
I 


True ) 
True ) 
True ) 
True ) 
True ) 
True ) 


txt_matdim_y, "1" ); 
t xt_mat dlm_3, -1" ); 
txt jnatdim_4, “l" ); 
txtmatelmy, "1" )? 
txt_matelm__3, "l** ); 
txtjnatelm_4, "1* ); 


GLOBAL VAR) ) 


XmTextSetEditable! t xt_var_name. True ); 

1 


This routine is called when the user selects a defined function from the 
selection list. This routine Inserts the function name into the expression 
string. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 

* 

....< — >•*••** 

XtCa 1 IbackProc cbr_def^fn( w, list, call^data ) 

Widget w; 

Widget list; 

XmLlstCal IbackSt ruct *call_data; 


I 

char newStrl MAX NAME | , 

•string; 

lnt attributes - 0, 

1. 

len; 

/* 

* Get the lunction name selected by the user. 

*/ 

XmSt rl ngGetLtoR { call_data->item, XroSTRING_DEFAULT_CIIARSET, sstrlng ); 

/* 

* Copy the string to a local string, we are going to modify the string 

* and we don't want to modify the string Motif just gave us a pointer to. 

* Set a pointer to the start of the extension, then set it to NULL to 

* to remove the extension. 

*/ 


strepyf newStr, string ); 
len ** strlen( newStr ); 


for ( i-len-1; 1>0; 1 — ) 

If ( newStr [ 1] =■ ' . ' ) 

( 

newStr 111 - NULL; 
break; 

) 

/* 

• See If the user defined function Is In the symbol table. If It Is not, 

• add It. 

*/ 


if ( ! (struct symbol_entry *J iookup_symbol (NULL, newStr; ) 

t 

/ •DEBUG* / 
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elog(3,"cbr def: adding fn %s to symtab", newStr) ; 


attributes |- PROCEDURE; 
attributes |= INTEGER; 

If ( addsymbolentry (NULL, newStr, attributes, 0, 0, 0, 0, 0) ) 
error_handler ( ERR_ADD_SYMBOL, “cbr_def_fn" ); 

) 


/* 

* Insert the string which now contains only the function name (no extension) 

* Into the expression. 

*/ 


XmText Insert ( scr_expr, XmTextGetlnsertionPositlon (scr_expr) , newStr ); 
XtUnmanageChild ( dlg_def_fn ); 
do parse () ; 



/A************************************** * < — > ********************************** 

* MODULE NAME: cbr_expr_i nput () 

* 

* MODULE FUNCTION: 


This routine is called when the user selects one of the buttons from the 
math/logic menu of tokens. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

******************************* *******< >*********** 


XtCallbackProc cbr_expr_input ( w, closure, call_data ) 


Widget 

int 

caddr t 


w; 

cl osure; 
call data; 


Arg 

static int 
int 


args 1 1 1 ; 

lastclosure 

symtype; 


LPAR; 


/* 

* Insert a blank space into the expression everywhere except the first 

* position and after parens. 

*/ 


if { (closure !« RPAR) && (last_closure !- LPAR) && 
XmTextGetlnsertionPosition (scr_expr) ) 

XmText Insert (scr_expr, XmTextGet InsertionPosit ion (scr_expr) , " ")? 


lastclosure = closure; 

/* 

* Find out which button called us, many of the simpler buttons are 

* handled in the "default" case. 

*/ 


switch ( closure ) 

i 

case STRING : 


/* 

* put up popup to receive string input. 
•/ 


/ 


XtManageChi Id ( dlg_str_input ); 
return; 

case MSID : 
case LOCAL_VAR : 
case GLOBAL : 
case WSG : 


/* 


set userData for the dig widget so cbr_var_l nput can retrieve 
it and know what button caused it to be popped up. 





XtGetValues ( current_symbol , args, 1 ); 
if { symtype -« SET ) 

X/nTextlnsert ( sere* pr, X/nTextGetlnsertionPosi tlon (scr_exprj , •**:“" ); 

el se 

XmTextlnsert { screxpr, XmTextGet Insert lonPosi t ion (scr_expr) , **• ); 

1 

else 


/* 

• insert string from global b_strings array. 

*/ 


XmText Insert ( scr_expr, XmTextGet Insert lonPosi t ion (scr_expr) , 
b_strings[closure-5| ) ; 


/• 

• parse expression so far; reset expression buttons. 
*/ 


do_parse {) ; 
break; 
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/a************.***.. **»************, ***» * < > ********* 

/* MODULE NAME: cbr_expr_num () 




/***********************************•*** *<- > ************* 

MODULE NAME: do parse () 


ffigBm # Wpt 


************** 


* MODULE FUNCTION: 

* 

* This routine sets text string to user's number choice in number input popup 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

*************************************** * < >* a**************************************/ 


MODULE FUNCTION: 

This routine sets necessary globals, parses expression, resets input buttons 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

r************************************** < y A***************************************/ 


XtCa I IbackProc cbr_expr_num { w, client_data, call_data ) 


Widget 
caddr_t 
caddr t 


w; 

cl ient_data; 
call_data; 


{ 

XmTextSetString { scr_var_input , 

strcat (XmTextGet St ri ng (scr var_input) , (char * ) client_data ) ); 

} 


int do_parse() 


int 

sym_type 

Arg 

args [1 ] ; 

Int 

i; 


XtSetArg( args[0] # XmNuserData, isymtype ); 

XtGetValues( current_symbol, args, 1 ); 

/* 

* Set global so parser will know what kind of expression we are parsing. 

*/ 

if ( symtype =»= SET ) 

SetSym - 1; 

else if ( symtype == IF ) 

SetSym = 0; 

else 

( 

/•DEBUG*/ 

elog (1 , "do parse : type of current symbol is neither if nor set”) ; 
exit ( ERR ) ; 

) 

i = parse_expression ( XmTextGet St ri ng (scr_expr) ); 
if ( (i !° PARSESUCCESS) && (i !« END_OF_FILE) ) 

{ 

elog (3, "in do parse, putting up user ack after parse returned %i", i); 
user ack ("Syntax error in expression"); 

■ /* 

* force user to correct error by hand by making all expression 

* buttons inactive. 

V 

init_inputs{ -3 ); 
return ( 0 ); 

/* 

* reset active buttons based on parser state. 

*/ 

invalidate_buttons () ; 
return ( 1 ); 
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MODULE NAME: initlnputs () 


MODULE FUNCTION: 

This routine sets the initial state of the panel depending on the palette 
item selected. 


REVISION HISTORY: 


Graphical Corap Builder 


MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void inlt_inputs( type ) 
int type; 


for ( i-0; KNUM BUTTONS; iH ) 
activel 1st ( 1) - 0; 

If ( type -= -1 ) 

( 


initial state - if 


act i 
act 1 
acti 
act 1 
act 1 
act i 
acti 
acti 
acti 
acti 
acti 
acti 
acti 
acti 
acti 
acti 
acti 
act l 
\ 

else if 


ve_l i st 
vel 1st 
ve_l 1st 
vel 1st 
ve_l 1st 
ve_l 1st 
ve_l 1st 
vel 1st 
vel 1st 
vel 1st 
vel 1st 
ve_l 1st 
vel 1st 
ve_l 1st 
ve_l 1st 
ve_l 1st 
ve_l 1st 
ve list 


[NOT) - 1; 

( LPAR ) - 1; 
l NUMBER) - 1; 
[ LOCAL] “ 1; 
[MS ID ) “ 1; 
[GLOBAL] - 1; 
[PLUS] - 1; 
[MINUS] - 1; 
[Pi] - l; 
[SORT] = 1; 
[LOG] = 1? 
[NLOG] = 1; 
[TRIG] = 1; 
[POWER] = 1; 
[EXP] = 1; 
[MINUS] - 1; 
[DEFFN] - 1; 
[WSG] - 3; 


initial state - set 


acti vel 1st [LOCAL] - 1; 
acti vel 1st [GLOBAL] - 1; 
acti vel ist [WSG] - 1? 


m 
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) 


else If ( type == -3 ) 

I 

/* 

* parse of existing expression failed; turn off all buttons 

* (don't set any bits of the active list). 

*/ 


I 


I 

else 

( 

user_ack ("Fatal error: lnlt_lnputs () bad button type"); 
elog (1, “inlt_lnputs: received a bad button type"); 
exit ( ERR ) ; 

( 
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* 

* MODULE NAME: inva 1 idate_buttons {) 

* 

* MODULE FUNCTION: 

* 

* This routine renders inactive ail but the buttons indicated in the 

* va 1 1 dpoi nts array. 



REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

••A********************************* **< >********* ** 


void inval idate_buttons {) 

{ 

lnt i; 

Arg act ive args [ 2| , inactive_args[2] ; 

extern int insensit ive_color; 

/• 

’* 2 sets of args so we don't have to reset them inside loop. 

V 

XtSetArg( act i veargs (0 ] , XmNsensi t i ve, (XtArgVal) TRUE ); 

XtSetArg( act 1 veargs ( 1 1 , XmNbackg round, 

(XtArgVal) WhitePixel (display, DefaultScreen (display ) ) ); 

Xt Set Arg ( inact i ve args ( 0) , XmNsensit i ve, (XtArgVal) FALSE ); 

Xt SetArg ( inact 1 veargs ( 1 | , XmNbackground, (XtArgVal) Insensit lve_color ); 

for (i-0; i<NUM_BUTTONS; i++) 

( 

if ( iactive 1 1st (i ] ) 

XtSetValues( w[i], inact ive_args, 2 ); 
else XtSetValues( w[i] f active_args, 2 ); 

I 
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/••"" ..................... ...... t ............ 

* MODULE NAME: set_state() 

* 

* MODULE FUNCTION : 

« 

* This routine Is called from yacc.src; It sets the expression buttons 

* tin) active based on the parser state. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

* — >******“**•***••**************•*•*•****•/ 

void set_state( state, terminal ) 
lnt state, terminal; 

I 

lnt 1; 

ologl 2, "set state; state Is »l\n“, state ); 

/* 

* special case tor Id on left side of set stmt 

•/ 


/* 

* Don't allow String types In IF expressions. 

•/ 

if { ! SetSym ) 

active llst(l| - 0; 

el se 

1 

/* 

* If we should turn the STRING button on, turn It on, 

* else turn It off. 

*/ 

If ( termset | state] |1 ] ) 
act 1 ve_l 1st ( 1 ) » 1; 

el se 

I 

If ( terminal ) 

actlvellst [ 1 | - 0; 

) 

) 

I 

else If ( (1 >- EQ) tt (1 <- GT) 1 

I 

/* 

* set relops active only If on left side and parens are balanced 

•/ 


If ( (WhereAmI -- LHS) it (SetSym) ) 
I 

for ( 1-0; KNUMBUTTONS; 1 + + ) 
actlve llst ) 1 1 - 0; 
actlve_llst [EQ| - 1; 
return; 

I 

lor ( 1-0; KNUM BUTTONS; In | 

I 

If ( 1 — RPAR ) 

I 


If ( (paren_count) | | (WhereAmI — RHS) ) 
actlvellst (1) - 0; 

el se 

1 

If ( t erm set | state) ) 1 ) ) 
actl ve_llst [ 1) - 1; 
else If ( terminal ) 

act 1 ve_l 1 st [ 1 1 - 0; 

I 

) 

else If ( (1 == AND) I I (1 — OR) ) 

1 


/* 

* set rpar active only If parens are unbalanced 

*/ 


/* 

* set logops active only 1 f on right side and parens are balanced 

*/ 


/‘DEBUG*/ 

elog (3, ”paren_count - %d", paren_count) ; 

If ( Iparen count ) 

actlve_l 1st ( 1 ) - 0; 

else 

( 

If ( termset [state] (1 ) ) 
act l ve_l 1st [ 1 | - 1; 
else If ( terminal ) 

act I vo 1 1st ( 1 | - 0; 

I 

I 

else If ( 1 — STRING ) 

( 


If ( (paren_count) | | (WhereAmI -- LHS) ) 
act 1 ve_l 1st ) 1 ) - 0; 
else If ( SetSym ) 

act 1 ve_l 1 st [ 1 ) = 0; 

el se 

( 

If ( termset ( state] [ 1 ) ) 
act lvell st [ 1 ] * 1; 
else If ( terminal ) 

active list [1] - 0; 

I 

I 

el se 

) 


current state, 
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1/ the button should be active according to the 
set the corresponding bit in active_list 


if ( term_set [ state) (i ) ) 
active_list (i ] * 1; 

else 

{ 

if ( terminal ) 


} 


/* 

* we have reached a terminal in the parse; reset active list 

* for non-terminals, the state is the aggregate of all states 

* leading to it. 

V 

active_iist (i J = 0; 

I 

) 



MODULE NAME; set up_math_menu ( ) 

MODULE FUNCTION: 

This routine builds the logical expression window that overlays the 
palette items. 

REVISION HISTORY; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/20/91 

*******«*•*••***•*••*•*«****«**•* »*««»< >* • M*M*M*»**».**«»**t*l 


void setup_math_menu (parent , under) 
Widget parent, under; 


int n, m = 0; 

Arg argsllO); 

/* 

* create Frame to hold math rowcol widget 

*/ 

frame_math_menu «* cr_frame( NULLS, parent, NULL, under); 
XtSetArg( argsIO), XtNmappedWhenManaged, FALSE ); 
XtSetValues( f ramemathmenu, args, 1 ); 

/* 

* create form to hold rowcols and labels 

*/ 


n - 0; 

XtSetArgi args In), XmNwidth, 270 ); ni*; 

XtSetArg( args(n), XmNheight, 464 )? n++; 

f rm_math_menu « XmCreateForm ( frame_math_menu, NULLS, args, n) ; 
XtManageChi Id { f rm_math_menu ); 

/* 

* create labels in math menu 

*/ 


cr_ 

label ( 

NULLS, 

f rm_ 

mat h_ 

menu. 

"GCB Elements", 

1, 

1, 

7, 

1, 

97 ) 

cr 

label ( 

NULLS, 

f rra 

_math_ 

menu, 

•Logic", 

0, 

9, 

12, 

1, 

99 

cr_ 

"label ( 

NULLS, 

f rm 

math_ 

menu. 

•Variable", 

0, 

28, 

31, 

1. 

99 

cr 

"label { 

NULLS, 

f rm 

_math_ 

menu, 

•Relational", 

0, 

48, 

52, 

1, 

99) 

cr_ 

"label ( 

NULLS, 

f rm_ 

mat h_ 

menu, 

■Math”, 

0, 

62, 

65, 

1. 

99 


/* 

* create rowcol to hold palette variable items 

*/ 


cr_separator ( NULLS, f rm_mat h_menu, 32, 33, 1, 97 ) ; 

rc_var - cr_rowcol{ NULLS, frm_math_menu, 2, XmHORI ZONTAL, NULL, NULL); 
set_position (rc_var, 33, IGNORE, 12, IGNORE); 


w [m; - cr_command (NULLS, rc_var, ''Object**, cbr_expr_input, MSID); m+ + ; 




91/08/29* 
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,v >>;. ,vS. 


9 


w(m) 

w(m) 

w[mj 

w[mj 


cr_command (NULLS, rc_var, 
cr_command (NULLS, rc_var, 
cr_command (NULLS, rc_var, 
cr_command (NULLS, rc_var, 


"global", 

"local", 

"number", 

"string". 



expr_menu.c 

cbr_expr_lnput, GLOBAL); m+ + ; 

cbr_expr_input , LOCAL_VAR) ; m++; 
cbr_expr_input, NUMBER) ; m+ + ; 

cbr_expr_input, STRING); m+ + ; 


/* 

* create rowcol to hold defined fn item 

*/ 



/* 

* create rowcol to hold palette logic items 
V 

crjseparator ( NULLS, C cm juat h_menu, 13, 14, 1, 97 ); 

rc_logic - cr__rowcol ( NULLS, f rmjnat h_menu, 2, XmilORIZONTAL, NULL, NULL); 
set_posltlon (rc_logic, 15, IGNORE, 20, IGNORE); 


rc def fn = cr rowcol (NULLS, f rm_math_menu, 2, XmHORIZONTAL, NULL, NULL) ; 
set_position ( rc_def_fn, 87, IGNORE, 15, IGNORE ); 


w (m) 

“ cr 

command (NULLS, 

rc 

def_ 

fn. 

"trigonometric". 

cbrtrlg. 

T_SUOW) ; 

m * + 

w(m| 

- cr 

command (NU LI*S, 

rc 

de(_ 

tn, 

"quaternion" , 

cbr_quate tn l on , 

T~SllOW ) ; 

m* ♦ 

w[ml 

- cr_ 

command (NULLS, 

rc . 

def 

fn, 

"user defined fn", 

, cbr_expr_i nput , 

DEF_FN); 

m + * 

w[m| 

- cr _ 

command (NULLS, 

rc 

”def_ 

fn. 

"matrix function", 

, cbr_mat rix. 

M_SHOW); 

m + + 


/* 

* create push buttons In logic menu 
V 


w(m] - cr_command (NULLS, rc_var, 


"WS Global", cbrexprlnput, WSG); mH; 


w (m) 
w(rol 
w(m) 
w(ml 
w(m) 
w[m) 


cr_command (NULLS, 
cr_command (NULLS, 
cr_command (NULLS, 
cr_command (NULLS, 
cr_command (NULLS, 
cr_command (NULLS, 


rc_loglc, 
rc_logic, 
rc_loglc, 
rc_logi c, 
rc_logic, 
rc_loglc, 


"and", ebr expr__input, m) ; m+ + ; 

"or", cbr_expr_input, m); m++; 

"not", cbr_expr_input , m) ; m++; 

"bitAnd", cbr_expr_input , m) ; m+ + ; 
"bitOr", cbr_expr_input , m) ; m+ + ; 
"bitXor", cbr_expr_input, m) ; m+t; 


/• 

* create rowcol to hold palette relational items 
V 


cr_separator ( NULLS, f rm_math_menu, 52, 53, 1, 97 ) ; 

rc_rel » cr^rowcol ( NULLS, f rmjnathjnenu, 1, XmHORIZONTAL, NULL, NULL) ; 
set^positlon (rc_rel, 53, IGNORE, 20, IGNORE); 

eq_btn » w(m] • cr__command (NULLS, rc_rel, cbr_expr__input, m) ,* m+ + ; 


w(m| 

- cr_command (NULLS, 

rc_ 

rel. 

"<>'*, cbr_expr_input, m) ; 

m* + 

w(m| 

- cr_command (NULLS, 

rc_ 

rel, 

cbr_expr_input, m); 

m+ +, 

w[m) 

- cr_command (NULLS, 

rc_ 

rel, 

">=", cbr_expr_input , m) ; 

m+ + 

w(m| 

- cr_command (NULLS, 

rc_ 

rel, 

"<", cbr_expr_lnput , m) ; 

m++ ; 

w(m) 

- cr_comniand (NULLS, 

rc_ 

rel. 

cbr_expr input, m) ; 

m+ + ; 


create rowcol to hold palette math items 


cr separator ( NULLS, t’rm 

_math menu, 66, 67, 1, 97 ); 



rc math - cr rowcol ( NULLS, frm math menu, 3, XmHORIZONTAL 

NULL, NU 

set_posltlon (remath, 67 

IGNORE 

5, IGNORE); 



w(m] - 

cr_command (NULLS, 

rc_math 

"+", cbr_expr_lnput. 

m) ; 

m + + ; 

w[m| - 

cr_command (NULLS, 

rc_math 

cbr_expr_input , 

m ) ; 

m+ + ; 

w[m| - 

cr_command (NULLS, 

r c_ma t h 

"*", cbr_expr_input , 

m) ; 

m+t; 

w(m| - 

cr_command (NULLS, 

rc__mat h 

"/", cbr_expr_input , 

m) ; 

m+ + ; 

«(m) - 

cr_command (NULLS, 

rc_math 

"(", cbr_expr_input , 

m) ; 

m+ + ; 

w(m( ’» 

cr__command (NULLS, 

rc_math. 

") ", cbr_expr_input. 

m) ; 

mf + ; 

“ (ml - 

cr_command (NULLS, 

rc_math. 

ebr expr input. 

m) ; 

m+t; 

w(ml - 

cr_command (NULLS, 

rc_math, 

"shiftL", cbr_expr_input 

m) ; m++ 

w [ml - 

cr_command (NULLS, 

rc_math, 

"shlftR", ebr expr input 

m) ; m+t 

w(ra) - 

cr_command (NULLS, 

rc_math, 

“PI", cbr_expr_lnput 

m) 

m+ + ; 

«(ml - 

cr_command (NULLS, 

rc_math. 

"exp", cbr_expr__input, 

m ) ; m + + ; 

w(m| - 

cr_command (NULLS, 

rc_math, 

"power", cbr_expr_lnput , 

m) ; m++; 

w|ml - 

cr_command (NULLS, 

remath, 

"sqrt", ebr expr_input, 

m) ; m++; 

w(m] - 

cr_command (NULLS, 

rc_math. 

"log", cbrexprlnput, 

m) ; m+t; 

wlra| ■ 

cr_command (NULLS, 

remath, 

"nlog", ebr expr_input, 

r»i) ; m+ + ; 
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/**************************************«*< >********************* 

* 

MODULE NAME: setup_var_popup ( ) 

MODULE FUNCTION: 

This routine sets up the popup to receive a variable declaration. 


expr_menu.c 




a rm_t g 1 ( tglvartypeint 
disarm_tgl ( tglvartypereal 
disarm_tgl{ tgl_var_type_string 
dlsarm tgl ( tgl_var_type_unsigned 
disarm_tgl{ tgl_var_type_short 
disarmtgl { tglvartypedouble 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

*************************************** * **«************************************/ 


lnt setup_loglc_type_popup ( type ) 
lnt type; 

! 

Rrg args[l]; 

/* 

* load the variable list within the popup based on the type of 

* variable being selected. 

*/ 


load_varlable_l 1 st ( selbxvartype, type ); 

/* 

* depending on the type of the popup, set the prefix of the 

* variable. 

*/ 


If ( type — GLOBAL ) 

< 

XmTextSetStrlng ( txt_var_name, "GV ); 

XtSetArg! args[0], XmNcursorPosltlon, (XmTextPosltlon) 4 ]; 
XtSetValues( txt_var_name, args, 1); 

I 

else If ( type =- WSG ) 

I 

XmTextSetStrlng ( txt_var_name, ”WS_“ ); 

XtSetArg ( args[0|, XmNcursorPositlon, (XmTextPosltlon) 4 ); 
XtSetValues( txt_var_name, args, 1); 

) 

else if ( type == MSID ) 

( 

XmTextSetStrlng! txt_var_name, “V" I; 

XtSetArg! args[0], XmNcursorPosition, (XmTextPosltlon) 2 ); 
XtSetValues! txt_var_name, args, 1 ) ; 

) 

/* 

* The default Is not a matrix - set the toggles. 

*/ 

arm_tgl (tgl_lsnt_mat) ; 
dlsarm_tgl (tgl_ls_mat) ; 

/* 


The default data type is integer - set the toggles. 



I 91/08/291 


* FILE NAME: expr_menu.h 

* FILE FUNCTION: 

* This file contains the global variables and function prototypes 

* In expr_menu.c. 


expr_menu.h 


cbr_var_choose () , 
cbr_var_input_done () 
cbr_var_type () , 
cbr_var_type_done () ; 


tor the routines 


void 


init_ inputs () , 
set active () ; 


* SPECIFICATION DOCUMENTS: 

* 

* /home/pro ject / 3531 /Docu/GCB. spec.doc 


/* 

* Callback lists for building the selection boxes. 

* accept Callback lists instead of Callback Procs. 

*/ 


* PII.E MODULES: 

* N/A 




/• 

* Constants used In expr raenu.c 
V 


•define MAX_UNKNOWN TOGGLES 5 


/• 

* Global variables used In expr mcnu.c 

•/ 


XmString 

num_header, 

str_header; 

int 

actlve^list [NUM^BUTTONS] ; 

char 

buf I 300) , 


st Jto bul 12) ; 

char 

*b_strlngs (NUM_BUTTONS) - { 


“and*, "or", "not", "bltAnd 


M - M , M **\ "/ M . 1 
"sqrt", "log", "nlog", "sin 


); 


bitOr", -bitXor", 


"«■*, "PI" 

, "exp", "power 

'tan", "acos", "asin". 

"atan" 


XtCal IbackRec va r_i nput_done code(| " ( 

t (XtCal IbackProc) cbr_var_lnput_done, 
1 (XtCal IbackProc! NULL, 

I; 


Xt Ca 1 1 backRoc var_l nput_cancel_code 1 1 - ( 
( (XtCal IbackProc) ebrvar lnputdone, 

| (XtCal IbackProc) NULL, 

I; 


XtCal IbackRec var_selc_code[ ) = ( 

I (XtCallbackProc) cbr_var choose, 
( (XtCallbackProc) NULL, 

); 

XtCa 1 1 backRoc dut_fn_dono_code ( | - ( 
( (XtCallbackProc) cbrdef fn, 

( (XtCallbackProc) NULL, 

I; 


XtCallbackRec def_fn_cancel_code ( ) - I 
t (XtCallbackProc) cbr_cancel, 

( (XtCallbackProc) NULL, 

); 

XtCallbackRec def_fn_help_code ( J - ( 

( (XtCallbackProc) cbr_help, 
i (XtCallbackProc) NULL, 

I; 


(caddr_t ) 
(caddr_t) 


(caddr_t ) 
(caddr_t ) 


(caddr_t ) 
(caddr_t ) 


(caddr_t ) 
(caddr_t) 


(caddr_t) 

(caddr_t) 


(caddr_t) 

(caddr_t) 



MMi 


The selection boxes 


NULL 
NULL | 


NULL |, 
NULL } 


NULL }, 
NULL l 


0 I, 

NULL ) 


DEF_FN_CANCEL i, 
NULL ) 


DEF_FN_HELP ) # 
NULL ) 


/* 

* Function prototypes for routines in expr_menu.c 

*/ 

XtCallbackProc cbr_cancel (> , 
cbr_def_f n 0 , 
cbr_expr_num 0 , 
cbr_help () , 
cbr_mat_tgls 0 , 

cbr_num_lnput_done 0 * 

cbr_st r_input_done () , 
cbr_unknown_i sjnat {) , 
cbr_unknown_type_done (} , 
cbr_unknown_type_select_name 0 , 
cbr_unknown_typeselect_type () , 



fonts.h 


1 ^: 91 / 08/29 

09 : 43:53 


/*********il*******4**«***«* 

FILE NAME: fonts.h 

FILE FUNCTION: 


• *«* * < > * 


This file contains the variables used to maintain the X Windows fonts. These 
global variables are maintained in this file so every source file does not need 
to Include the X font header files. 



SPECIFICATION DOCUMENTS: 

/home/ pro ject /35 31 /Docu/GCB. spec.doc 


* FILE MODULES: 

* 

* N/A 

« 

*********»»*,*******,***,************«««< 

/* 

* Font variables. 

V 

Font WAFont, 

big_font , small^font, teeny_font; 





PRECEDING PAGE BLANK NOT FILMED 




/•**»** * * > 

* 

* FILE NAME: gcb. c 


/*»* > 

* 

* FILE NAME: gcb. c 


* FILE FUNCTION: 

* This file contains the main!) routine which makes the calls to start X windows 

* and to build the MOTIF-based user lnteface. This file also contains the signal 

* handler routine which is installed to catch core dump signals. 

* FILE MODULES: 

* handler 0 - core dump signal handler routine 

* main{) - main GCB routine, this is where it all starts 

**< >*«**»*** »**• M M * M M » M I « * 


I include 
I include 
I lncl ude 
•include 
•include 
•Include 
•include 


<stdio . h> 
<X11/Intr inslc. h> 
<Xm/Xm. h> 

<signal . h> 

"gcb. h" 

"symbol .h" 
"widgets. h” 



MODULE NAME: main() 

MODULE FUNCTION: 

This is the main routine which starts the GCB. This routine makes a call to 
Install the signal handler, initializes X Windows, initializes assorted 
global variables, then turns control over to X Windows main event loop. 


REVISION HISTORY: 


/ 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

< >** ********* 


/ 


int main( arge, argv ) 

lnt arge; 

char **argv; 


{ 

prlntf ("XnStartlng the Graphical Comp Builder u ); 


/* 

* Install the signal hanlder to catch certain signals, especially those that 

* catch core dumps. 

*/ 

signal! SIGBUS, handler ); 
signal ( SIGHUP, handler ); 
slgnal( SIGINT, handler ) ; 
signal! SIGSEGV, handler ); 

ActivePopup * -1; 


/* 

* Initialize X Windows. Open the display server connection. 

*/ 


XtTool kit Initial lze {) ; 

app_context ■= XtCreateAppl lcat ionContext () ; 


display - XtOpenDlsplay ! app_context, NULL, argvfO], "gcb", NULL, 0, Sargc, argv ); 
if {! display ) 

1 

XtWarning ("GCB: Can't open display."); 
exit ( ERR ) ; 

) 


/* 

* Build the MOTIF Interface elements. 

*/ 


init_graphics () ; 

/* 

* Init and update global variables and status Indicators. 

*/ 


PRECEDING PAGE BLANK NOT FILMED 


gcb.c 


liiMill 

mmM : 

lnlt vars( argc 


argv ); 


/* 

* Pass control to X Windows, X will be in control from here until when 

* the GCB exits. 

V 


MODULE NAME: handler!) 

MODULE FUNCTION: 


<• 



XtAppMainLoop ( app__context ); 


This routine is the signal handler routine which is installed to catch core dumps 
during "Bus errors" and "Segmentation Violations". This routine is installed by 
main() to catch these signals. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 

Release 


1.0 - 07 / 17/91 

1.02 - 08 / 28/91 


< _ > * ***************************************/ 


int handler! sig, code, scp ) 

int sig, 

code; 
void *scp; 

! 

/* 

* Determine which signal we caught, and print a corresponding error 

* message before exiting. 

•/ 


switch! sig ) 

! 

case SIGHUP 
case SIGINT 

case SIGBUS 

case SIGSEGV 

) 


print f !"GCB: Signal caught, exitlng\n"); 
break; 

print f !"GCB: Bus error\n"); 
break; 

print f ("GCB: Segmentation violat ion\n") ; 
break; 


) 




exit ( ERR ) ; 



' 9 1/08/29 ■ 

I 09:43:$? j 


FILE NAME: gcb.h 


FILE FUNCTION: 


This file contains the global set of program constants and variables for the 
Graphical Comp Builder. 


SPECIFICATION DOCUMENTS: 


/home/ pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 


GCB constants. 


ABORT 

BUILD_COMP 

BUILD_ELEMENT 

EL_EXT 

CMP_EXT 

CELL_SIZE 

CELL_ROWS 

CELL_COLS 

ERR 

IGNORE 

MA I N_C AN VA S_H EIGHT 

MAIN_CANVAS_WIDTH 

MAX_COLORS 

MAX_NAME 

MAX_NODES 

MAX_PATH 

MAX PURPOSE 


-2 

1 

2 

".GEF" 

" - CMP** 

5 

{MAINCANVAS HEIGHT + MAIN_CANVAS_HElGHT/2> /S 
(MAINCANVAS^WIDTH + MAINCANVASWIDTH/2) / 5 
-1 
-2 
800 
1000 
13 
50 
50 
100 
500 


MAX_PURPOSE_DI SPLAY 30 
MAXJTEXT ^SYMBOLS 200 

MAX_SYMBOLS 40 

MAX_TEXT 300 

MAX_TEXT_STRINGS 20 
MAXJJNDECLAREDS 5 

MIN_BTN__WIDTH 90 

NULLS 

NONE -1 

NOT_FOUND -1 

OK 0 

PR I NT_REP 0 

PR I NT_REP 1 1 

SUCCESS 0 


•define AddSymbol 
•define Edit Symbol 


1 

2 



I 09:43:57 

Idefine C 
Idefine MOAL 
•define UIL 


gcb.h 


/* 

* Constants used in determining matrix dimensions and values. 

*/ 


/* 

* Data Structures. 
V 


Idefine MAT 2 

Idefine SCAT- 1 


/* 

* Error codes used in calls to error_handler . 
V 


Idefine ERR_SYM__ATTRIBS 1 
Idefine ERR_ADD SYMBOL 2 
•define LI B_ELEM_SYM 3 
Idefine NO ELEMENT 4 


/* 

* Constants which define keys to identity symbol types. 
*/. 


Idefine NUM_PAL£TTE 10 

•define BEGIN 0 

•define END 1 

Idefine IF 2 

•define SET 3 

•define PAUSE 4 

•define GOTO 5 

Idefine START 6 

Idefine STOP 7 

•define PRINT 0 

•define TEXT 9 

Idefine SEGMENT_KEY 50 

•define LINE_KEY 51 

•define LIST_KEY 52 

Idefine SYMBOL_KEY 100 

Idefine PALETTE_KEY 101 

•define TEXT KEY 111 


/* 

* for linking items with symbols 
*/ 


Idefine ITEM_KEY 500 

(* 

* for linking text with symbols 
*/ 


•define LTEXT_KEY 200 
•define COMP_TEXT_KEY 201 
Idefine COMM TEXT KEY 202 


/* 

* for linking element type with symbols 

*/ 


•define ELEM TYPE KEY 203 


/* 

* Various connecting line structures. 

*/ 


typedef struct 

( 

unsigned int 
int 


key; 

arrow_x, 

arrowy, 

orientation, 

cel lendx, 

cel 1 endj, 

cel 1 start_ x, 

cell_start_y, 

end_x, 

end_y, 

startx, 

starty; 


struct LineSeg ‘next, 
•prev; 

) LineSeg; 


typedef struct 

I 

unsigned int key; 

LineSeg Mine; 

struct Symbol ‘from, 



typedef struct 

{ 

unsigned Int key; 

Line Mine; 

struct LineList ‘next, 

*prev; 

} LineList; 

/* 

* Symbol structure. 

*/ 

typedef struct 
i 

unsigned int key; 

int symbol_type, 

symbol_generated, 

cell_height, 

cellwidth, 

ce 11 _x , 

cel l_y , 

height, 

width, 

ulcx, 

ulcy; 




char *text; 

Line ‘next; 

Line List ‘from; 

Widget mycanvas; 

Font font; 

union i 

struct 

( 


Line 

• fal se_l ine, 
*true_llne; 



lnt 

fa lse_x. 

/* location of label 

*/ 


fa lse_y. 

/• 

•/ 


true_x, 

/* 

*/ 


true_y; 

/* 

*/ 

char 

* loglcal_expr, 

*comp_expr, 

“comment; 




1 IfSym; 
struct 
[ 

char *set_expr; 

) SetSym; 
struct 
1 

lnt coraptype; 

] ElemSym; 

) Sym; 

} Symbol; 

/* 

* Work Area Cell map structure. 
V 

typedot struct 
( 

lnt cell_type; 
union ( 

Symbol “symbol; 

LlneList “lines; 

1 cell_entry; 

I Cell; 


/* 

* GCB global variables. 
V 


Cell 

Cel l_Map 

(CELL ROWS] (CELL COLS]; 

: /* 

Work Area 

cell map 

GC 

WAgc; 



/* 

graphics 

context 

Symbol 

Symbol Map [MAX 

_SYMBOLS ] , 





“Begin_Sym? 






Widget 

Pa lett e 

(NUM PALETTE], 





current_symbol ; 





char* 

Author 


(50], 

/* 

author as 

taken from element file 


CompDl r 


[MAX NAME], 

/* 

comp directory name with extension 


CoropFl le 


(MAX NAME], 

/* 

comp file 

w/o extension or path 


CompPurpose 


(MAX PURPOSE], 







cancel_draw () , 

/* 

cbr_cancel . c 

cbr^set_anchor () , 

/* 

cbr_menu. c 

cbr startstop_sel () , 

/* 

cbr_printset . c 

check llnesegO, 

/* 

cbrdone. c 

clear_cell_map_sym () , 

/* 

symbols .c 

edlt_text () , 

/* 

edit . c 

elog () , 

/* 

uti Is .c 

error_handler () , 

/* 

Utils, c 

init_cel l_map () , 

/* 

symbol s.c 

logo, 

/* 

utils. c 

menu_proc ( ) , 
my Invert {) , 

/* 


remove_symbol () , 

/* 

symbols .c 

set^attribs () , 

/* 

utils .c 

set _current_sym {) , 

/* 

symbol s.c 

set^line_event () , 

/* 

undo. c 

set^midpt () , 
set^symbol event () , 

/* 

undo. c 

set_sym_att r ibs () , 

/* 

symbol_table. c 

set^user_data () , 

/* 

uti Is. c 

setup_math menu () » 

/* 

expr_menu.c 

set up_pa lette () , 

/* 

set up_palette.c 

undo () , 

/* 

undo. c 

update_pos_f ields () , 
user_ack () , 

/* 

uti Is .c 

zoom () ; 

/* 

cbr_menu. c 


int audit_line () , 


count_qoutes 0 , 

/* 

cbr_var_i nput .c 

drawsymbol () , 

/* 

images. c 

get__element_calls () , 

/* 

element_f ile. c 

handler () , 

/* 

gcb.c 

lnlt vars () , 

/* 

init_vars .c 

instal l_symbol () , 

/* 

symbols .c 

load_£n_llst () , 

/* 

object . c 

next_avall_sym() , 

/* 

symbols . c 

update_symbol pos(). 

/• 

symbols .c 

valld_fn_narae () ; 

/* 

object . c 


*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

•/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

•/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


V 




9tfoBmSf 

I 09:43:59 ! 

•define gcb_i con_wl dth 48 
•define gcb icon height 48 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

Oxl£, 

0x00, 

0x00, 

0x00, 

0x00, 

0x80, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x40, 

0x00, 

0x00, 

Oxf c. 

0x7 f , 

0x20, 

0x80, 

0x00, 

0x00, 

0x04, 

0x40, 

0x20, 

0x80, 

0x00, 

0x00, 

0x04, 

0x40, 

QxaO, 

Oxbf , 

OxQO, 

Qx80, 

0x74, 

0x5d, 

0x20, 

0x80, 

0x00, 

0x00, 

0x05, 

0x40, 

0x20, 

0x80, 

0x00, 

Oxf 0, 

0x07, 

0x40, 

0x40, 

0x40, 

0x00, 

0x10, 

Oxb5, 

0x5b, 

0x80, 

0x20, 

0x00, 

0x90, 

0x04, 

0x40, 

0x00, 

Oxl f, 

0x00, 

0x10, 

0x04, 

0x40, 

0x00, 

0x04, 

0x00, 

0x10, 

0x04, 

0x40, 

0x00, 

0x04, 

0x00, 

0x10, 

Oxfc, 

0x7 f, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x15, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

OxOe, 

0x00, 

0x10, 

0x00, 

0x02, 

0x00, 

0x04, 

0x00, 

0x10, 

0x80, 

OxOa, 

OxeO, 

Oxff, 

0x00, 

0x10, 

0x00, 

0x07, 

0x10, 

0x00, 

0x01, 

0x10, 

0x00, 

0x02, 

0x08, 

0x00, 

0x02, 

0x10, 

0x80, 

OxOf, 

Oxe4, 

Oxff, 

0x04, 

0x10, 

0x40, 

0x10, 

0x02, 

0x00, 

0x08, 

0x10, 

0x24, 

0x20, 

0x01, 

0x00, 

0x10, 

0x10, 

0x28, 

0x20, 

0x01, 

OxOf, 

Oxf 0, 

Oxl f. 

Ox3f, 

0x27, 

0x01, 

0x00, 

0x10, 

0x00, 

0x29, 

0x20, 

0x02, 

0x00, 

0x08, 

0x00, 

0x25, 

0x20, 

Oxe4, 

Oxff, 

0x04, 

0x00, 

0x41, 

0x10, 

0x06, 

0x00, 

0x02, 

0x00, 

0x81, 

OxOf, 

0x10, 

0x00, 

0x01, 

0x00, 

0x01, 

0x00, 

OxeO, 

Oxff, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

Oxfc, 

Oxff, 

Oxff, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00) 
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gcb_parse.h 





* 

* FILE NAME; gcb_parse.h 

* 

* FILE FUNCTION: 

* 

* This file contains constants and variables which are utilized to parse an expression 

* The YACC defined grammar allows us to determine if a statement is syntactically 

* correct but addtional work must be performed to review the semantics of the expressi 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


Ideflne USER_DEFINED 
•define GCB DEFINED 


* Various defines. 


01 

02 


*/ 


**< — >* 


Defines used for return codes from the parsing routines. 


*/ 

•define PAR$E_SUCCESS 
•define N0_PARSE_M EMORY 
•define UNDECLARED 
•define SYNTAX_ERR 
•define END^OF_FILE 

•define LHS 0 
•define RHS 1 


Ftinction prototypes. 


00 

01 

02 

04 

05 


void set state () ; 


Parsing variables. 


•define 

ADD_OPER 

01 

•define 

MINUS_OPER 

02 

•define 

MULT_OPER 

04 

hie f ine 

DIV OPER 

010 

•define 

ID ENT OPER 

020 

•define 

INVER_OPER 

040 

•define 

TRANS_OPER . 

0100 

•define 

CROSS_OPER 

0200 

•define 

D0T_0PER 

0400 

•define 

SHIFT_OPER 

01000 

•def ine 

MADD OPER 

02000 

•define 

MMINUS_OPER 

04000 

•define 

MMULT_OPER 

010000 

•define 

MATRIX_0PERATI0N 

01 

•define 

SCALAR_0PERATION 

02 

•define 

MAX PARSE MESSAGE 

80 


n 

33 

m 

o 

irn 

g 

,”2 

0 

-0 

> 

0 

rn 


Data structure to hold matrix data. 


struct matrlx_data i 

char md_name[ MAX_SYMBOL_SIZE + 1 | ; 

lnt mdattrlbutes; 

short mdnumdlmenslons; 
short md_subs[ MAXDIMENSIONS J; 

) ; 


lnt paren_count, WhereAmI, SetSym, stable_state; 

/* 

* Constants used when performing type checking on expressions. 

*/ 

Ideflne INVALID_EXPRESSION 0 

Ideflne VALI0_EXPRESSION 1 

/* 

* Constants used to indicate whether or not a function call is in progress. 

*/ 


Ideflne ON 1 

•define OFF 0 

/* 

* Constants used to indicate whether or not a function is a user defined or GCB 

* defined function. 

*/ 



BLANK not RLNiED 
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FILE NAME: 


Images . c 


FILE FUNCTION: 

This file contains the routines which draw the symbols into the symbol 
canvases . 


SPECIFICATION DOCUMENTS: 


/home/ pro Ject/3 531 /Docu/GCB. spec.doc 


FILE MODULES: 

char_height () 
chars_per_line () 
determine_height () 
draw_begin () 
draw_end () 
draw_goto () 
draw 1 f {) 
draw pause {) 
draw print () 
draw_set () 
draw_start {) 
draw_stop{) 
draw_symbol 0 
drawjext () 
draw_text_symbol () 
num_Lines () 
longest_line () 
stringcpy 0 
x_offset () 


MODULE NAME: char height 0 


MODULE FUNCTION: 

This routine returns the height of each char given the current font. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


- determines the height of each char given the current font. 

- determines • of chars per line given char size and syra width. 

- sets the height of the symbol based on the text. 

- draws the begin symbol. 

- draws the end symbol. 

- draws the goto symbol. 

- draws the if symbol. 

- draws the pause symbol. 

- draws the print symbol. 

- draws the set symbol. 

- draws the start symbol. 

- draws the stop symbol. 

• depending on parameter, draws the correct symbol. 

- draws text into a print, if, or set symbol. 

- draws the text symbol. 

- determines • lines a string will need given a width. 

- determines the longest line in a string. 

- copies 1 string, starting at char n, to parameter len 

- Determines horizontal offset to center string in symbol. 


int charheight 0 


if ( WAFont =» big_font ) 
return ( 15 ); 
else if ( WAFont »- small font ) 
return ( 12 ); 
else If { WAFont -«* teeny 
return { 10 ); 


- teeny font ) 


•include <stdlo.h> 

•include <X11/Intrinslc.h> 
•include <Xm/Xm.h> 

•include "geb.h" , 

•Include "lines. h” 

•Include "widgets. h H 
•include "images. h" 
•include "fonts. h" 


Q3!Aliy ION >?NV10 39Vd 9MIQ303Hd 



MODULE NAME: chars_per_li ne () 

MODULE FUNCTION: 


This routine determines how many characters will fit on a line of a given 
width given the current font. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 

A*********************************** **< >*** ******** 


int chars_per_line ( w ) 
int w; 


if ( WAFont blg_font ) 
return ( (w-7) / 9 ); 
else if ( WAFont small_font ) 
return ( (w-7) / 6 ); 

else 

return ( (w-7) / 6 ); 




images.c 


MODULE NAME: determine height () 


MODULE FUNCTION: 

This routine uses the width of the symbol, the font, and the amount of text 
to determine the symbol's height. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


int determineheight ( widget, w ) 

Widget widget; 
int w; 


Arg args [ 1 j ; 

int exprllnes, 

symlines, 
sym type; 

if ( (Isymtext) && (lexpr text) ) 

{ 

user ack ("determine height: no logical or expression text, empty symbol"); 
canceldraw ( ) ; 
return ( ERR ); 

1 


* determine height of symbol depending on the longer of . the 2 texts. 
V 

sym_lines = numlines( sym_text , cha rs_per_l ine (w) ); 


* This routine is called only for PRINT, SET, and IF symbols; 

* print symbol height is always determined by symtext, if /set height 

* by longer of exprtext and sym_text. 

*/ 


XtSetArg( args[0}, XmNuserData, &sym_type ); 

XtGetValues( widget, args, 1 ); 

if ( sym_type PRINT ) 

( 

if ( Zoomed ) 

XtSetArg( args[0], XmNheight, sym_llnes*char_height () +31 ); 
else XtSetArg( args (01, XmNheight, sym_l ines*char_height () +46 ); 
1 

else 

{ 

expr_lines = numllnes( expr_text, chars_per_line (w) ); 
if ( symlines < expr_lines ) 
sym_lines = exprllnes; 
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/* 

* SET must be at least 2 lines or It looks silly. 

*/ 


if ( ( sym_type — SET) (sym_llnes < 2) ) 
sym_llnes - 2; 

/* 

* set the height of if symbols based on # of lines plus space for 

* shape, depending on whether or not we are zoomed; height of set 

* is constant 10 plus the number of lines. 

*/ 


if ( Zoomed ) 

XtSetArg{ args[0], XmNheight, 
(Isym type— IF) ? 31 : 10) 
«l«o XtSol:Arg( args(O), XmNheight, 
((sym type— IF) ? 46 ; 10) 

} 

XtSetValues( widget, args, 1 ) ; 


sym_llnes*char_height () + 
) ; 

sym Ilnes*ch.ir height () * 
) ,* 


>*'*"****' 

* MODULE NAME: draw_begin() 

* MODULE FUNCTION: 

* This routine draws the begin symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

««**««ft««*****«**««ft*««ft«ftft**t«*««»*«'**< >*»***'****" 


void draw_begln{ gc, w, h ) 


return ( sym_llnes ); 


GC gc; 
int w, h; 

int x_val = x_offset ( w, "BEGIN" ) ; 


/* 

* draw a filled oval in the begin symbol's colors. 

•/ 


XSetForeground ( display, gc, colors lget_my background (BEGIN) J ); 


XFlllArc( display, 
XFillArc( display, 
XFillArc ( display, 
XFillArc( display. 


drawable, 

gc. 

3, 

0 , 

w-5, 

h-3, 

90*64, 

90*64 

drawable, 

gc. 

3, 

0 , 

w-5, 

h-3. 

90*64, 

-90*64 

drawable, 

gc. 

3. 

0 , 

w-5, 

h-3, 

270*64, 

-90*64 

drawable, 

gc. 

3, 

0 , 

w-5. 

h-3. 

270*64, 

90*64 


XSetForeground! display, gc, colors l get _my_f or eg round (BEGIN) 1 ); 


/* 

* draw an oval, then the word "BEGIN" 
V 


h - h-3; 


XDrawArc ( 

display, drawable, gc. 

XX, 

o f 

, w - 5, 

h. 

90*64, 

90*64 

XDrawArc ( 

display, drawable, gc, 

XX, 

0, 

, v - 5, 

h. 

90*64, 

-90*64 

XDrawArc ( 

display, drawable, gc, 

XX, 

o, 

, w - 5, 

h, 

270*64, 

90*64 

XDrawArc ( 

display, drawable, gc, 

XX, 

0, 

, w - 5, 

h, 

270*64, 

-90*64 

XDrawString{ display, drawable, 

gc, 

x_val, h/2 

+ 

4, "BEGIN 

", 5 ) 


/ 


< > 



MODULE NAME: draw_end () 


MODULE FUNCTION: 

This routine draws the end symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


•••»■». > a< > 

void draw_end( go, w, h ) 

GC gc; 
lnt w, h; 


im. jn.il - x oil sot ( w, "END” ) ; 

/* 

* make a square out of the parameter rectangle - thus the arcs draw a cl 
*/ 

If ( w > h ) 
w = h; 

else If (h>w) 
h - w; 

/* 

* draw a filled oval In the begin symbol's colors. 

*/ 

XSetForeground) display, gc, colors (get_my_background (END) I ) ,- 

XFillArc ( display, drawable, gc, 3, 3, w - 3, h - 5, 90*64, 90*64 ); 

XFil lArc ( display, drawable, gc, 3, 3, w - 3, h - 5, 90*64, -90*64 ) ; 

XFillArc) display, drawable, gc, 3, 3, w - 3, h - 5, 270*64, 90*64 ); 

XFillArc ( display, drawable, gc, 3, 3, w - 3, h - 5, 270*64, -90*64 ); 

XSetForeground (display, gc, colors [get_my_foreground (END) | ) ,- 

/* 


* draw z 

*/ 

i circle, 

then the 

word 

END 








XDrawArc ( 

display, 

drawable. 

gc. 

XX, 

yy. 

w 

- 3, 

h - 

5, 

r 90*64, 

90*64 

XDrawArc ( 

display, 

drawable, 

gc, 

XX, 

yy, 

w 

- 3, 

h - 

5, 

, 90*64, 

-90*64 

XDrawArc ( 

display, 

drawable, 

gc, 

xx, 

yy , 

w 

- 3, 

h - 

5, 

, 270*64, 

90*64 

XDrawArc ( 

display, 

drawable. 

gc, 

XX, 

yy, 

w 

- 3, 

h - 

5, 

, 270*64, 

-90*64 

XDrawString! displ 

ay, drawable. 

gc, 

x va 1 

, 

h/2 

♦ 4, 

“ END ** , 3 } 
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>**“**“»• 

* MODULE NAME: draw_goto() 

* MODULE FUNCTION: 

* This routine draws the goto symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


/ M M MtMM 

void draw goto ( canvas, gc, w, h ) 

GC gc; 

int w, h; 

Widget canvas; 


int x_val «= xoffset! w, sym_text ); 
h - h+5; 

/* 

* draw a filled semicircle on either side of a filled rectangle. 

*/ 

XSetForeground ( display, gc, colors [get_my_background (GOTO) ) ); 

XFillArc( display, drawable, gc, 3, -5, w - 5, h, 135*64, 90*64 ); 

XFillArc( display, drawable, gc, 3, -5, w - 5, h, 45*64, -90*64 ); 

1 f ( Zoomed ) 

XFiliRectangle ( display, drawable, gc, 11, 4, 56, h-14 ); 

else 

XFiliRectangle! display, drawable, gc, 17, 6, 81, h-21 ); 
XSetForeground! display, gc, colors (getmyforeground (GOTO) 1 ); 

/* 

* draw a semicircle on either side of a rectangle; draw inside the 

* name of the element to go to. 

*/ 

XDrawArc ! display, drawable, gc, xx, -5, w - 5, h, 135*64, 90*64 ); 

XDrawArc! display, drawable, gc, xx, -5, w - 5, h, 45*64, -90*64 }; 

if ! Zoomed ) 

( 

XDrawLinef display, drawable, gc, 12, 3, 64, 3 ); 

XDrawLine! display, drawable, gc, 12, h - 11, 64, h - 11 ); 


XI) raws t ring ( display, 
XDrawString! display, 
} 

else 



dr awable, 
drawable, 


gc, 30 , h/2 - 6, "CALL” 
gc, x_val , h/2-* 6, sym_text , 


4 ) ; 

st r len (sym_text ) ); 



XDrawLlne( display, drawable, gc, 18, 6, 95, 6 ); 

XDrawLine ( display, drawable, gc, 18, h - 15, 95, h - 15 ) ; 


XDrawStrlng ( display, drawable, gc, 45, h/2 - 4, "CALL", 4 ) ; 

XOrawSCringf display, drawable, gc, x val, 50, syra text, strlenfsym text) ) 
I 





i* 91/08/29 J 
09:44:02 

. .■ ' . r,-s. 
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/* 

* draw sides 

*/ 


if ( Zoomed ) 

I 

XDrawLine( display, drawable, gc, 3, 16, 3, new_he ight-1 6 ); 
XDrawLine( display, drawable, gc, w-1, 16, w-1, new_height-l 6 ); 
} 

else 

{ 

XDrawLine( display, drawable, gc, 3, 23, 3, new_height-23 ); 
XDrawLlne{ display, drawable, gc, w-1, 23, w-1, newhe lght -23 ); 
J 

) 



******* ******* 

* MODULE NAME: draw_pause() 

* MODULE FUNCTION: 

* This routine draws the pause symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 06/28/91 

****•***•******************«****•*****«*< >****************************************/ 


void draw_pause ( canvas, gc, w, h ) 

GC gc ,* 

int w, h; 

Widget canvas; 


int x_val *» x_offset( w, symtext ); 

/• 

* make a square out of the parameter rectangle - thus the arcs draw a circle 

*/ 

if { w > h ) 
w » h; 

else if ( h > w ) 

h - w; 

/* 

* draw a filled circle in the pause symbol's colors. 

*/ 


XSet Foreground ( display, gc, col ors [get_my_background (PAUSE) j ); 


XFillArc{ display, drawable, 
XFillArc( display, drawable, 
XFlllArc( display, drawable, 
XFlllArc( display, drawable, 


gc, 3, 3, w 
gc, 3, 3, w 
gc, 3, 3, w 
gc, 3, 3, w 


3, h - 5, 90*64, 90*64 ) 
3, h - 5, 90*64, -90*64 > 
3, h - 5, 270*64, 90*64 ) 
3, h - 5, 270*64, -90*64 ) 


XSet Foreground (display, gc, colors [get_my_foreground (PAUSE) ) ); 
/* 

* draw a circle. 

*/ 


XDrawArc ( 

display. 

drawable, 

gc. 

XX, 

yy, 

w 

- 3, 

h - 5, 

90*64, 

90*64 ) 

XDrawArc ( 

display. 

drawable. 

gc. 

XX, 

yy, 

w 

- 3, 

h - 5, 

90*64, 

-90*64 ) 

XDrawArc ( 

display. 

drawable. 

gc. 

XX, 

yy» 

w 

~ 3, 

h - 5, 

270*64, 

90*64 ) 

XDrawArc ( 

display. 

drawable. 

gc. 

XX, 

yy. 

w 

- 3, 

h - 5, 

270*64, 

-90*64 ) 

/* 

* draw i 

Lhe pause 

amount, then 

the 

clock 

face 

numerals 

; in smaller font 


V 


XDrawString( display, drawable, gc, x_val, h/2+4, sym_text, 



st r lea (sym text ) ); 





if { ! Zoomed ) |/ 

XSetFont ( display, WAgc, {Font ) t eeny_f ont ); 

XDrawString{ display, drawable, gc, 5, h/2, "9", 1 ); 

XDrawStringt display, drawable, gc, w-8, h/2, "3", 1 ); 

XDrawStrlng( display, drawable, gc, w/2-2, 10, "12", 2 ); 

XDrawString( display, drawable, gc, w/2, h-5, "6", 1 ); 

XDrawLine( display, drawable, gc, w/2, 12, w/2, h/2-9 ); 

XDrawLine( display, drawable, gc, w/2, h/2+8, w/4, h-9 >; 

/* 

* restore former font 
*/ 

if ( ! Zoomed ) 

XSetFont { display, WAgc, (Font) WAFont ); 


C >**»*»*».**»**M***M**t*»»**MM»M.***. 

MODULE NAME: draw_print () 

MODULE FUNCTION: 

This routine draws the print symbol. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 00/01/91 
Release 1.02 - 08/28/91 

********************«**•***»*»•*******< 


void draw_print ( canvas, gc, w, h ) 


Widget 

canvas; 

GC 

gc; 

int 

w, h; 

Arg 

args I 1 j ; 

Dimension nh; 

int 

lines, nowhclght; 

/* 

* set 

*/ 

height based on number of 


if ( (lines » determine_height (canvas, w) ) -» ERR ) 
return; 

XtSetArg{ args(0], XmNhelght, 4nh ); 

XtGetValucs( canvas, args, 1 ); 

/* 

* color symbol and draw text. 

*/ 


if ( draw_text (gc, 0, 0, (int)nh, w, PRINT) — ERR ) 
return; 


new_helght (int)nh; 


/* 

* draw top lines 

*/ 


if ( Zoomed ) 

{ 

XDrawLlne( display, 
XDrawLine( display, 
} 

else 

I 

XDrawLine( display, 
XDrawLine( display, 
J 


drawable, 

drawable. 


drawable, 

drawable. 


gc, 

gc. 


gc, 

gc, 


3, 16, 37, 3 ) ; 
37, 3, w-3, 3 >; 


3, 23, 56, 3 ) ; 
56, 3, w-3, 3 ); 



/* 

* draw bottom line 

*/ 


XDrawLine( display, drawable, gc, 3, 
/• 

* draw sides 

*/ 


new_helght-3, w-3, new_height-3 ); 


1 


XDrawLine( display. 


XDrawLine( display, 



drawable, 

drawable, 


qc, 3, (Zoomed ? 16 : 23), 3, new_height-3 ); 
gc, w-3, 3, w-3, new_helght-3 ); 


images. c 

/***********************************a*** * ^ > * ************** 

4 MODULE NAME: drawset () 


MODULE FUNCTION: 

This routine draws the set symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


****************************************< >* * ************** 

void draw_set ( canvas, gc, w, h ) 

GC gc; 

Widget canvas; 
int w, h; 


Arg 
int 

Dimension 

/• 

* set height based on number of lines of text 

V 

if ( (lines - determine_height (canvas, w) ) «« ERR ) 
return; 

XtSctArg( args(0), XmNheight, &nh ); 

XtGelValuos( canvas, args, 1 ); 

/• 

* color symbol and draw text. 

V 

if ( draw_text (gc, 0, 0, (int)nh, w, SET) ERR ) 
return; 

new_height = (int)nh; 

/* 

* draw top line 

*/ 

XDrawLine( display, drawable, gc, 3, 3, w-1, 3 ); 

/* 

* draw bottom line 
*/ 

XDrawLine( display, drawable, gc, 3, new_height-l, w-3, new 

/* 


args [1 ] ; 

lines, newheight; 
nh; 



height-1 ); 


draw sides 



mil 
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XDrawLlne ( display, drawable, gc, 1, 3, 1, new_height-3 ); 
XDrawLlne { display, drawable, gc, w-1, 3, w-1, new_height-3 ), 


MODULE NAME: drawstart () 

MODULE FUNCTION: 

This routine draws the start symbol. 
REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


* < >* 


void draw_start ( canvas, gc, w, h ) 

GC gc; 

Widget canvas; 
int w, h; 


{ 

Int x_val « x_offset( w, sym_text ); 


/* 

* draw a filled rectangle. 
V 


XSet Foreground ( display, gc, colors [get_my background (START) J ); 

XFi 1 1 Rectangle ( display, drawable, gc, 3, 3, w-5, h-5 ); 

XSetForeground ( display, gc, colors (get _my_foreground (START) ] ); 

/* 

* draw a rectangle, then the vertical lines that distinguish a start symbol, 

• then the name of the element to start. 

V 


XDrawRectangle ( display, drawable, gc, xx, yy, w-5, h-5 ); 

If ( Zoomed ) 

{ 

XDrawLlne ( display, drawable, gc, xx + 3, yy, xx + 3, h - 4 ); 

XDrawLlne ( display, drawable, gc, w - (xx + 2), yy, w - (xx + 2), h - 4 ); 

XDrawString( display, drawable, gc, 14, h/2 - 2, "ACTIVATE", 8 ); 
XDrawStringl display, drawable, gc, x_val , h/2+6, sym_text , st r len (sym_text ) ); 
) 

else 

1 

XDrawLine( display, drawable, gc, xx * 10, yy, xx * 10, h — 4 ) ; 

XDrawLlne( display, drawable, gc, w - 12, yy, w - 12, h - 4 ) ,* 

XDrawStr lng ( display, drawable, gc, w/2 - (XTextWidt h ( fs, "ACTIVATE", 8)/2), 
h/2 - 9, "ACTIVATE", 8 ) ; 

XDrawString( display, drawable, gc, x_val, 42, sym_text, st r len (sym_text ) ); 
1 



MODULE NAME: draw_stop{) 


MODULE FUNCTION: 

This routine draws the stop symbol. 

REVISION HISTORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


A*****************************,,********* 

void draw_stop( canvas, gc, w, h ) 

GC gc; 

Widget canvas; 

lnt w, h; 

I 

lnt x_val - x_of f set ( w, sym_text ); 

XPolnt polnts( 8 ); 

/• 

• till an octagon. 

*/ 


XSetForeground ( display, gc, colors lget_my_background (STOP) ] ); 


points ( 0 ] .x 


Zoomed 

2 

1 

2 ; 

points(O) .y 


Zoomed 

7 

19 

28; 

points [ 1 ] .x 

■ 

Zoomed 

? 

20 

30 

points [ 1 ) .y 

- 

Zoomed 

7 

2 

3; 

points [ 2 J .x 

- 

Zoomed 

7 

43 

65 

point s[ 2 ) .y 


2 oomed 

7 

2 

3; 

points (3 1 .x 

- 

Zoomed 

7 

60 

90 

polnts[3) .y 

- 

Zoomed 

7 

19 

28; 

points (4 j . x 

“ 

Zoomed 

7 

60 

90 

polnts[ 4 1 .y 


Zoomed 

7 

42 

63; 

points [5 } .x 

“ 

Zoomed 

7 

43 

65 

points ( 5] .y 

- 

Zoomed 

7 

59 

88 ; 

points ( 6 ) .x 

- 

Zoomed 

7 

20 

30 

point s [ 6 ) .y 

= 

Zoomed 

7 

59 

88 ; 

points [7 ] .x 


Zoomed 

7 

1 

2 ; 

points[7] .y 

- 

Zoomed 

7 

42 

63; 


XFil lPolygon ( display, drawable, gc, points, 8 , Convex, CoordModeOrigin ); 
XSetForeground! display, gc, colors [get_my_£oreground (STOP) ) ); 

/* 

* draw an octagon. 

*/ 


It ( Zoomed ) 

( 

XDrawLl ne ( display, drawable, gc, 1, 19, 1, 42 ) ; 

XDrawLine ( display, drawable, gc, 1, 19, 20, 2 ); 

XDrawLlne ( display, drawable, gc, 20, 2, 43, 2 ); 

XDrawLine ( display, drawable, gc, 43, 2, 59, 19 ); 

XDrawLlne ( display, drawable, gc, 59, 19, 59, 42 ) ; 

XDrawLine ( display, drawable, gc, 43, 59, 59, 42 ); 

XDrawLine ( display, drawable, gc, 20, 59, 43, 59 ) ; 

XDrawLlne) display, drawable, gc, 1, 42, 20, 59 ); 


XDrawString! display, drawable, gc, 19, h/2 - 4, "STOP", 4 ); 

XDrawString! display, drawable, gc, x_val , h/2 + 4 , sym text, strlen(sym text)); 





> 

* 

* MODULE NAME: draw_symbol () 


MODULE FUNCTION: 

This routine calls the routine which draws the specified symbol Image 
into the specified symbol canvas. 

for if/set, the basic algorithm Is: 

determine_height 
fill in outline 
draw text 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


* •*< >* * 

int draw^symbol ( symbol_type, canvas, gc, font ) 

lnt symbol_type; 

Widget canvas; 

GC gc; 

Font font; 


lnt w, h; 

XWindowAtt ributes attrlbs; 

/* 

* use XLlb calls to get the drawable resouce of the parameter window and 

* its size and to clear the window of its old contents. 

*/ 

drawable » XtWlndow( canvas ); 

if ( ! XGetWindowAttributes (display, drawable, sattribs) ) 
errorjiandler ( ERR_SYM_ATTRIBS, "draw_symbol“ ); 

w “ attrlbs .width; 
h - attrlbs. height ; 

XClearWi ndow ( display, drawable ); 

If ( font ) 

XSetFont ( display, WAgc, WAFont ** (Font) font ); 

/* 

* get the font currently being used in the parameter gc; set variable 

* fs to this font. All draw requests will be made using this font. 

*/ 

gcon - XGContextFromGC ( gc ); 
fs - XQueryFont ( display, gcon ); 

switch ( symbol_type ) 

i 



| ' 91/08/29 -'j 
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/«****«***»****************rt*************^ > 

* 

* MODULE NAME: draw_text () 

* 

* 

* MODULE f UNCTION: 


break; 
case SET: 

XF ill Rectangle { display, drawable, gc, 0, 3, w, h ); 
brea k ; 


This routine determines the size of variable-size symbols based on the amount 
of text they contain; it then colors the symbol and prints the text. The 
symbol must be colored first since the 'fill' routines clear the previous 
contents . 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 

Release 1.01 
Release 1.02 


07/17/91 

08/01/91 

08/28/91 


int draw_text ( gc, x, y, h, w, type ) 


/ 


XSet Foreground ( display, gc, colors [get_my_foreground (type) ] ); 
/* 

* sot vertical offset into symbol. 

V 


if { type — SET ) 

yoffset = char height () ; 

else 

[ 

if ( Zoomed ) 

yoffset c 18 + char_height () ; 

else 

yoffset = 22 + cha r_height ( ) ; 

> 


GC gc; 

int x, y, h, w, type; 

i 

int i « 0, j - 0, 
yoffset, 
which_text , 
num_chars; 

char temp IMAXJT EXT ] ; 

XPoint points(6}; 

/* 

* fill in symbol outline. Do this before drawing text since XFill* 

* routines clear the symbol. 

*/ 

XSet Foreground ( display, gc, colors [get_my_background (type) J ); 
switch ( type ) 

t 

ca se IF: 


points [0 ] . x 

- 3; 

points[0].y ■= Zoomed ? 16 : 23; 

points (1 | .x 

- w/2; 

points £ 1 J - y - 3; 

points [2] .x 

■ w; 

points [2 |.y = Zoomed ? 16 : 23; 

points [3 ] .x 

= w; 

points(3).y » Zoomed ? h-16 : h-23 

polnts[4J .x 

- w/2; 

points[4).y = h-3; 

po 1 nt s 1 5 1 . x 

- 3; 

points[5].y = Zoomed ? h-16 : h-23 


/• 

* which text are we going to display - logical or expression 

•/ 

if ( (type -» PRINT) || ( ! LogOrCompText ) ) 

which_text » 1; 

else 

which__text =0; 

/* 

* determine length of either logical or expr text; if none, length is 0. 

*/ 

if ( which text ) 

( 

if ( sym text ) 

num_chars ■ strlen( sym_text ); 

else 

num_chars = 0; 

} 

else 

( 

if ( exprtext ) 

num_chars « strlen( expr_text ); 

else 

num_chars = 0; 

) 


XFil 1 Polygon ( display, drawable, gc, points, 6, Convex, CoordModeOrigin ); 
break; 

case PRINT: 


/* 

* copy segments of text into buffer, and draw them on the screen, 

* yoffset apart. 

*/ 


po i nt s [ 0 ] . x 
po i nt s { 1 1 . x 
points [2) .x 
points (3 J ,x 
points [4 ] . x 


3; 

poi nts [0 | . y 

= Zoomed ? 

Zoomed ? 37 

56; polntsUl.y 

- 3; 

w; 

points[2) .y 

- 3; 

w; 

points[3 ) ,y 

= h; 

3; 

points [4 ] , y 

- h; 


while ( (i +*= st ri ngcpy (temp, which_text ? sym_text : expr_text , i, chars_per_l 1 ne (w) ) ) 


<= num_chars ) 

{ 

if ( Zoomed ) 

XDrawString( display, drawable, gc, x ? x : 5, 
y + ( j*char_height () ) + yoffset. 


XFil lPolygon ( display, drawable, gc, points, 5, Convex, CoordModeOrigin ); 
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temp, strlen(temp) ); 

else XDrawStrlng( display, drawable, gc, x ? x : 5, 
y + { j*char_height 0 } + yoffset, 
temp, strlen(temp) ) ; 

1 


* 

* MODULE NAME: draw_text_symbol {) 

* MODULE FUNCTION: 

* This routine draws the text symbol. 

* REVISION HISTORY: 

4 Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

4 Release 1.02 - 08/28/91 

****•*»**«***«********•*•******»********< >***»« '**"* 



void drawt ext symbol ( canvas, gc, w, h ) 


Widget canvas; 

GC gc; 

int w, h; 

Arg args(10); 

char Mine; 

int lines, 

chars per_l 1 no; 


/* 

4 Set the width of the canvas to fit the longest line of text. 
*/ 


line = longest_l ine { symtext, 4 chars_per_l ine ); 

XtSetArg( args[0], XmNwidth, XTextWldth (fs, line, chars_per_l i ne) + 3 ); 
XtSetValues( canvas, args, 1 ); 

/• 

• Set the height to fit the f of lines X the char height 

*/ 


lines * numlines( sym_text, chars_per_i ine ); 

XtSetArg( args[0J, XmNheight, lines * (char_height () +5) ); 
XtSetValues ( canvas, args, 1 ); 

XSetForeground ( display, gc, colors (get_my_foreground {TEXT) ) ); 
set_text { canvas, gc, 2, char_helght () , sym_text >; 


) 


*** *******< > 


I kmmfw i 

ilfipljj! 

/*******«*******«************** 

* 

* MODULE NAME: numlines () 

* longest_line {) 


MODULE FUNCTION: 

numlines: determines the number of lines the string parameter will require, 

given the width of the symbol 

longest_line : determines the maximum width necessary for the symbol. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


ft********************************.**** *.< >* * ******»****..MM*.M«.M*****».» 

int numlines ( buf, chars_per ) 

char *buf; 

int chars per; 

i 

char *p - buf; 

int i - 0, count - 0, placeholder = 0, reset = 1, lines = 1; 

if ( ! buf j 
/* 

* NULL string requires 1 line. 

V 

return ( lines }; 

/* 

* skip til we find the end of the current word, a newline, or the 

* end of buf. 

V 

while { TRUE ) 

{ 

while { jp(ij) && (p(i) ! *■ ' ') && < p [ 1 1 ! = '\n') && (count < charsper) ) 

1 

i + + ; 

count++; 

} 

if ( (p[i] ' ') || (!p[i)) ) 

1 

/* 

* end of word or end of buf 

*/ 

if ( ip[i] ) 

/* 

* done 
V 


return ( lines >; 
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09:44:02 


( 

lnt 1 » 0; 
temp - p; 

while ( (*p) a (*p !- '\n'| ) 
l 

pti; 

i*+; 

I 

It ( 1 > longest ) 

( 

‘w - longest - 1; 
temp2 « temp; 

) 

If ( *p — ' \n' ) 

/* 

* pass over newline; reset count 
*/ 


P+-t; 

1 

return! (char *) cemp2 ); 



MODULE NAME strlngcpy!) 

MODULE FUNCTION: 

This routine copies string t to string s starting at char start, up to size or 
null byte, whichever comes first, returns number of chars copied. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

• •••••••••••••••'■•••••••••••••••••■a * *< >•**• •»»*•»•*••»•***•»*•***•»•*•••*»' 


lnt strlngcpy! s, t, start, size ) 

char ’s, *t; 
lnt start, size; 

I 

char “p = s; 

char *q = t * start; 

lnt j, 1-0, total - 0; 

if ( (!q) II C*q> ) 

return ( 1 ) ; 

while ( TRUE ) 

I 

1 - 0 ; 

while ( (q [ 1 ] ) li (q [ 1 ] !- ' ') it <q[i) !- '\n') it (1 < size) ) 
/* 

• determine length of next word 
*/ 

i + + ; 

It 1 (total \ 1) <- size ) 

{ 

V* 

* enuf room on current line for this word, copy it 
V 


for ( j - 0; j < i; j + + ) 
*p++ = *q* + ; 
total += i; 
if ( ! (*q) ) 


/* 

* end of string 
V 


i 

*P « *q; 

return( strlen(s) ); 

I 

else if ( *q — * \n* > 

I 


WM* 
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*p+t - ' > ; 

<p . ' \ O' ; 

return ( strlen(s) ) ,- 

1 

else if ( *q !- ' • ) 


* one long word 
*/ 

( 

*p++ - '\0'; 
return( sire ); 

I 

/* 

* find start of next word 


llifei 


MODULE NAME: xoffsetd 

MODULE FUNCTION: 

Determines the horizontal offset to center a string In a symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


« < v _>**ft*******ft**********«***ft***<i*ft**ftft****/ 


While ( *q mm • > ) 

( 

*p+* ■■ *q+ + ; 
tota 1++; 

) 

I 

else 

/* 

* not enough room on line for next word, return line so far 
V 

l 

*p ~ ' \0' ; 
return! total ); 

I 

I 


lnt x offset ( w, str ) 

lnt w; 

char *str; 

! 

/• 

* from the center of the width, back up 1/2 the width required for the 

* text using the current font. 

*/ 

lnt 1 ■ ( (w/ 2 ) - (XTexlWidl.hils, str, atrlon (str) ) /2 ) ); 

/* 

* offset must be at least 3 pixels from the center. 

*/ 

return! (1 > 3) ? 1 : 3 ) ; 

) 


images.h 




• ft*.*****. •****. **.«*..«•**. **«****... *< > »******<>***»««M*M*M*«tM*MMt 

FILE NAME: images. h 

FILE FUNCTION: 

This file contains the global variables and function prototypes for images. c 

SPECIFICATION DOCUMENTS: 

/home/pro ject/ 35 31 /Docu/GCB. spec.doc 


* FILE MODULES: 

* 

* N/A 

« 

* ■•< 

/“ 

* Coordinates of rectangle that contains the drawings/symbols shouldn't collide with 

* canvas borders, so move ulc in a little. 

*/ 

•define xx 3 
•define yy 3 

/* 

* Global variables used In Images. c 
*/ 

Drawable drawablo; 

GContext gcon; 

XFontStruct *fs; 

int Red, 

in sens it 1 ve_color; 


/* 

* Function prototypes for Images. c 

*/ 

char * longest_l ine () ; 

int draw_text(); 

void draw_begin () , 

draw_end () , 
draw_goto () , 
draw_if {) , 
draw_pause 0 , 
draw_print () , 
draw_set () , 
draw_start 0 , 
draw_stop () , 
draw_text_symboi 0 ; 


* FILE NAME: init_X.c 

* 

* FILE FUNCTION: 

* 

* This file contains the routines which create and initialize the X Wi ndows/MOTI F 

* interface of the GCB. 

* 

* FILE MODULES: 


init_graphlcs () 


This routine initializes the X Windows connection and defines 
the X Windows widgets. 


•include <stdio.h> 

•include <X11/Intrinsic. h> 
•include <X1 1/cursor font .h> 
•include <X11/Shell.h> 
•include <X1 1/St ri ngDe f s . h> 
•Include <Xm/Xm.h> 


1 1 nc 1 ude 

• 1 nclude 

• 1 nclude 
•include 
• i nclude 
• 1 nclude 
•include 

• Include 

• include 
•Include 

• i nclude 
•include 
•Include 
•include 

• i nclude 

I include 
•include 

• 1 nclude 
•1 nclude 
• Include 
• i nclude 
•include 
•Include 
•include 
•include 
•include 

• i nclude 


<Xm/Bul letlnB.h> 
<Xm/CascadeB. h> 
<Xm/DialogS. h> 
<Xm/DrawingA. h> 
<Xm/Form. h> 
<Xm/Frame.h> 
<Xm/Label .h> 
<Xm/MainW.h> 
<Xm/MessageB. h> 
<Xm/PushB. h> 
<Xm/RowCo 1 umn . h> 
<Xm/ScrolledW.h> 
<Xm/ScrollBar .h> 
<Xm/Text . h> 
<Xm/ToggleB.h> 

"gcb. h‘* 

"pixmaps. h" 
"next_inputs.h" 
"widget s. h H 
"1 lnes . h" 
"constants . h" 
"cbr . h" 

"init_X . h" 
"fonts. h" 
"cursors . h" 
"gcb_icon.h" 
"element file.h" 


void 


char 


get_colors {) ; 
help_str ( J 


"Select the button to display HELP for"; 


MODULE NAME: initgraphics ( ) 

MODULE FUNCTION: 


£ 

53 

m 

O 

m 


This routine builds the MOTIF-based user Interface. This routine builds all 
the forms and popups which comprise the Interface. This routine also installs 
the callbacks which control the Interface. 


REVISION HISTORY: 


2 

O 

T3 

> 

a 

m 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


» < >* 


void init_graphics () 

{ 

Arg 

int 

Pixel 


Pixmap 

Xlmage 


args [101; 
n? 

background, 
foreground; 
lcon_pixmap, 
pixmap; 
•image; 


XSetWindowAttributes attrlbs; 


Font 

GContext 
XFont Struct 


sm_font, lg_font; 
gcon; 

*f s; 


image - (Xlmage *) CreateDef aul t Image ( quest ionBit s, 22, 22 ); 

Xmlnstal Ilmage ( image, "quest ion_lmg" ); 

/* 

* Create the main application shell and the main window. 

*/ 

top - XtAppCreateShell ( "gcb", "GCB", appll cationShel lWidgetClass, display,NULL, 0} ; 

/* 

* Are we on a color or a mono display? 

*/ 

if ( DisplayPlanes (display, DefaultScreen (display ) ) 1 ) 

Color - False; 

else 

Color * True; 

/* 

* Create and install the GCB icon. 

*/ 

icon_pixmap - XCreateBitmapFromData ( display, Root WindowOf Screen (XtScreen (top) ) , 

gcb_icon_bits r gcb_icon_width, gcb_icon_height) ; 
XtSetArg( args[0], XtNiconPixmap, iconpixmap ); 

XtSetValuos( top, args, 1 ); 


Create the cursors for line draw, print, and delete 


*/ 


BLANK not FILMED 


j 91/08/2' 
0*44:07 


W'iwSvsi' 
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Ccross_cursor 
ul_cursor 
lr_cursor 
baslc_cursor 
clock cursor 


* XCreateFontCursor ( display, XCcrosshalr) ; 

- XCreateFontCursor { display, XC_ul_angle ) ; 

- XCreateFontCursor ( display, XC~lr_angle ); 

* XCreateFontCursor ( display, XC_top_lef tarrow) ; 

- XCreateFontCursor ( display, XC watch) ; 


cascade * cr_cascade( NULLS, mnb_main, menu_pane, NULL, “Comp"); 
/* 

* Create "Element" cascade menu items and menu. 

*/ 


wln__main - XmCreateMa i nWindow ( top, "winmain", NULL, 0 ); 
XtManageChlld ( wln_maln ); 


/* 

* Create the main menu bar and Its associated menu pane which Is where 

* the menu buttons/cascades are installed. 

*/ 


n - 0; 

Xt SctArg ( args(n), XmNresUeWl dt h, False); n+*; 

XtSetArg{ args(nj, XmNresi zeHeight , False); n++; 

XtSetArgl argsjnl, XmNwldth, 1000); n++; 

Xt SetArg ( args(n), XmNheight, 30); n++; 

mnbjnain - XmCreateMcnuBar ( win_maln, "mnb_maln", args, n ); 
XtManageChl Id ( mnb_main ); 
whirl () ; 

/• 

• Create "Position" cascade menu items and menu. 

*/ 


menu _pane «* cr_pul ldown { NULLS, mnb_main ); 


cr_command ( 
cr_command ( 
cr_command { 
cr_command ( 
cr_command ( 
whirl {) ; 


NULLS, menu_pane, 
NULLS, menu_pane, 
NU LLS , menu_pa ne , 
NULLS, menu_pane, 
NULLS, menu_pane, 


"Select Element", cbr_elem popup, 3); 

"Create Element", cbr_elem_popup, 0); 

"Edit Element Purpose", cbr_purpose, 1 ); 

"Delete Element", cbr_elem_popup, 2 ); 

"Print Element", cbr_prlnt, PRINT_REP 


) ; 


cr_command( NULLS, menu_pane, "Save Element", cbr_sa v_el ement , 0 ); 

cr_command( NULLS, menu_pane, "Copy Element", cbr_elem_popup, 1 ); 

menu_pul lrite cr_pul ldown { NULLS, menu_pane ); 

cr_cascade ( NULLS, menu_pane,menu_pull rite, NULL, "Audit Element"); 
menupul 1 r i t e2 - cr_pul ldown (NULLS, menu_pul l ri te ); 

cr_command{ NULLS, menu_pul 1 rl te2, "Check Lines", cbr_audlt, JUST_L1NES ); 

cr_command( NULLS, menu_pullrite2, "Check Expressions", cbr_audit, JUST_EXPR ); 

cr_command{ NULLS, menu^pu 1 1 ri te2, "Lines and Expressions", cbr_audlt, LINES_AND_EXPR) ; 

cr cascade ( NULLS, menu pul 1 ri te, menu pul Ir ite2, NULL, "Show Audit"); 
cr_command( NULLS, menujpu 1 1 ri te, "Clear Audit", cbr audit, 4 ); 

cr_command( NULLS, menupane, "Install Element", cbr_build, BUI LD_E1.EMENT) ; 


menu_pane - cr_pulldown{ NULLS, mnb_main ); 


cascade *= cr_cascade {NULLS, mnb_main, menu pane, NULL, "Element"); 


cr_command{ NULLS, menu_pane, "Select Position", cbr_sel pos, 0 ); 

cr_command{ NULLS, menu_pane, "Create Position", cbr_cre pos, 0 ); 

cr_command ( NULLS, menu_pane, "Exit GCB" , cbrexit, 0 ); 

cascade - cr_cascade ( NULLS, mnbjnain, menu_pane, NULL, "Position" ); 
whirl () ; 

/* 

* Create "Comp" cascade menu items and menu. 

*/ 

menu_pane - cr_pul ldown { NULLS, mnbjnain ); 

crjcommand { NULLS, menu_pane, "Select Comp", cbr_sel_comp, MANAGE ); 

cr_command { NULLS, menu_pane, "Create Comp", cbr ere comp, 0); 

menu_pul lrite - crjaul ldown { NULLS, menu_pane ); 

cr_cascade( NULLS, menu_pane, menu_pul lrite, NULL, "Edit Comp Attributes"); 
cr_command ( NULLS, menujjullrite, "Comp Purpose", cbr purpose, 0); 

cr_command( NULLS, menu_pullrlte, "Select Root Element", cbr~root_elem, MANAGE); 

whirl <) ; 

menu_pul lrite - cr_pul ldown ( NULLS, menu_pane ); 

cr_cascade( NULLS, menu_pane, menu_pullrite, NULL, "Print Comp" ); 
cr_command{ NULLS, menupullrlte, "Print RMS Report", cbrprlnt, PRINT_REP1 ); 

cr_command( NULLS, menu_pullrite, "Print FIDO Report", cbrprlnt, PRINTREP1 ); 

cr__command{ NULLS, menu pullrlte, "Print INCO Report", cbr prlnt , PRINT_REP1 ); 

cr_command( NULLS, menu_pane, "Display Comp Call flow", cbr_ca 1 l_f 1 ow, 0); 

Cr__command( NULLS, menu_pane, "Install Comp", cbr build, BUILD COMP); 

Cr_command{ NULLS, menu_pane, "Validate Comp", cbr validate, 0); 

whirl () ; 


whirl () ; 

/* 

* Create "Macro" cascade menu items and menu.. 

*/ 

/•DEBUG 

menu_pane - crj?ulldown( NULLS, mnb_main ); 


cr 

command ( 

NULLS, 

menu_ 

pane. 

"Begin Macro Capture", 

cbr_exlt , 

0); 

cr 

command { 

NULLS, 

menu_ 

pa ne , 

"End Macro Capture", 

cbr_exlt , 

0); 

cr 

command ( 

NULLS, 

menu_ 

pa ne , 

"Execute Macro", 

cbr_exit , 

0); 

cascade 

cr cascade 

( NULLS 

, mnb_main, menu pane. 

NULL, "Macro" 


whirl 0 ; 


/• 

• Create "Options" cascade menu items and menu. 

*/ 

menu_pane » cr_pulldown{ NULLS, mnbjnain ); 

cr_command( NULLS, menu_pane, "Show Option Settings", cbr_show_status, MANAGE); 
menu_pul lrite - cr_pul ldown (NULLS, menu_pane ); 

cr_cascade( NULLS, menu_pane, menu_pul lrite, NULL, "Set Symbol Display"); 
cr_command{ NULLS, menupul lrite, "Show Logical Text", cbr_set_symjii splay, 1); 
cr_command( NULLS, menupullrlte, "Show Expression Text", cbr_setsym_di splay, 2); 

menupul lrite = cr_pul ldown { NULLS, menu_pane ); 



cr_cascade{ NULLS, menu_pane, menujpullr ite, NULL, "Set Symbol Snap"); 
cr_command{ NULLS, menu_pullrite, "Symbol Snap On", cbrsnap, 1); 
cr_command( NULLS, menu_pull rite, "Symbol Snap Off", cbr_snap, 2); 


menu__pullrite = cr_pul ldown (NULLS, menu_pane ); 
cr_cascade ( NULLS, menu_pane, menu_pullrite, NULL, "Set Audit"); 
cr_command( NULLS, menu_pullrite, "Audit On", cbrauditon, 1); 
cr_command ( NULLS, menu_pullrite, "Audit Off", cbr auditon, 2); 


cr_command ( NULLS, menu_pane, "Set Col ors" , cbr_color_menu, 0); 
cr_command( NULLS, menu_pane, "Set Target Language”, cbr_language_menu, 0) ; 


cascade *■ cr_cascade ( NULLS, mnb_maln, menu_pane, NULL, "Options"); 


init_X.c 

build_pause_popup ( f rm_container ); 
whirl () ; 


f* 

* create print/text popup 
*/ 

build t ext popup ( frm_container ); 
whirl ( ) ; 

/* 

* create element selection popup 

*/ 


whirl () ; 


/• 

* Create "Help" button In main menubar. 
V 


monu_pane - er_pulldown{ NULLS, mnb main ); 

cr_command ( NULLS, menu_pane, "Work Area", cbr_help, WORK_AREA ); 

cr_command{ NULLS, menupane, "Palette Area", cbr_help, PAL£TTE_AR£A ); 

cr_command ( NULLS, menu_pane, "Browse Manual", cbr_help, BROWSE ); 

cascade - cr_cascade( NULLS, mnb_main, menu_pane, NULL, "Help"); 

XtSetArg{ args(0), XmNmenuHelpWldget , (XtArgVal) cascade); 

XtSetValues( mnb_maln, args, 1 ); 
whirl () ; 

/* 

* Create container form 
V 

f rm_contai ner - cr_form( NULLS, winjnain, NULL, 0 ); 
whirl () ; 


build sel elom popup ( frm_cont. a i ner ); 

whirl {) ; 

/* 

* create select root element popup 
V 

bui ld_sel_root_elem { f rm_conta iner ); 
whirl () ; 

/* 

* create element creation popup 

*/ 

build_cre_elem_popup ( £ rm_cont ai ner ); 
whirl () ; 

r 

* create element copy popup 

*/ 

build_copy_elem_popup ( f rm_container ) 
whirl (); 


/* 

* Create the "Set Symbol Attributes" popup. 
*/ 

build_log_attribs ( f rm_conta iner ); 

/* 

* create help popup 

*/ 

build_help{ frm_container ); 
whirl () ; 

/* 

* create call popup 

*/ 

build_call_popup { f rm_container ); 
build_start_popup ( frm_container ); 

whirl () ; 

/* 

* create pause popup 
*/ 


/* 

* create element deletion popup 
*/ 

build_del_elem_popup ( f rm_container ); 
whirl () ; 

/* 

* create comp selection popup 
*/ 

build_se l_comp_popup ( f rm_cont ainer ); 
whirl ( ) ; 

/* 

* create comp creation popup 
*/ 

bui ld_cre_comp_popup ( frm_container ); 
whirl 0 ; 

/* 

* create print element popup 
*/ 
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init X.c 



bul ld_pr int_elem_popup ( f rm_container ); 
whirl () ; 

/* 

* create purpose popup for both comp and element. 

*/ 


bul ld_purpose_popup ( f roi_canta 1 ner }; 
whirl ( ) ; 

/• 

* create create position popup 

•/ 


txtposit ion = crlabeli NULLS, frm_status, "INCO", 0, IGNORE, IGNORE, 40, 90) ; 

c relabel { NULLS, frmstatus, -Comp 0, 8, IGNORE , IGNORE, IGNORE); 
txtcomp » cr_label( NULLS, frm_status, “comp", 0, 8, IGNORE, 40, 90); 

cr_labell NULLS, frmstatus, -Element ", 0, 16, IGNORE, IGNORE, IGNORE); 

txt_element - crlabel ( NULLS, frm_status, “ELEMENT", 0, 16, IGNORE, 40, 90) ; 

crlabel ( NULLS, frmstatus, "Author ", 0, 24, ICNORE, IGNORE, IGNORE); 

txt_author - ci_label( NULLS, frm_stalus, "AUTHOR", 0, 24, IGNORE, 40,90); 

cr_label ( NULLS, frmstatus, "Created ", 0, 32, IGNORE, IGNORE, IGNORE) ; 
txt_created - cr_label( NULLS, frm_status, " ", 0, 32, IGNORE, 40,90); 


build ere pos popup! f rm_contalner ); 
whirl O; 


cr_label ( NULLS, frmstatus, "Last Update ", 0, 40, IGNORE, IGNORE, IGNORE); 
txt_last_update » cr_label ( NULLS, frm_status, " ", 0, 40, IGNORE, 40, 90) ; 


/ « 

* create select position popup 

V 

bul ld_sel_pos__popup ( f rm_container ); 
whirl () ; 

/• 

* create select target language popup 

V 

bul ld_lan_select_popup ( f rm_contai ner ); 
whirl!); 

/* 

* Build the Show Status popup. 

V 


XtSetArg! args(O), XmNal lgnment , 
XtSetValucs( t xtposl t ion, args, 
XtSetValues! txtcomp, args, 1 ); 
XtSetValues! txt_element , args, 1 ); 
XtSetValues! txt_author, args, 1 ); 
XtSetValues! txtereated, args, 1 ); 
XtSetValues! txtlast update, args, 1 
whirl () ; 


XmALI GNMENT_BEG I NN I NG) ; 
i ) ; 


) ; 


/* 

* Create the Comp/Element purpose toggle buttons. 
V 


cr label ! NULLS, frm status, "Purpose", 0, 54, IGNORE, IGNORE, IGNORE); 


rbpurpose - crradlobox ! NULLS, frmstatus, XmHORI ZONTAL ); 
setposltlon (rbpurpose, 52, IGNORE, 37, IGNORE); 


bui Id status popup ( f rm_contal ner ); 
whirl () ; 

/* 

* Build the Displayer which is used to display messages during source 

* code generation and compiling. 

*/ 

bui 1 d_di splayer_popup ( f rm_contalner ); 

/* 

* Create status frame 

*/ 

f rame_st at us - cr_frame( NULLS, f rm_conta iner, NULL, NULL ); 

/* 

* Create form to hold status items 
*/ 

frm_status ■ cr_form( NULLS, f rame^status, NULL, NULL ); 
set_attribs ( FORM, frm_status, 2787 270, XmRESI2E_N0N£ ); 

/* 

* Create status label widgets 

*/ 

cr__label ( LULLS, frm_status, "Position ", 0, IGNORE, IGNORE, IGNORE, IGNORE); 


tgl comp * Ncr_toggle{ NULLS, rb_purpose, "Comp", cbr__tg 1_ purpose, 2, 2 ); 

tgl element ■» Ncr_toggle! NULLS, rb_purpose, "Element", cbr__tgl_purpose, 3, 3 ); 
arm_tgl( tgl_element ); 

txt purpose = cr_scr_text ( NULLS, frm_status, 5, False, 260, 10, 165 ); 
XtSetArg! args(0), XraNsenslt ive, True); 

XtSetArg! args [11, XmNwordWrap, True); 

XtSetValues! txtpurpose, args, 2) ; 

/* 

* create Frame to hold cancel form 

*/ 


frame cancel - cr frame! NULLS, frm container, NULL, frame status); 


frm_cancel * cr^.form ( NULLS, f rame_cancel , NULL, NULL ); 
set~att ribs { FORm7 frm cancel, 278, 70, XmRESI2E NONE ); 


/* 

* create labels for mode and status 
V 


crlabel { NULLS, frm_cancel, 
txtmode - cr_label [NULLS, 
cr_label ! NULLS, frm_cancel, 
txt status - cr_label (NULLS, 


"MODE: ", 0, 17, IGNORE, 5, IGNORE); 

frm_cancel, "Edit Symbol", 0, 17, IGNORE, 30, IGNORE); 

•STATUS: ", 0,52, IGNORE, 5, IGNORE ); 

frni_cancel, "Incomplete", 0, 52, IGNORE, 30, IGNORE); 


/* 

* create cancel button widget 
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*/ 


btn_cancel = cr_command ( NULLS, frm_cancel, "CANCEL", cbr_cancel, 0 ); 
set_position ( btn_cancel, 15, IGNORE, 74, IGNORE ); 


whirl () ; 


/- 

* setup palette 
*/ 


get_colors () ; 

setup_pa lette ( f rm^contalner, frame_cancel ); 
whirl () ; 


/* 

* setup colors popup 

*/ 

if (Color) 

bui ld_color_popup ( f rm_conta iner ); 
whirl O ; 

/* 

* setup math menu - overwrites palette for if/set statement 
*/ 

setup_math_menu ( f rm_contai ner, f rame_cancel) ; 
whirl O ; 

/* 

* Setup the matrix menu - overwrites the math menu. 

*/ 

setup_mat r ix_menu ( f rm_conta 1 ner , frame_cancel ); 
whi rl () ; 

/* 

* Setup the trigometric menu - overwrites the math menu. 

V 

setup_trig_menu ( f rm_container, frame_cancel ); 

whirl 0; 1 

/* 

* create logic expr entry popup 
*/ 

build_log_popup( f rm_container ); 
whirl () ; 

/* 

* Build ask 0 popup dialog. 

*/ 

dlg_ask « cr_popup( NULLS, top, "Ask" ); 
f rm_ask • cr_form ( NULLS, dlg_ask, NULL, NULL ); 

XtSetArg( args[0), XmNforeground, (foreground ); 

XtSetArg( args[l], XmNbackground, (background ); 

XtGetValues( dig ask, args, 2 .) ; 



Kismli 


pixmap =* XmGetPixmap ( XtScreen (dlg_ask) , "question_img", foreground, background ); 
cr_pixmap( NULLS, frmask, (pixmap, 0, IGNORE, 1, IGNORE ); 

lblask - crlabel ( NULLS, frm_ask, NULLS, 0, 0, IGNORE, 0, 100 ); 

crseparator ( NULLS, frmask, 40, 45, 0, 100 ); 


Ncr_ 

rel 

cmd ( 

NULLS, 

frm_ask. 

"YES", 

cbr_clear 

popup, ASK_YES, 

65, 

10); 

Ncr” 

rel 

cmd ( 

NULLS, 

frm_ask, 

"NO", 

cbrclear 

popup, ASK NO, 

65, 

41); 

Ncr_ 

rel 

cmd ( 

NULLS, 

frm_ask, 

"Help", 

cbr_help. 

ASK, 

65, 

75); 


whirl () ; 

/* 

* Build user_ack () popup dialog. 

*/ 

dlg_ack - crpopup ( NULLS, top, "Acknowledgement" ); 
frm_ack - crform ( NULLS, dlg_ack, NULL, NULL ); 
set_attribs( FORM, frraack, 100, 70, XmRESIZE_NONE ); 

image «* (Xlmage *) CreateDefault Image ( infoBits, 11, 24); 

Xmlnstal llmage (image, "info_img") ; 

XtSetArg( args(0], XmNforeground, ( foreground ); 

XtSetArg( args[l], XmNbackground, (background ); 

XtGetValues( dlgack, args, 2 ); 

pixmap = XmGet Pixmap ( XtScreen (dlg_ack) , "lnfo_lmg", foreground, background ); 
cr_pixmap( NULLS, frmack, (pixmap, 0, IGNORE, 1, IGNORE ); 

lbl_ack - cr_label ( NULLS, frm_ack, NULLS, 0, 0, IGNORE, 0, 100 ); 

cr_separator ( NULLS, frm_ack, 40, 45, 0, 100 ); 

Ncr_rel_cmd( NULLS, f rm_ack, "OK" , cbr_clear_popup, USER_ACK, 61, 15); 

Ncr_rel_cmd( NULLS, f rmack, "Help" , cbr_help, USERACKHELP, 63, 70); 
whirl () ; 


create h and v ruler bars. 


n * 0; 

XtSetArg( args[n], XmNwidth, 16 ); n++; 

XtSetArg( args[n), XmNheight, 800 ); n++; 

XtSetArg( args[n), XmNresizePolicy, XmRESI ZE_N0NE ); n++; 
v_scroll ° XmCreateDrawlngArea (f rm_container, "v_scroll", args, n) ; 
XtManageChild ( vscroll ); 

set_attach_widget (v_scrol 1 , mnb_main, NULL, frame_stat us, NULL); 
n » 0; 

XtSetArg( args[n), XmNwidth, 800 ); n++; 

XtSetArg( args(n), XmNheight, 16 ); n++; 

XtSetArg( args In), XmNresizePolicy, XmRESI ZE^NONE ); n+ + ; 
h_scroll - XmCreateDrawlngArea (f rm_container , "h_scroll", args, n) ; 
XtManageChi Id ( hscroll ); 

set attach widget (h scrol 1 , mnbjnaln, NULL, v scroll, NULL); 


XtAddEvent Handler ( v_scroll, ExposureMask, FALSE, cbr_scroll_expose, NULL); 
XtAddEventHandler ( hscroll, ExposureMask, FALSE, cbr_scroll_expose, NULL); 
whirl () ; 




* create h and v sliding rules . 



n - 0; 

XtSetArg ( args In), XmNwldth, 

13 

) ; 

n++; 

XtSetArg! args(n), XmNheight, 

1 

) ; 

n++; 

XtSetArg! argsfnl, XmNy, 

5 

l ; 

n-f+; 

XtSetArg! argsfnj, XmNx, 

-4 

l; 

n++; 

hrule - XmCreat eDrawl ngArea (v 
Xt ManagcCh) 1 d ( h_rule ); 

scrol 1 , 


n - 0; 

XtSetArg! args(n|, XmNwldth, 

1 

) ; 

n+t; 

XtSetArg! args[n|, XmNheight, 

13 

) ; 

n++; 

XtSetArg! args(n|, XmNx, 

5 

) ; 

nt*; 

XtSetArg! argslnl, XmNy, 

-4 

); 

n++; 


v_rule - XmCreateDrawingArea (h__scrol 1, "v_rule", args, 
XtManageChlld ( v_rule ); 


n) ; 


n) ; 


bboard * cr_popup( NULLS, draw_area, NULLS ); 


Lmenu_popup 
menullst (0) 
menu_llst [1 1 
menu_l 1st [2/ 
menu 1 1st (3 1 
menu_l 1 st (4 | 
menu_l 1 st ( 5| 
menu_l 1st ( 6) 


XmCreatePopupMenu ( bboard, NULLS, 
= cr_command( NULLS, Lmenu_popup, 

- cr_command( NULLS, Unenu_popup, 

- cr_command( NULLS, Lmenu_popup, 

- cr command! NULLS, Lmenupopup, 

- cr command! NULLS, LRionu popup, 

- crcommand! NULLS, Lmenu_popup, 

- cr command! NULLS, Lmenu_popup, 


NULL, 0) ; 

“Move", cbr_set_anchor, 

"Copy", cbr_set_anchor, 

"Delete", cbr_sec_anchor, 
■Zoom Out ", menu proc, 
"Print", ebr sotanchor, 
"Undo", cbrcancel, 

“Exit", cbr_exlt, 


MoveBox ) ; 
Copy Box ) ; 
DeleteBox) ,* 
3 ) ; 

Print Box ); 

5 ); 

6 ) ; 


Rmenu_popup = XmCreatePopupMenu ( bboard, NULLS, NULL, 0 ); 

cr_command! NULLS, Rmenu_popup, "Select Comp", cbr_sel_comp, MANAGE ); 

crcommand! NULLS, Rmenu_popup, "Select Element", cbr_elem_popup, 3 ); 

cr_command( NULLS, Rmenu_popup, "Save Element", cbr_sav_element , 0 ); 


XtAddEvent Handler ( h_rule, ExposureMask, FALSE, cbr_rule_expose, NULL); 
Xt AddEventHandler < v rule, ExposureMask, FALSE, cbr_rule_expose, NULL); 
whirl!); 


menupullrlte « cr_pul ldown (NULLS, Rmenujpopup ); 

crcascade! NULLS, Rmenu popup, menupullrlte, NULL, "Set Symbol Display"); 
cr_command ( NULLS, menupullrlte, "Show Logical Text", cbr_set_sym_display, 1); 

crcommand! NULLS, menupu 1 1 ri te, "Show Expression Text", cbr_set_sym_dl splay, 2); 


/* 

* create Scrolled Window to hold drawing area widget 

•/ 


n - 0; 

Xt SetArg ( args[n], XmNwldth, BOO ); n++; 

Xt Set Arg { args(n), XmNheight, 800 ); n + + ; 

Xt SetArg( argsjnj, XmNscrolllngPol Icy, XmAUTOMATIC ) ,* n+ + ; 

scr_WA - (Wldget)XmCreateScrolledWindow (frmcontainer, NULLS, args, n) ; 

XtManageChlld ( scr_WA ); 

set_attach_widget (scr_WA, h_scroll, NULL, v_scroll, NULL); 

/* 

* create drawing area widget 
*/ 


0 ; 


XtSetArg! args(n), 
XtSetArg! args(n], 
XtSetArg! args(nl, 
XtSetArg! args(n). 


XmNwldth, MAIN_CANVAS_WIDTH+MAIN_CANVAS_WIDTH/2 - 350); n++; 

XmNheight, MAIN_CANVAS~HEIGHT+MAIN_CANVAS_HEIGHT/2-50) ; n++; 
XmNresizePollcy , XmRESIZENONE ); n++; 

XmNl nputCal lback, WA_1 nput_code ); n++; 
draw_area - XmCreateDrawingArea! scr_WA, NULLS, args, n ); 

XtManageChlld! draw area ); 


menu_pul 1 r lte - cr_pul ldown ( NULLS, Rmenu_popup ); 

menu_item - cr_cascade ( NULLS, Rmenu_popup, menu_pul lrite, NULL, "Audit Element"); 
menu_pullrite2 - cr_pulldown( NULLS, menu_pull rite ); 

crcommand! NULLS, menu_pullrite2, "Check Lines", cbr_audlt, JUSTLINES) ; 

crcommand! NULLS, menu_pull rite2, "Check Expressions", cbr_audit, JUST_EXPR); 

cr command! NULLS, menupul 1 rite2, "Lines and Expressions", ebraudit , LINES AND EXPR) ; 

cr_cascade( NULLS, menupul 1 ri te, menu_pullrlte2, NULL, "Show Audit"); 

cr_command( NULLS, menu_pull ri te, "Clear Audit", cbr_audit, 4); 

XtSetArg! args (01, XmNwhlchButton, Buttonl ); 

XtSetValues (Lmenu jpopup, args, 1); 

whirl () ; 

/* 

* create line draw gc using a symbol canvas as a model 
V 

LDgc = XCreateGC (display, RootWlndow (display, DefaultScreen (display) ) , 0, NULL); 

XSetForeground ( display, LDgc, BlackPixel (display, Def aultScreen (display) ) * 

LDbackg round) ; 

XSetFunctlon (display, LDgc, GXxor) ; 


XtSetArg! args (01, XmNworkWindow, draw_area ); 
XtSetValues! scr_WA, args, 1 ); 

XtSetArg! args[0), XtNbackground, iLDbackground ); 
XtSetArg! args(l), XtNforeground, &LDforeground ); 
XtGetValues! draw_area, args, 2 ); 


Xt AddEventHandler { draw_area, 
Xt AddEventHandler ( draw_area, 
(Opaque) NULL ); 

XtAddEventHandier ( draw_area, 
FALSE, cbrjnot lon_canvas, 


ExposureMask, FALSE, ebrexpose, (Opaque) NULL ); 
EnterWlndowMask , FALSE, cbr_enter_canvas, 

Po 1 ntcrMot lonMask ( But tonMot 1 onMask, 

(Opaque) NULL ); 


whirl O ; 


/* 

* create popup menus in drawing area 


/* 

* create work area gc using a symbol canvas as a model 

*/ 

WAgc « XCreateGC {display, RootWindow (display, Defaul t Screen (display) ) , 0, NULL) ; 
/• 

* give wage the default fore and backgrounds of a palette item 
V 


XSetForeground (display, WAgc, BlackP Ixel (dlspl ay , De £aul tScreen (di splay) )) ; 
XSet Background (display, WAgc, WhitePixel (display, DefaultScreen (dl splay) )) ; 
XSetGraphicsExposures (display, WAgc, False); 

XtReal izeWidget ( top ); 

XtMapWidget ( f ramepalette ); 


09'M; 07 !j 

mm >■■■■> ■■ A ■-.. . . ••••.•.:. .:• 

attribs.back ing_store « Always; 

XChangeWindowAttrlbutes (display, XtWindow (drawa rea) , CWBackingStore, iattribs); 
Mode = EditSymbol; 


init X.c 


big_font * XLoadFont (display, “9x15"); 
small_font - XLoadFont (display, "fixed"); 
teeny_font - XLoadFont (display, *6x10"); 

XSetFont (display, WAgc, WAFont - (Font)blgfont) ; 


whirl!); 


/ 


< — 


— > 




init. 


FILE NAME: inlt_X.h 

FILE FUNCTION: 

Variable declarations, constants, and function prototypes for the lnlt_X.c 
rout lnes . 

SPECIFICATION DOCUMENTS: 

/home/pro ject/3531 /Docu/GCB. spec .doc 

FILE MODULES: 

N/A 

> 


•define PANELWIDTH 275 
•define PANEL_HEIGHT 470 
•define SUBCANVAS_WIDTH 500 
•define SUBCANVAS_HEIGHT 500 

• define UNECUKSOH 1 
•define DELETECURSOR 2 


lnt PopupStat [5| , 

Zoomed; 

char •croat_str[| - 

( “Select the type of comp to create. A comp Is contained In a Its own - , 
“directory and Is composed of comp elements and library elements. A “, 

); 


char "road_str(| - 

( "Enter the name of the comp element or library element file to read.", 
“The filename may either be typed In or selected from the Comp List “, 
"using the mouse. 

I: 


/* 

* Callback lists used In the building of the MOTIF Interface. 
V 

XtCa 1 IbackRec WA_1 nput_code [ ) *■ [ 

I (XtCal IbackProc) cbr canvas, (caddr_t) NULL ), 

I (XtCal IbackProc) NULL, (caddr_t) NULL ) 

I; 


XtCa 1 IbackRec symbol _i nput_code [ 1 

( (XtCal IbackProc) cbr_symbol, 

( (XtCal IbackProc) NULL, 

If 


- I 

(caddr_t) NULL ), 
(caddr t) NULL ) 
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ini£vars.c 


/A*************************************** < > 

* MODULE NAME: lnlt_vars() 

* 

* MODULE FUNCTION: 


/* 

* If there is a PositionPath, get the current directory, we will 

* return here on exit. 

*/ 


This routine initializes variables like the logfile name and target language. 


load_curr_di r ( Swd ); 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.01 - 08/01/91 

* Release 1.02 - 08/28/91 

* 

*< A... A. .A..*.***......... V 

•Include <stdio.h> 

•Include <pwd.h> 

•include <X11/Intrinsic. h> 

•include <Xm/Xm.h> 

•include "gcb.h" 


int lnlt_vars( argc, argv ) 


/• 

* Determine who the user is. Get the current user's id, 

* then locate the user's id in the password file. 

*/ 


if ((user * getpwuid( getuid() )) ■■ NULL ) 

( 

eiog (1 , " i nl t vars () - couldn't get user name") ; 
UserName(O) *» NULL; 

) 

else 

strcpy( UserName, user->pw_gecos ); 


/* 

• See if a defaults file exists in the local directory. If a defaults 

* file is not found locally, try the user's home directory. 

*/ 


int argc; 

char *argv[ ) ; 


struct passwd 'user; 
int rc; 


/* 

* Default the logfile and several other files to the local directory for now. 

* The user may change their location in the defaults file later. 

*/ 


ErrorLogLevel = 1; 

strcpy( LogFile, 
strcpy( DisplayFile, 
strcpy( MSIDTable, 
strcpy( User^uncsPath, 
strcpy( WSGlobals, 


/* l«normal, 3~cJcbug */ 

" . /LogFi le . GCB” ); 

" . /DisplayOutput " ); 

" . /MSIDTable .GCB" ); 

) ; 

" . /WSGlobals .GCB" ); 


/* 

* Default the target language to MOAL for now, the user may specify a new 

* value in the defaults file. 

*/ 

TargetLanguage *» MOAL; 

/* 

* Initialize the cell map, the symbol array, and the element/comp file 

* variables. 

V 


i n i t_element_vars ( ) ; 
init_comp_vars () ; 

PositionPath [0] - '\0'; 
CompDir [ 0] = ' \0' ; 


strcpy( DefaultsFile, **./. Defaults .GCB" ); 
if ( (rc - open_read_defaults () ) < 0 ) 

( 

If ( rc =*= NOT FOUND ) 

( 

/* 

* Try to find defaults file in home directory. 

*/ 

strcpy( DefaultsFile, user->pw_dir ); 
strcat ( DefaultsFile, •*/ .Defaults. GCB" ); 
rc - open_read_default s () ; 
i 

) 


/* 

* No defaults file was found. Make sure defaults 

* are initialized to a safe state. Leave the defaults 

* file path set to the user's home directory, that is 

* where the new defaults file will be created on exit. 

*/ 


if ( rc ) 

( 

elog (1 , " lnit_vars () - no defaults file found"); 


GElementFile(0] 

GCompFile (0) 
strcpy( Author, 
strcpy( MacrosPath 
strcpy( MSIDTable, 
strcpy( WSGlobals, 
strcpy( DisplayFile, "./DisplayOutput 

J 


NULL; 

NULL; 

UserName ); 

**./- ) ; 

" . /MSIDTable. GCB" 
" ./WSGlobals. GCB" 


if ( PositionPath ( 0) ) 

if ( chdir (PositionPath) ) 


) 

) 

) 
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ValidPosltlon - FALSE; 


ValidPosltlon » TRUE; 

If ( Comp01r(0| ) 

if ( chdlr (CompDir) ) 
ValidComp - FALSE; 

else 

ValidComp - TRUE; 

) 


* See if the command line contains a file name. 

•/ 

if ( arqc > 1 ) 

l 

strepyf ElementFile, argv[ll ); 
strcpy( GElementFi le, ElementFile ); 
streatf GElementFi le, £L_EXT ); 

I 


• See it the command line contained a new Error Log Level. 

*/ 

if ( arge > 2 ) 

ErrorLogLevel - atol ( argv(2J ); 


* See if we have a filename, if so, try to read it in. If there is an error 

* reading the file, let the user start a new one. 

V 

If ( ValidComp ) 

read_comp_C lie () ; 

if ( GElementFlle [01 ) 

if ( read_el ement^f 1 1 e () ) 
lnlt_olement vars(); 


* Update the position panel text strings. 

*/ 

upd_pos_panel ( N0_CHANG£ ); 


* Update the mode indicators. 


upd_mode_panel 0 ; 
return! OK ); 
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%l 

I include "y.tab.h* 

I) 


RO 

[- 1 < t > 1 <-| >= 1 <>) 

NUM 

I0-9| 

F 

FN 

WSL 

[WS ] [ a-zA-ZO-9 )+ 

OBL 

[V] (a-zA-Z0-9J + 

L 

[a-zA-Z] [a-zA-ZO-9 )* 

S 

[VI [ — )*[VI 

AO 

[or | xor) 

SIGN 

[ + 1-1 

PER 

\. 

%% 


C \t) 

; 

m 

1 return! L_PERIN ); 

[) ) 

( return ( RPERIN ) ; 

(\u 

1 return) L_BRACK ); 

(\ii 

! return! RBRACK ); 

"»•• t 


••<<" 

( return ( SHIFT ) ; ) 

->-• i 


i 


“<>“ | 


">" | 


“<" 

1 return! RELOPER ), 

M . «» 

( return! SET_EQ ) ; ) 

H 0 N 

[ return! EQEQ ); | 

“COS" 1 


"acos" | 


“sin" | 


"a sin" | 


"tan" | 


"atan" | 


"cuber" | 


"In" | 


“cosh" | 


"exp" | 


"sinh" | 


“tanh" | 


"sqrt" | 


"log" | 


"nlog" | 


“activate" J 


“terminate" 

( return! FIXED_FUNC ) 

"power" 

[ return! POWER ) ; ) 

"PI" 

| return ( PI ); ) 

"not" 

! return! NOT ); | 

M * M 

| return! MUL ); ( 


1 return ( DIV ) ; ) 


I return ( ADD ); ) 
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* Local defines. 

V 

• define MAX__ERROR 

/* 

* Global variables. 

4 / 


stablestate - 0; 
parse_data_ptr++; 
return ( ch ); 

} /* of function */ 


The function unput is used by the lexical analyzer to replace the previous character 
on the unput data (essentialy a ungetc with a replace). The function Is included to 
overried the standard function provided by LEX. 


char *parse_data_pt r; 

lnt pa rse_error_va 1 ue; 

char parse__error_messagc( MAX^EKROR 1; 

extern char ElementF i le [] ; 

/* 

4 Function processed Is Invoked when an lndentifier is found in the token string, the 
* function will determine if the identifier exists in the symbol table, If it does not 
4 exist, the appropriate error flags will be set and messages generated. 

•/ 


process_ld {) 

< 

char local_error[ MAX_ERROR |; 

lnt local_var - 1; 

/• 

4 If the symbol does not exist in the symbol table, note the error but continue 
4 parsing the expression. 

*/ 

if ( lyytext (0 ] — 'G'J u (yytext(l) »« 'V') && (yytext(2) -= ) 

local_var - 0; 


fundef unput 

int unput { ch ) 
int ch; 

1 

parse_data_pt r — ; 

*parse_data_ptr • (char)ch; 

) / 4 of function */ 

/* 

4 The function output is used by the lexical analyzer to place a single character on 
4 the programs output stream. The characters are simply thrown away because all 
4 diagnostics are presented using X-windowns. The function is Included to over-ride 
4 the standard function provided by LEX. 

4 / 

•undef output 

int output ( c ) 
lnt c; 

1 

} /* of function •/ 


if ( lookup_symbol ( local_var ? ElementFile : NULL, yytext ) -- NULL ) ( 
sprintf( local_error, "Undeclared lndentifier: %s\n", yytext ); 
if ( (strlen( parse_error_message ) + strlen( localerror ) + 2) < MAX_ERR0R ) 
strcat ( p.irse_crrorjnessaqc, local error ); 
parse error_valuc |- UNDECLARED; 

) 

/ 4 

4 Process the data type of the ID being processed. 

V 


process_ld_dat a_type ( yytext ); 
) /* of function */ 


/* 

4 The function input is used by the lexical analyzer to fetch a single byte of data 
4 from the input line. The function is included to override the standard function 
4 provided by LEX. 

4 / 


•undef input 

int InputO 
l 

lnt ch; 

ch - (int) 4 parse_data ptr; 
if ( (ch I- ' \0 ' ) £6 7ch !- ' ') > 
if ( stable^state ) 
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/************** 

* 

* FILE NAME: lines.c 


************************************** 


FILE FUNCTION: 

This file contains most all of the routines to create, delete, and render 
lines. 


SPECIFICATION DOCUMENTS: 

/home/ pro ject/ 3531 /Docu/GCB. spec.doc 

FILE MODULES: 


MODULE NAME: addfroml ine 0 

MODULE FUNCTION: This routine adds the new line to the Symbol_Map structure fo 
the destination symbol. 

REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


add_from_line ( ) 

cancel_line () 

clear_cell_map_line () 

clear_lineO 

delete_line {) 

delete_lines () 

draw _arrows() 

draw_line{) 

draw_whole_l ine () 

end line!) 

erase line() 

f ind_i ine_cel 1 () 

freebee llmap_l inellsts () - 

free_lines() 

free-list {) 

free_segment () 

get_good_cell_pt () 

midlineO 

prompt_true_false () 

setce 1 l map l i ne ( ) 

set line() 

start_line() 

st ill_on_l ine {) 

valid_line() 

zap_line() 


adds new line to the Symbol_Map structure for destination 
erases line drawn, clears line field In start symbol 
clears the cells occupied by the parameter line segment 
toggles the pixels in a line and so erases the line 
erases line, clears line fields in start and dest symbol 
deletes all lines entering or leaving a symbol 
draws arrow at end of a line with the correct orientation 
sets the pixels in a line and so draws the line 
draws all the segments of a line in either red or black 
completes the line structures in the start and end symbols 
clears the pixels in the specified line 

finds the first cell in a line that is of type LINE_CELL 
This routine frees all the linelists in all of the cells 
This routine deallocates all the space for all the lines 
Routine frees all the lines in the parameter line list 
This routine frees the space in all the segments of a line 
sets endpoint of a seg to last cell outside destination 
allocates new seg pointer when an 'elbow' is set in a line 
determines if the user wants to draw a true or false line 
creates LineList structures to record cells in a line 
sets the pixels In the specified lino using GXc.opy 
creates new structures to start line; lnits start sym 
determines if the given point is on the given segment 
determines if the drawn line segment passes through a sym 
clears the pixels in a line and so erases the line 


A************************************** ^ >* ft**************************************/ 


•include <stdio.h> 


void add from l ine () 

I 

LineList * listPtr; 


/* 

* See if there is already a list of lines which enter this symbol. 
' */ 

if ( LDendPt r-> t rom — NULL ) 

/* 

* Need to malloc a new LineList struct. 

V 


f 

LDendPt r-> from = listPtr - (LineList •) malloc( sizeof (LineList) ) ; 
listPtr->next - NULL; 
llstPt r->prev - NULL; 

1 i st Pt r->l i ne - LDlinePtr; 
listptr~>kcy - 1.1 neLi st Key 1 1 ; 

) 

else 

/• 

* This symbol already has a LineList structure. Malloc a new 

* LineList and Insert it at the head of the list. 

*/ 


•include <X11 /Int rinsl c. h> 
•Include <Xll/StringDefs.h> 
•include <Xm/Xm.h> 

•include "geb.h" 

•include “lines. h" 

•include “widgets. h“ 
•include “element_file.h M 
•include "images. h“ 


i 

listPtr = (LineList *) malloc( sizeof (LineList ) ); 
listPtr->line - LDlinePtr; 

ilstPtr->next - (struct LineList *) LDendPtr->from; 
li stPtr->prev “ NULL; 
listPtr->key » LineLi st Key++; 

LDendPtr->from->prev ~ (struct LineList *) listPtr; 
LDendPtr->from - listPtr; 

1 


char tf_string() 


Do you want to connect the TRUE or the FALSE portion?"; 
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MODULE NAME: cancel llne() 


MODULE FUNCTION: This module erases the line drawn so far, frees the line structure, 
and clears the line field in the start symbol for the line. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void cancel line{) 
l 

LineSeg *savPtr, 
♦segPtr; 


NULL out symbol's Line pointer. 


If ( LDsldii — NEXT_PTR ) 

LDstartPt r-> next - NULL; 
else if ( LDside -- TRUE_PTR ) 

LDstartPtr->Sym. IfSym. true_line » NULL; 

else 

LDstartPt r->Sym. IfSym. talse_line • NULL; 


Clear and free the LlneSegment structures. Don't need to clear the cell 
map because it is filled in at the completion of the line. 

Start clearing segments at the first segment. The LDllnePtr points to 
the first segment in the iist. 


segPtr « LD1 inePtr-> line; 
while ( segPtr !- NULL ) 

( 

zap_line( segPtr ); 


* Save a pointer to the current line segment structure so we 

* can free It. 

V 


savPtr - segPtr; 

segPtr - (LineSeg •) segPtr->next; 
free ( savPtr ); 

) 


Free the Line structure, all LineSegments should be gone. The pointer 
in the symbol structure to this Line structure has already been cleared. 


free ( LDllnePtr ); 
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/*•*•••***•*«****•***•*••*****•*****«•** > 

* MODULE NAME: clear_cel l_map_l ine () 


MODULE FUNCTION: 

This routine clears the cells occupied by the parameter line segment. 
Beware: the global var LDlinePtr must be set prior to using this function. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* * ***** >*♦*** .................. ******* ***•**““/ 

void clear_cell_map_line ( segPtr ) 

LineSeg *segPtr? 

1 

LineList MistPtr, 

•nextPtr, 

•prevPt r; 

int cont “ TRUE, 

endpoint - FALSE, 

x,y; 


x “ segPtr->cell_start_x; 
y - segPtr->cell_start_y; 

/* 

* Loop through all the cells of the current line. 

*/ 

while ( cont ) 

( 

/* 

* Make .sure the current cell is a line cell. Lines run under 

* symbols and symbols have priority, so there will be some 

* cells of the line which are really symbol cells. 

*/ 

if { Cel l_Map[y] [x) .cell _type =“ LINECELL ) 

I 

/* 

* Set a pointer to this cell's LineList. 

*/ 

listPtr “ Cell_Map[y) [x] .cell__entry. lines; 

/• 

* Loop through the LineList looking lor the Line entry which points to 

* the current segment. 

*/ 
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while ( listPtr ! - NULL ) 


l 



/* 

* If the segment pointer in the current LineList structure points 

* to the current segment, remove this LineList pointer. 

V 

if { listPtr->line LDlinePtr ) 

1 

/• 

* If there is only one LineList structure, NULL the cell map. 

*/ 

if ( (1 istPtr->next = “ NULL) && (llstPtr->prev « NULL)) 

[ 

Cell Map (y ] [x) . cel l_entry. lines - NULL; 

Cell MapIyJIxJ .cel 1 type - NONE; 

free ( listPtr ); 

break; 

1 

/* 

* If this is the LineList pointed to by the cell, (the head of the 

* linked list), then set. a pointer to the second struct, update 

* the cell map and the prev pointer in the second LineList 

* strucutro. 

V 

if ( 1 istptr->prev NULL ) 

I 

nextPtr - (LineList *) listPtr->next; 

Cell_Maply) [ x ) .cellentry. lines ° nextPtr; 
next Pt r->prev - NULL; 
free ( listPtr ) ; 
break; 

1 

/* 

* Otherwise, this is a LineList struct which. is not the head ot 

* the queue, so we don't need to handle the cell map directly. 

*/ 

prevPtr =* (LineList *) 1 istPt r->prev; 
nextPtr - (LineList *) 1 istPtr->next ; 
prevPt r->next - list Pt r->next ; 
if ( nextPtr != NULL ) 

nextPtr->prev ** (struct LineList *) prevPtr; 
free ( listPtr ) ? 
break; 

) 

/* 

* This LineList doesn't point to the correct line, go 

* to the next LineList struct. 

*/ 


else 

i 

if ( listPtr->next -- NULL ) 

I 

elog (1 , "clear_cell_map - error - didn't find 
elog(l,"x %d y %d - start x %d start y %d", 
segPtr->cell_start_x, 


line pointer”); 

x, Y, 





segPtr->cel lsta rt_y ); 
elog(l,"end x %d end y %d“, segPtr->cell_end_x, 
segPtr->cell_end_y ); 

elog(l,”cell type %d“, Cell_Map[y] (x I . cell_type ); 
exit ( ERR ) ; 

I 

else 

llstPtr - (LlneLlst *) llstPtr->next; 

I 

I 

I 


/* 

* Move to the next cell of the current line. 

*/ 


I 


If ( segPt r->cul l_end_x *•- segPtr->cel l_start — x J 
y - (y < segPtr->cel l_end_y) 7 ytl : y-1; 

else 

x - (x <; segPt r->cel l_end_x) ? itl : x-1; 

If ( (x— ■segPtr->cell_end_x) a (y— segPtr->cell_end_y) ) 
endPolnt - TRUE; 

else 

If ( endPolnt ) 
cont - FALSE; 

I 
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MODULE NAME: clear_llne() 

drawllne 0 
set_l lne () 
zap_llne () 


MODULE FUNCTION: 


clearllne : toggles the pixels In a line and so erases the line, 
drawllne : sets the pixels In a line and so draws the line, 
setllne : sets the pixels In a line segment using COPY Instead of XOR 

zapline : clears the pixels In a line and so erases the line. 

NOTE: the clear_line() and draw_llne() functions ASSUME the Line Draw Graphics 

Context (LDgc) GX function will be set to XOR. All other functions which 
modify the GX function must restore the GX function to XOR before exiting. 
The zaplinel) routine Is a good example of a routine which modifies the 
LDgc GX function and then restores It. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02- 08/28/91 


void clear lined 
f 

XDrawLlne( display, XtWlndow (draw_area) , LDgc, LDstartX, LDstartY, LDendX, LDendY ) ; 

1 

void drawllned 

1 

XDrawLlnet display, XtWlndow (draw_area) , LDgc, LDstartX, LDstartY, LDendX, LDendY ); 
I 

void setllned 

( 

/* 

* Set function to COPY and then set the foreground to black. Then draw the 

* line. Then reset function back to XOR for clear_llne() and draw_llne() 

* which ASSUME the function Is XOR. Also set the foreground to Black XOR with 

* the background so when draw_llne() XOR's with the foreground black lines 

* will appear. 

*/ 

XSetFunction ( display, LDgc, GXcopy ); 

XSetForeground ( display, LDgc, BlackPlxel (display, DefaultScreen (dl splay) ) ); 
XDrawLine ( display, XtWlndow (draw_area) , LDgc, LDstartX, LDstartY, LDendX, LDendY ); 
XSetFunction! display, LDgc, GXxor ); 

XSetForeground ( display, LDgc, BlackPlxel (display, DefaultScreen (display) ) " 
LDbackground ) ; 


void zap_llne( segPtr ) 


LlneSeg *segPtr; 
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XSet Function ( display, LDgc, GXcopy ); 

XSet Foreground { display, LDgc, LDbackground ); 

XDrawLine{ display, XtWindow <draw_area) , LDgc, segPt r->start_x, segPtr->start_y, 

segPtr->end_x, segPtr->end_y ); 

XSetForeground ( display, LDgc, BlackPixel (display. Default Screen (display) ) A 
LDbackground ) ; 

XSet Function ( display, LDgc, GXxor ); 


MODULE NAME: delete_line() 


MODULE FUNCTION: 


This routine erases a line and clears the line fields in the start and destination 
symbols. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


void delete line () 

( 

LineSeg 


LineList 


•savPtr, 
•segPt r; 
•listPtr, 
•nextPtr, 
•prevPtr; 


* Set global line draw variables for the two symbols Involved. 

*/ 


LDlistPtr 


Cel l_Map [LDlineY J (LDlineX) .cell_entry. lines; 


if ( (LDlistPtr =- NULL) | | 

(LD1 istPtr->l i ne — NULL) || 

(LDlistPtr->line->line -- NULL) |) 

(LDllstPtr->line->to »«=* NULL) || 

(I.D1 IstPt r-> 1 1 ne-> f rom «- NULL) ) 

( 

elog (1, "delete_l ine () - Internal error, no pointer"); 
return; 

1 

LDllnePtr «= LDlistPtr->line; 

LDsegPtr - LD1 inePt r->l ine; 

LDendPtr - (Symbol *) LD1 inePtr->to; 

LDstartPtr « (Symbol *) LD1 inePtr->f rom; 

/•DEBUG*/ 

elog (3, "delete line: deleting line connecting syms %d and %d\n", 

compute_label_lndex (LDstartPtr) , compute_label_lndex (LDendPtr) ) ; 


* Clear Line pointer in start symbol. If the start symbol was an 

* IF, clear the line label also. 

*/ 

if ( LDstart Pt r->next « LDllnePtr ) 

i 

LDstartPtr->next NULL; 

) 

else if ( LDstartPtr->Sym. IfSym. true_l ine •» LDllnePtr ) 

{ 



LDstartPt r->Sym. If Sym. true_l ine - NULL; 
clear_text( draw_area, LDstartPt r->Sym. I fSym. t ruex, 

LDstartPtr->Sym. IfSym. true_y, "TRUE** ); 

I 

else if ( LDstartPtr->Sym. If Sym. false_line »** LDlinePtr J 

I 

LDstartPtr->Sym. If Sym. false_line - NULL; 

clear_text ( draw_area, LDstartPt r->Sym. IfSym. fal sex, 

LDstartPt r->Sym. IfSym. false y, "FALSE" ); 

) 

oi so 

1 

user_ack (”delete__l ine () - couldn't match line pointer”); 
elog (1, "delete_line () - couldn't match line pointer"); 
exit { ERR ); 

) 

/* 

• Clear the "from” LlneLlst structure in the end symbol. 

*/ 

listPtr - LDendPtr->from; 
while ( listPtr !** NULL ) 

I 

/• 

* Check if the current LlneLlst line pointer points to the 

• line we want to delete. 

V 

if < 1 istPtrollne — LDlinePtr ) 

< 

/' 

* There Is a single line entering this symbol and consequently there 

* Is only one LlneLlst structure, so blow away the LlneLlst structure 

* and free its memory. 

V 


prevPtr - (LlneLlst *) 1 lstPtr->prev; 
nextPtr - (LlneLlst *) listPtr->next; 
prevPtr->next - IlstPtr->next; 
if ( nextPtr !« NULL ) 

nextPtr->prev » (struct LlneLlst *) prevPtr; 
free ( listPtr ) ; 
break; 

) 

/- 

* The current LlneLlst doesn't point to the correct line, go 

* to the next LlneLlst struct. 

*/ 

else 

1 

if ( 1 istPtr->next -» NULL ) 

I 

elog (1 , ”delete_l lne () - internal error - didn't find line pointer*); 
exit ( ERR ) ; 

) 

else 

listPtr = (LlneLlst *) 1 istPtr->next ; 

) 

) 

/* 

* Clear and free the LineSegment structures. 

* 

* Start clearing segments at the first segment. The LDlinePtr points to 

* the first segment In the list. 

*/ 


/* 

* get to last segment in line; erase arrows from that segment 
*/ 


if ( (1 istPt r->next NULL) && (1 1st Pt r->prev -■ NULL)) 
( 

LDendPtr->from - NULL; 
free ( listPtr ); 
break; 

). 



* The LlneLlst structure at the head of the list is the 

* one that needs to be removed. 

*/ 

if ( 1 lstPtr->prev NULL ) 

I 

nextPtr - (LlneLlst *) 1 IstPt r->noxt; 

LDendPt r-> f rom - nextPtr; 
nextPt r->prev - NULL; 
free( listPtr ); 
break; 

\ 

/• 

* Otherwise, the LlneLlst structure that we need to remove is 

* past the head of the list. 

*/ 


segPtr - LDsegPtr; 

while ( segPtr != NULL ) 

( 

if ( (segPtr->arrow_x) && (segPtr->arrow_y) ) 
draw_arrows (segPtr, TRUE); 
segPtr » (LineSeg *) segPtr->next ; 

1 


segPtr - LDsegPtr; 

while ( segPtr !- NULL ) 

{ 

zap line ( segPtr ); 
clear_cell_map_line ( segPtr ); 

/* 

* Save a pointer to the current line segment structure so we 

* can free it. 

*/ 

savPtr = segPtr; 

segPtr - (LineSeg *) segPtr->next; 



free ( savPtr ) ; 

) 


/* 

* Free the Line structure, all LineSegments should be gone. The pointer 

* in the symbol structure to this Line structure has already been cleared. 

*/ 

free ( LD1 1 nePt r ) ; 

/* 

* status is automatically incomplete 

*/ 

upd_stat us (0) ; 

/* 

* save is needed 
V 

SaveNeeded = TRUE; 

) 
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MODULE NAME: delete lines () 


MODULE FUNCTION: deletes all lines entering or leaving a symbol - 
used in removesymbol and movesymbol 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void delete_l lnes ( window ) 
Widget window; 


Line * 1 inept r, *trueptr, *falseptr; 
int sym; 

void f ind_l lne_cel 1 { ) ; 

for ( sym=0; sym<MAX_SYMBOLS; sym+ + ) 

{ 

if ( Symbol_Map[sym] .mycanvas — window ) 

i 


* delete "next" line 
V 

if ( Symbol_Map[ sym] . symbol_type == IF ) 

( 

if ( trueptr - (Line * ) Symbol_Map( sym] . Sym. I fSym.t rue_line ) 

( 

findlinecell ( truept r->l lne ); 
delete_line () ; 

1 

if ( falseptr = (Line *) Symbol _Map( sym) . Sym. If Sym. false_line ) 

[ 

find_line_cell ( falseptr->line ); 
delete_l ine () ; 

) 

I 

else 

if ( (lineptr - (Line *) Symbol _Map (sym ). next ) != NULL ) 

I 

fi ndl ine_cell ( lineptr->llne ); 
deleteline () ; 

I 


delete lines entering symbol 


while ( Symbol _Map (syml . from ) 

{ 

if ( (lineptr - Symbol_Map(sym) . from->line) ! = NULL ) 
( 

/* 
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} 

return; 

) 


* delete next "from" line 
*/ 

find_l ine_cell ( 11 nept r->l lne ); 
delete_l lne {) ; 

\ 

/• 

* dc lot online will advance the Symbol Map. from 

* pointer. 

*/ 


elog (1, *’delete_lines () - can't find symbol to delete lines\n"}; 
exit ( ERR ) ; 
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/*»*<.**.************«****««•«**.***•**•«*< >«*#*«******»***» 

* MODULE NAME: draw_arrows() 

* MODULE FUNCTION: This routine draws the arrow at the end of a 

* correct orientation. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


A**********.**********!*.*************** < >* *•*•*.<.******•«.* 

int draw_arrows (segptr, clear) 

LlneSeg * segptr; 

Int clear; 

I 

if { clear ) 
l 

/• 

• draw the arrows in the color of the background 

•/ 

XSetFunct Ion ( display, LDgc, GXcopy ); 

XSetForeground ( display, LDgc, LDbackground ); 

1 

switch ( segpt r->orientat ion ) 

i 

case RIGHT: 

XDr.iwI.lne{ display, XtWl ndow (draw^area ) , LDgc, 
segpt r->arrow_x, segpt r->arrow_y, 
segpt r->arrow_x - 8, segpt r->arrow_y - 8 ); 

XDrawLlne( display, XtWindow (draw_area ) , LDgc, 
segpt r->arrow x, segptr->arrow_y, 
segptr->arrow_x - 8, segptr->arrow_y + 8 ) ; 

break; 
case LEFT: 

XDrawLine( display, XtWindow (draw_area) , LDgc, 
segptr->arrow_x, segptr->arrow_y, 
segptr->arrow_x + 8, segptr->arrow_y - 8 ) ; 

XDrawLine( display, XtWindow (draw_area) , LDgc, 
segpt r->arrow_x, segpt r->arrow_y, 
segptr->arrow_x + 8, segptr->arrow_y + 8 ) ; 

break; 
case UP: 

XDrawLlne{ display, XtWindow (draw_area) , LDgc, 
segpt r->arrow_x, segpt r->arrow_y, 
segptr->arrow_x - 8, segpt r->arrow_y + 8 ) ; 

XDrawLlnel display, XtWindow (draw_area) , LDgc, 
segpt r->arrow_x, segpt r->arrow_y, 
segptr->arrow_x + 8, segptr->arrow_y 8 ) ; 

break; 
case DOWN: 

XDrawLinel display, XtWindow ldraw_area) , LDgc, 





segpt r->arrow_x, segpt r->arrow_y, 
segptr->arrow_x - 8, segpt r->arrow_y - 8 ); 

XDrawLlne ( display, XtWindow (draw_area) , LDgc, 
segpt r->arrow_x, segpt r->arrow_y, 
segptr->arrow_x + 8, segptr->arrow_y - 8 ) ; 

break; 

I 

if ( clear ) 

( 

XSetForeground ( display, LDgc, BlackPixel (di splay, 
DefaultScreen (display) ) * LDbackground ); 
XSetFunctlon ( display, LDgc, GXxor ); 

I 
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MODULE NAME: draw whole llne() 


MODULE FUNCTION: 


This routine draws all the segments of a line, as well as possible labels, 
in either red or black. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


****************** 


void draw_whole_l ine (line, black) 

Line *llne; 

lnt black; 


LineSeg *segPtr; 

Symbol *tempsym; 

erase 1 1 ne ( line ); 

XSetFunct ion ( display, LDgc, GXxor ); 
if ( black ) 


* draw each line seg using black foreground. 
*/ 


XSetForeground ( display, LDgc, BlackPixel (display, Default Screen (display ) ) A 
LDbackground ) ; 


* draw each line seg using Red foreground. 

*/ 

XSetForeground ( display, LDgc, colors (Red) A LDbackground ); 

tempsym - (Symbol * ) 1 ine->f rom; 
if ( tempsym->symbol_type «« IF ) 
i 

if ( line == tempsym->Sym. If Sym. true_l ine ) 

( 

XDrawString( display, XtWindow (draw_area) , LDgc, 

tempsym->Sym. I fSym.true_x, tempsym->Sym. IfSym.t rue_y, 
"TRUE", strlen ("TRUE") ); 

) 

else if ( line == t empsym->Sym . I f Sym . fal se_l ine ) 

I 

XDrawString( display, XtWindow (drawarea) , LDgc, 

tempsym->Sym. If Sym. falsex, tempsym->Sym. If Sym. false_y, 
-FALSE", strlen ("FALSE") ) ; 

} 

else 

{ 


user_ack ("1 f sym, but parameter line lsnt true or false”); 
exit (0) ; 

I 


< > 


) 

segPtr « line->line; 
while ( segPtr I- NULL ) 

I 

LDstartX - segPtr->start x; 
LDstartY - segPt r->start_y; 
LDcndX - segptr->end_x; 
LDendV * segPtr->end_y; 
draw_llne () ; 

If ( I segPtr->next ) 

I 


/* 

* last segment In line; draw arrows 
•/ 

draw arrows! segPtr, FALSE ); 

1 

segPtr - (LlneSeg *) segPtr-snext; 

1 


/* 

* reset gc foreground to black. , 

*/ 

If ( ! black ) 

XSetForeground ( display, LDgc, Blackplxel (display, DefaultScreen (display ) ) 
LObackground ) ; 


MODULE NAME: end_Llne() 

MODULE FUNCTION: This routine completes the line structures In the start and 

destination symbols, sets the cells In the line, and draws 
the arrows and labels. 

REVISION HISTORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

.. >....... 


void end__Line() 
i 

LlneSeg "segPtr, "arrowPtr; 
char string[6); 

lnt x,y; 

LlneSeg "getgoodce I l_pt () ; 


/* 

• Complete the Line and LlneSegment structures. 

•/ 


LDllnePtr->to 


(struct Symbol *) LDendPtr; 


LDsegPtr->cel lendx - LDendX / 

LDsegPtr->cell_end_y - LDendY / 

LDsegPtr->end_x - LDendX; 

LDsegPtr->end_y “ LDendY; 

if (LDendX > LDstartX) 

LDsegPtr->orlentatlon - RIGHT; 
else if (LDendX < LDstartX) 

LDsegPtr->orientatlon - LEFT; 
else If (LDendY < LDstartY) 

LDsegPtr->orientation « UP; 

else 

LDsegPtr->orientat ion * DOWN; 


CELLSIZE; 
CELL SIZE; 


/* 

* Add "from” line to end symbol. 

*/ 

add_f rom_l ine () ; 

/* 

* Make sure that last pt in line is of LINE type 
*/ 

arrowPtr = get_good_cel l_pt ( LDsegPtr ); 

/* 


*/ 


Update the cell map for each of the line segments which make 
up this line. 


j . • 91/08/29 hi 

I wM& n 

m 

segPtr = LDsegPtr; 

while ( segPtr != NULL ) 
i 

set_cell_map_line { segPtr, LDlinePtr ); 
segPtr - (LineSeg *} segPt r->prev; 

1 


* Determine where to put the arrows, 2nd parameter would be true to 

* delete arrows 
*/ 

draw^arrows (arrowPt r, FALSE); 


* if status is complete, update status message 


if ( complete (0, LINES_AND_EXPR) — -1 ) 
upd_status( 1 ); 


# Element needs to be saved. 

*/ 

SaveNeeded - TRUE; 


* If the current line is part of an IF symbol, label the current 

* path. 

V 

if ( LDside NEXT_PTR ) 
return; 


* Determine which side of the IF the user is connecting. 

V. 

if ( LDside =- TRUE_PTR ) 

I 

strcpy( string, "TRUE" ); 

segPtr » (LineSeg *) LDstartPtr->Sym. IfSym.true_line->line; 

} 

el se 

1 

strcpy( string, "FALSE** ); 

segPtr - (LineSeg *) LDstartPtr->Sym.IfSym. false _line->llne; 

) 


* Determine where to put the label. 

*/ 


if ( segPt r->end_x > segPtr->start_x ) 

1 

x - LDstartPtr->ulcx + LDstart Pt r->width + 2; 
y - segPtr->start_y - 10; 

1 

else if { segPt r->end_x < segPtr->start_x ) 
l 

x = LDstartPtr->ulcx - 40; 
y » segPtr->st art y - 10; 





MODULE NAME; erase_line () 

MODULE FUNCTION: 

This routine clears the pixels in the specified line without changing the 
fields in the start or end symbols* 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 
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* clear ea'ch line seg. 

*/ 

segPtr - line->llne; 
while ( segPtr !- NULL ) 
f 

LDstartX - segPtr->start_x; 
LDstartY - segPtr->start_y; 

LDendX - segPtr->end_x; 

LDendY - segPtr->end_y; 
zap_llne( segPtr ) ; 
segPtr - (LlneSeg *) segPtr->next; 
) 


/ 


lnt erase_llne(line) 

Line "line; 

I 

LlneSeg ‘sogl’lr; 

Symbol "tempsym; 

/* 

* get to last segment In line; erase arrows from that segment 
*/ 


segPtr - llne-Mine; 

while ( segPtr I- NULL ) 

( 

If ( 1 segPtr->next ) 

draw_arrows( segPtr, TRUE ); 
segPtr - (LlneSeg *) segPtr->next; 

I 

/• 

• if this Is an If line, clear label 
V 

tempsym ■ (Symbol *) llne->from; 

If (tempsym- >,symbol_type — IF) 

I 

If ( line -* tempsym->Sym. If Sym. true_l lne ) 

( 

clear_text ( draw_area, tempsym->Sym. IfSym.true_x, 
tempsym->Sym. IfSym. t rue y, “TRUE" 1; 

) 

else if ( line ““ tempsym->Sym. I fSym. false_l lne ) 

( 

clear_text ( draw_area, tempsym->Sym. I fSym. false_x, 
tempsym->Sym. I fSym. f alse_y, “FALSE" ) ,- 

) 

el se 

I 

user_ack(“lf sym, but parameter line lsnt true or false"); 
exit (0) ; 

) 



) 
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MODULE NAME: find line cell() 


MODULE FUNCTION: Given a line segment, this routine finds the first cell in it 

that is of type LINE CELL. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


vQid f i nd_l i ne_cel 1 ( lineseg ) 
LineSeg 'lineseg; 


MODULE NAME: f ree cel Imap l inel ists () 


MODULE FUNCTION: This routine frees all the linelists in all of the cells. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void f ree__cel lmap_linelists () 

[ 

LineLlst 'currPtr, 
•nextPtr; 
register int i,j; 


int cellx, celly; 

while ( lineseg ) 

1 

cellx = lineseg->cell_start__x; 
celly - 1 ineseg->cel l_start_y; 

while ( st i ll_on_l lne (cel lx, celly, lineseg) ) 

1 

If ( Cell_Map[celly | f cellx] .cell_type « LINE_CELL ) 

1 

LDllneX - cellx; 

LDllneY - celly; 
return; 

) 


for ( i=0; 1 <CELL_ROWS; 1++ ) 

for (j-0; j<CELL_COLS; j++ ) 

if ( Cell_Map[ i) ( j | . cell_type « LINE_CELL ) 

{ 

currPtr - Cel l_Map ( i |( j ) . cel lent ry . 1 1 nes; 
while ( currPtr !- NULL ) 

1 

nextPtr = (LineLlst *) currPt r->next ; 
free ( currPtr ); 
currPtr « nextPtr; 
i 

Cell_Map(i ]( j] .cel l_entry. lines - NULL; 

} 


it ( 1 1 nescg->oricnlat ion -- UP ) 
celly — ; 

else if ( llneseg->orientation == DOWN ) 
celly++; 

else if ( lineseg->orientat ion -- RIGHT ) 
cellx++; 

else if ( lineseg->orientat ion — LEFT ) 
cellx — ; 


lineseg = (LineSeg * ) 1 ineseg->next ; 

} 

user_ack ("f ind line cell: couldnt find line cell") ; 
exit (0) ; 


< > 





* 

* MODULE NAME: free_llnes() 


MODULE FUNCTION: This routine deallocates all the space for all the lines 

In the symbol_Map array. 


REVISION 1USTORV: 

Graphical Corap Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void free_llnes() 

t 

lnt sym; 


for ( sym-0; s ym <MAX_S YM BO LS ; syra++ ) 

I 

If ( Symbol_Map[ sym| . symbol_type !- NONE ) 

1 

if ( Symbol Map[sym| .next !« NULL ) 

1 

free_segment ( SymbolMap [sym| ,next->line ); 
free( Symbol Map [sym J . next ); 

I 

If ( Symbol_Map[sym[ . from ! - NULL ) 

freelist! Symbol_Map[sym] . f rom ); 

If ( Symbol_Map( sym| . symbol type -« IF) 

( 

If ( Symbol_Map( symj . Sym. I fSym. fal se_l lne !■ NULL ) 

I . 

free segment ( Symbol_Map [ syral . Sym. I fSym. fa lsel 1 ne->l lne ); 
free! Symbol_Maplsyml .Sym.IfSym. falsellne ); 

I 

If ( Symbol_Map( sym| .Sym. I f Sym. t rue_l 1 ne !* NULL ) 

I 

free_segment ( Symbol_Map( sym) . Sym. If Sym. t rue_l lne->l lne ); 

. free! Symbol Map! sym\ . Sym. 1 f Sym. true line ); 

) 



currLlst “ llstptr; 
while ( currLlst !» NULL ) 

i 

nextLlst - (LineLlst *) currLlst->next ; 
free! currLlst ); 
currLlst * nextLlst; 

I 

1 


/ 


< > 
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MODULE NAME: free_segment () 

MODULE FUNCTION: This routine frees the space In all the segments of a line. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


A*************************************** ___ > 

void free_segment ( segPtr ) 

LineSeg *segPtr? 

1 

LineSeg ‘currSeg, 

‘nextSeg; 

currSeg » segPtr; 
while ( currSeg !- NULL ) 

{ 

nextSeg “ (LineSeg *) currSeg->next ; 
free ( currSeg ) ; 
currSeg - nextSeg; 

I 






9 1/08/29 ^ 
s 09:44:14 


lines.c 


I 

1 1 neseg->cel l^end_y « LDendPt r->cell_y ; 

1 i neseg->orientat ion « DOWN; 

done++; 

} 

) 

else 

/* 

* horizontal line 
*/ 


return llneseg 


If ( 1 ineseg->cell_sta rt_x > 1 1 neseg->cel l_end_x ) 


/* 

* line is moving to the left 
V 

If { 1 i noseg->r.t art X > LDendPt r->ul cx 4 LDendPt r->w Idth ) 

1 

1 1 neseg->cel l_end_x - LDendPtr->cell__x ♦ LDendPt r->cel l_wldth ; 

11 neseg->orientat ion - LEFT; 

done++; 

} 

\ 

else 

{ 

/* 

* line Is moving to the right 

*/ 


If ( 1 1 neseg->start_x < LDendPt r->ul cx ) 

l 

1 1 neseg->cel l_end_x - LDendPt r->cel l_x; 

lineseg->orlentation » RIGHT; 

done+t; 

) 

1 

If ( ! (done) ) 

llneseg ■ (LlneSeg * ) llneseg->prev; 

1 

switch ( 1 lneseg->orlentat ion ) 

1 

case UP: 

lineseg->arrow_x 
lineseg->arrow_y 
break; 
case DOWN: 

1 ineseg->a rrow_x 
1 i nosog->a rrow_y 
break; 
case RIGHT: 

lineseg->arrow_y 

lineseg->arrow_x 
break; 
case LEFT: 

1 1 neseg->a rrow_y 
llneseg->arrow_x 
break; 


» 1 ineseg->end_x; 

- LDendPtr->ulcy + LDendPtr-> height - 1; 


■ l 1 ncseg->cnd_x; 

- LDendPt r->ulcy - 1; 


- 1 ineseg->end_y; 

- LDendPt r->ulcx - 1; 


- 1 ineseg->end_y; 

• LDendPtr->ulcx + LDendPtr->width - 1; 


) 


/ 


< > 



MODULE NAME: mid_Line() 

MODULE FUNCTION: This routine allocates a new segment pointer when the user 

sets an 'elbow' in a line. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

M«***0*»00*.«*M >»»»»*************#*...****»»**»! 


void mid Line () 

{ 

LineSeg "new; 

/* 

* Now that we know the end. of the current line segment, 

* complete the structure. 

V 

LDsegPt r->ce 11 _end_x - LDcndX / CELLSIZE; 

LDsegPtr->cell_end“y - LDendY / CELL_SIZE; 

I.DsegPtr->end_x - LDendX; 

LDsegPt r->end_y = LDendY; 

if ( LDendX > LDstartX ) 

LDsegPtr->orientat ion “ RIGHT; 
else if ( LDendX < LDstartX ) 

LDsegPtr->or lentat ion - LEFT; 
else if { LDendY < LDstartY ) 

LDsegPtr->or lent at Ion - UP; 

else 

LDsegPt r->or lent at ion - DOWN; 

/* 

* The two pointers below are Initialized differently to make 

* the compiler happy and to avoid warning messages. 

* Allocate a new line segment structure and set the pointer in 

* the previous line segment to point to the new segment. 

*/ 

new = (LineSeg *) malloc( si zeof (LineSeg) ); 

LDsegPtr->next « (struct LineSeg *) new; 

/* 

* Start a new line segment structure. 

*/ 

new->cel l_start_x » LDsegPt r->cell_end_x; 

new->cel 1 _start_y - LDsegPtr->cel lendy ; 

new->start_x - LDsegPtr->end_x; 

new->start_y - LDsegPtr->end_y; 

new->arrow_x = 0; 

new->arrow_y = 0; 

new->prev - (struct LineSeg *) LDsegPtr; 
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MODULE NAME: prompt _t rue_fa 1 se ( ) 


/* 

* Display the popup and ask the user If they want to connect the TRUE or 

* FALSE side. 


MODULE FUNCTION: This module determines which of the true or false lines the 

user wants to draw. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

••••••••••••«•••>»»».< >•>•••■•• • »» 


lnt prompt_true_false ( parentcanvas ) 


/ 


if ( ask (tf_string) ) 

1 - TRUE PTR ; 

else 

1 - FALSE PTR; 

XmSt rl nyFree ( t_tcs ); 

XmStringFree ( f_tcs ); 

/* 

* restore previous ask strings 

*/ 

XtSetArgl args(0], XmNlabelStrlng, templ_tcs ); 
XtSetValuesl btn_ask_y, args, 1 ); 


Widget parentcanvas; 


{ 

XmStrlng templ_tcs, 
temp2_tcs; 

Arg args [1 ); 

lnt 1; 


/* 

• Create TRUE/FALSE strings for Ask popup. 

*/ 

XmStrlng t_tcs - XmSt r 1 ngCroate ( -TRUE”, XmSTRING_DEFAULT_CHARSET ); 
XmStrlng f_tcs - XmStrlngCreate ( -FALSE", XmSTRINGDEFAULTCHARSET ) ; 


XtSetArgl args(0], XmNlabelStrlng, temp2_tcs ) ; 
XtSetValuesl btnaskn, args, 1 ); 

XtSetArgl args[0|, XmNwldth, MIN_BTN_WIDTH ) ; 
XtSetValuesl btnasky, args, 1 ) ; 

XtSetValuesl btnaskn, args, 1 ) ; 

return! 1 ); 


/* 

* store current Ask strings 

*/ 


XtSetArgl args[0), XmNlabelStrlng, stempl_tcs ) ; 
XtGetValuesI btn_askjr, args, 1 ); 

XtSetArgl args(0|, XmNlabelStrlng, stemp2_tcs ) ; 
XtGetValues | ,btn ask_n, args, 1 ); 


/■ 

* Set new strings. 

*/ 

XtSetArgl args[0], XmNlabelStrlng, t_tcs ) ; 
XtSetValuesl btn_ask_y, args, 1 ); 

XtSetArgl args[0], XmNlabelStrlng, f_tcs ) ; 
XtSetValuesl btn_ask_n, args, 1 ); 


/* 

* Set new size - minimum button size. 

*/ 


XtSetArgl args(0|, XmNwldth, MIN_BTN_WIDTH ) ; 
XtSetValuesl btn_ask_y, args, 1 ) ; 
XtSetValuesl btn_ask_n, args, 1 ) ; 




This cell has a line list structure already. Malloc a new line 
list entry and set Its next pointer equal to the pointer In the 
first list entry. Add the new cell at the head of the list 
pushing everyone behind the new list. 

Use the long form of pointer casting (struct LlneLlst *) Instead 
of the typedef (LlneLlst *) to make the compiler happy. 


else 

1 

llstPtr “ (LlneLlst *) malloc( slzeof (LlneLlst) ); 
llstPtr->next - (struct LlneLlst *) cell->cell_ent ry . 1 lnes; 
llstPtr->prev - NULL; 
llstPtr->llne = linePtr; 
llstPtr->key - LlneLlstKey++; 

cell->cell_entry. llnes->prev * (struct LlneLlst *) llstPtr; 
cel 1 ->cel lentry . 1 lnes - llstPtr; 

) 

) 


/* 

• Goto the next cell in this line segment. 

*/ 


If ( segPtr->cel l_end_x -- segPtr->cel l_start_x ) 
y - (y < segPtr->cel lendy) ? ytl : y-1; 

el se 

x - (x < segPtr->cel l_end_x) ? x+1 : x-1; 


If ( (x-“segPtr->cell_end_x) it (y 
endPolnt - TRUE; 

else 

if ( endPolnt ) 
cont - FALSE; 

I 


segPtr->cell_end_y) ) 
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MODULE NAME: start_Llne() 

MODULE FUNCTION: This module creates the- new structures needed to start a line 

and initializes the fields in the start symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


• < > * 


void start_Llne( side ) 
int side; 

I 

/* 

■ Get a new Line struct. 
V 


LDltnePtr - {Line •) malloc( sizeot(Line) ); 


/* 

* Set "next” pointer in symbol. 
V 


switch ( side ) 


1 

case FALSE_PTR : 
case NEXT_PTR : 
case TRUE_PTR : 

1 


LDstartPt r->Sym. I fSym. false_line = LDllnePtr; 
break; 

LDstartPt r->next » LDllnePtr; 
break; 

LDstartPt r->Sym. I fSym.true_l lne “ LDllnePtr; 
break; 


/• 

* Load up structure. 
V 


LDlinePtr->line ** LDsegPtr - {LlneSeg M malloc( sizeof (Li neSeg) ); 
LDlinePtr->f rom - (struct Symbol *) LDstartPtr; 

LDli nePtr->to - NULL; 

LDlinePtr->key - LineKey++; 


LDsegPt r->cel l_start x 
LDsegPt r->cel l^starty 
LDsegPtr->start_x 
LDsegPt r->st a rt_y 
LDsegPt r-> a rrow^x 
LDsegPt r->arrow_y 
LDsegPtr->prev 
LDsegPtr->next 
LDsegPtr->key 


- LDstartX / CELL SIZE; 

- LDstartY / CELI.~SIZE; 

- LDstartX; 

- LDstartY; 

- 0 ; 

- 0 ; 

- NULL; 

- NULL; 

- LlneSegKey** ; 
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MODULE NAME: st il l_on_l ine ( ) 


MODULE FUNCTION: This module determines if the given point is on the given segment. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*»********»***********«•****««*****•**•*< >**«*****•*»**« 

int stl ll_on_line (x, y, lineseg) 

lnt x, y; 

LineSeg ‘lineseg; 


switch ( lineseg->orlentat ion } 

i 

case UP: 

if ( y >- 1 1 neseg->cel l_end_y ) 
return 1; 
else return 0; 
case DOWN: 

if ( y <- lineseg->cell_end_y • ) 
return 1; 
else return 0; 
case RIGHT: 

if { x <= li neseg->cell_end_x ) 
return 1; 
else return 0; 
case LEFT: 

If ( x >= 1 i neseg->cel l_end_x ) 
return 1; 
else return 0; 

J 


* MODULE NAME: valldlineO 

* MODULE FUNCTION: This module determines if the drawn line segment passes through 

* a symbol. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

******* ******* **«***./ 

int valid_line( type ) 
int type; 

int cell_x, celly, 
cont - TRUE, 
endPoint - FALSE, 

x,y; 


switch ( type ) 

{ 

case START SEGMENT : 
case MIDSEGMENT : 

x - LDstartX; 
y = LDstartY; 
while ( cont ) 

I 

cell x = x / CELLSI2E; 
celly - y / CELL_SIZE; 

if ( Cel l_Map [ cel l_y ) (cell_x) .cell_type — SYMBOL_CELL ) 

I 

if ( Cel l_Map(cell_y ) (cellx) .cell_entry. symbol != LDstartPtr ) 
return { ERR ); 

I 

if ( LDendX «= LDstartX ) 

y - (y < LDendY) ? y*l : y-1; 

else 

x - {x < LDendX) ? x+1 : x-1; 

if ( (x==LDendX) && (y—LDendY) ) 
endpoint - TRUE; 

else 

if ( endpoint ) 
cont = FALSE; 

) 

break; 

case ENDSECMENT : 

x “ LDstartX; 
y - LDstartY; 
while < cont ) 






/************A*****«********************« ( > ****************************** 

* 

* PILE NAME: lines. h 

* 

* PILE FUNCTION: 

* This file contains the constants and variables used to maintain the lines 

* between symbols. These contants and variables are primarily maintained in 

* the file: lines. c 


* SPECIFICATION DOCUMENTS: 

* /home/pro ject/3531/Docu/GCB. spec.doc 


* FILE MODULES: 

* 

* N/A 

* 

A**************,,******************#**** * ******************************* 

/* 

* Constants used In lines. c 
*/ 

•define START_SECMENT 0 

•define MID_SEGMENT 1 

•define ENDSEGMENT 2 

•define FALSE PTR 1 

•define NEXT_PTR 2 

•define TRUEPTR 3 

r 

* Globals. 

*/ 

Drawable LDdraw; 

GC LDgc; 

Pixel LDforeground, LDbackground; 

Line ‘LDlinePtr; 

LlneLlst *LDllstPtr; 

LlneSeg ‘LDsegPtr; 

Symbol *LDendPtr, /* ptr to end symbol of current line 

•LDstartPtr; /* ptr to start symbol of current line 

int LDendX, 

LDendY, 

LDllneX, 

LDllneY, 

LDoldX, 

LDoldY, 

LDside, /* Indicates which part of an IF to connect 

LDstartX, 

LDstartY, 

LDtype; /* start segment, mid segment, or end segment 

/* 

* Function prototypes. 

*/ 



lines.h 



prompt _t rue_f a 1 se 
valld_line 

add_from_l ine 
cancel_l ine 
clear_cel l_map_l ine 
clear_line 
draw_line 
end_line 
f ind_l i necel 1 
f ree_l ines 
f ree_list 
f ree_segment 
mid_line 

set_cel l_map_l 1 ne 
set_line 
start_line 
zap line 





/* 

• include I lie used to manage matrices. 

V 


•define ADD 0 
•define SUBTRACT 1 

•define INT 1 
•define FLOAT 2 
•define DOUBLE 3 
•define SHORT 4 
•define UNSIGN 5 


( 
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* FILE NAME: menu.h 


FILE FUNCTION: 

This file contains the program constants, variable declarations and function 
prototypes for the routines in expr_menu.c and sub_menus.c and other various 
source files which create and maintain menus and selection palettes. 


SPECIFICATION DOCUMENTS: 


menu.h 


/home/ pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 


old_lrcy, 

oldulcx, 

oldulcy; 


* Function prototypes 

*/ 


XtCallbackProc cbr_if(), 

cbr_matrix () , 
cbrpalette () , 
cbr_prlnt () , 
cbrprlntset () , 
cbrquaternion {) f 
cbrtrig () ; 

int make_ps_f 1 le () ; 

void delete box () ; 


•define Handed 
I do 1 1 /jo Default 
•define Scrolled 
•define Zooming 

•define NORMAL 
•define REDUCED 

•define CBR^COMP_TYPE 
•define CBR_COMP_TYPE_DONE 
•define CBR_COMP_TYPE_CANCEL 

•define COMP DELETE APPLY 


•define 

•define 

•define 

•define 

•define 

•define 

•define 

•define 

•define 


M_SHOW 

M_ADD 

M_SUB 

MJiULT 

M_IDENT 

M_INV 

M_TRAN 

M_CROSS 

M DOT 


display the matrix menu 


•define T_SHOW 
•define T_COS 
•define TACOS 
•define T_TAN 
•define T_ATAN 
•define T_SIN 
•define T ASIN 


/* display the trig menu 


Variables. 


int BStartx, 
BStarty, 
Copies, 
PrintScale, 
old_lrcx, 


blank not filmed 


next_inputs.h 


* FILE NAME: next_l nput s . h 

* 

* file FUNCTION: 

* 

* Header file for Che DECISION and SET logical expression input buttons 


int valld_polnts [NUM_BUTTONS | 

ParenCount, 

WhereAml; 


* Global variables used In next_inputs.c 

*/ 


* SPECIFICATION DOCUMENTS: 


void next Inputs 0/ 

invalidate buttons!); 


* /home/pro ject/3531 /Docu/GCB. spec.doc 


FILE MODULES: 


Idefine NUM_BUTTONS 37 

Ideflne MSID 0 

Idefine GLOBAL 1 

Ideflne LOCAL 2 

Idl'd no NUMBER 3 

Ideflne STRINC 4 

Ideflne AND 5 

Ideflne OR 6 

Ideflne NOT 7 

Ideflne BITAND 8 

Ideflne BITOR 9 

•define BITXOR 10 

Ideflne EQ 11 

Ideflne NE 12 

•define LE 13 

•define GE 14 

Ideflne LT 15 

Ideflne GT 16 

•define PLUS 17 

•define MINUS 18 

Ideflne MUL 19 

•define DIV 20 

Ideflne LPAR 21 

•define RPAR , 22 

Idefine COMMA 23 

Ideflne SHIFTL 24 

Ideflne SHIFTR 25 

Ideflne PI 26 

Ideflne EXP 27 

•define POWER 28 

•define SQRT 29 

•define LOG 30 

•define NLOG 31 

•define TRIG 32 

Ideflne QUAT 33 

•define DEF_FN 34 

Ideflne MAT_FN 35 

Ideflno WSG 36 


Global variables used In next inputs. c 
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pixmaps.h 




0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 



FILE 

NAME: pixmaps.h 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 



0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

FILE 

FUNCTION: 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00), 






This file contains the arrays which define the various pixmaps used within the 
Graphical Comp Builder. The pixmaps for the palette area (BEGIN, END, SET 
and other symbols) and the pixmaps for the user_ack{) and ask{) popups are 
defined In this file. 


Idefine beglnwidth 64 
fdefine begin_height 64 
static char begin bits [] - { 



SPECIFICATION DOCUMENTS: 









0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 














0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

0x00, 

0x00, 


/home/pro Ject/35 3 1/Docu/GCB. 

spec. 

doc 






0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 














0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 














0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 


FILE 

MODULES 

2 










0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 














0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


N/A 












0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 














0x00, 

Oxf 8, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

OxOf , 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 


















0x8 0 , 


0x00, 

, 


















0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x40, 

0x00, 

0x00, 

0x00, 

Idefine 

activate width 64 









0x00, 

0x00, 

0x00, 

OxOl, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x02, 

fdefine 

activate height 64 









0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x10, 

OxOO, 

0x00, 

0x00, 

static 

char activate 

bits [ 

i - i 








0x00, 

0x00, 

0x00, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 


0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x7c, 

Oxbe, 

0x5f , 

0x21, 

0x00, 

0x08, 

0x08, 

0x00, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x21, 

0x00, 

0x00, 

0x08, 

0x00, 

0x84, 

0x82, 

0x40, 

0x23, 

0x00, 

0x08, 


0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x84, 

0x82, 

0x40, 

0x23, 

0x00, 

0x08, 

0x04, 

0x00, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x23, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 

0x40, 

0x23, 

0x00, 

0x10, 


0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

0x04, 

0x02, 

0x40, 

0x25, 

0x00, 

0x10, 

0x04, 

OxOO, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x00, 

Oxfe, 

Oxff 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

0x3 f f 

0x40, 

0x25, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 

0x40, 

0x25, 

0x00, 

OxlO, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

Oxfe, 

0x8e, 

Ox5f, 

0x29, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x50, 

0x29, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 

0x50, 

0x29, 

0x00, 

0x10, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

0x84, 

0x82, 

0x50, 

0x29, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x50, 

0x31, 

0x00, 

0x10, 

0x04, 

0x00, 

0x84, 

0x82, 

0x50, 

0x31, 

0x00, 

0x10, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x84, 

0x82, 

0x50, 

0x31, 

0x00, 

0x08, 

0x08, 

0x00, 

0x84, 

0x82, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x50, 

0x31, 

0x00, 

0x08, 

0x08, 

0x00, 

0x84, 

0x82, 

0x50, 

0x21, 

0x00, 

0x08, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x7c, 

Oxbe, 

0x5f, 

0x21, 

0x00, 

0x08, 

0x10, 

OxOO, 

0x00, 

0x00, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x00, 

0x00, 

0x00, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x04, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x20, 

0x00, 

0x00, 

0x00, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x00, 

0x00, 

0x00, 

0x02, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 


0x12 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x80, 

0x03, 

0x00, 

0x00, 


0x00 

0x00, 

0x00, 

0x24, 

0x12, 

0x08 

Oxef , 

0x15, 

0x84, 

Oxf 0, 

0x3d, 

0x24, 

0x00, 

0x00, 

OxeO, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

0x00, 

0x00, 

0x30, 

0x00, 


0x12 

0x08, 

0x41, 

0x14, 

0x84, 

0x40 

0x04, 

0x24, 

0x12, 

0x08, 

0x41, 

0x14, 

0x00, 

Oxfe, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxl f. 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x84 

0x40, 

0x04, 

0x24, 

0x12, 

0x14 

0x41, 

0x24, 

0x42, 

0x41, 

0x04, 

0x24, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x12 

0x14, 

0x41, 

0x24, 

0x42, 

0x41 

0x04, 

0x24, 

0x12, 

0x14, 

0x41, 

0x24, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x42 

0x41, 

0x04, 

0x24, 

0x12, 

0x14 

0x41, 

0x24, 

0x42, 

0x41, 

0x04, 

0x24, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x12, 

0x14, 

0x41, 

0x44, 

0x42, 

0x42 

0x04, 

0x24, 

0x12, 

0x22, 

0x41, 

0x44, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x21, 

0x42, 

0x3c, 

0x24, 

0x12, 

0x3e 

0x41, 

0x44, 

Oxel, 

0x43, 

0x04, 

0x24, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 


0x12, 

0x22, 

0x41, 

0x44, 

0x21, 

0x42 

0x04, 

0x24, 

0x12, 

0x22, 

0x41, 

0x44, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x21 

0x42, 

0x04, 

0x24, 

0x12, 

0x41 

0x41, 

0x84, 

0x10, 

0x44, 

0x04, 

0x24, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x12, 

0x41, 

0x41, 

0x84, 

0x10, 

0x44 

0x04, 

0x24, 

0x12, 

0x41, 

0x4 f , 

0x84, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 


0x10, 

0x44, 

0x3c, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00); 






0x00, 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 














0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 














0x00, 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

Idefine 

box width 16 











0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

•define 

box height 16 










0x00, 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x24, 

static char box bits| 

i - t 










0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

0x12, 

0x00, 

0x00, 

0x00, 

Oxff 

, Oxff, 

Oxff, 

Oxff 

Oxff 

Oxff, 

Oxff, 

Oxff, 

Oxff 

Oxff 

Oxff 

Oxff 


0x00, 

0x00, 

0x00, 

0x24, 

0x12, 

0x00 

0x00, 

OxOO, 

0x00, 

OxOO, 

0x00, 

0x24, 

Oxff 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff 

Oxff, 

Oxff, 

Oxff 

Oxff 

Oxff 


0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x24, 

Oxfe, 

Oxff, 

Oxff, 

Oxff, 

Oxff 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff) 

; 





Oxff, 

Oxff, 

Oxff, 

0x3 f, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

















z 

o 


-r\ 


m 

o 


preceding page blank 



•define call_wldth 64 
•define call_helght 64 
static char call_blts(| - | 


0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
Oxf f , Oxff, 0x07, 0x00, 0x00, 
0x00, 0x08, 0x00, 0x00, 0x00, 
0x00, 0x00, OxcO, 0x00, 0x00, 
0x80, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x02, 0x40, 
0x20, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x08, 0 x 10 , 
0x10, 0x00, 0x7f, 0x10, 0x04, 
0x04, 0x08, 0x00, 0x10, 0x08, 
0x08, 0x00, 0x01, 0x10, 0x04, 
0x04, 0x08, 0x00, 0x20, 0x08, 
0x04, 0x00, 0x01, 0x28, 0x04, 
0x04, 0x08, 0x00, 0x40, 0x04, 
0x04, 0x00, 0x01, 0x28, 0x04, 
0x04, 0x08, 0x00, 0x40, 0x04, 
0x04, 0x00, 0x01, 0x7c, 0x04, 
0x04, 0x08, 0x00, 0x40, 0x04, 
0x04, 0x00, 0x01, 0x44, 0x04, 
0x04, 0x08, 0x00, 0x40, 0x08, 
0x08, 0x00, 0x01, 0x44, 0x04, 
0x04, 0x08, 0x00, 0x20, 0x08, 
0x10, 0x00, 0x01, 0x82, 0x04, 
0x04, 0x08, 0x00, 0x10, 0x10, 
0x20, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x08, 0x40, 
0x80, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x02, 0x00, 
0x00, 0x02, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x60, 0x00, 0x00, 
0x00, OxeO, Oxff, Oxff, Oxff, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0 x 00 , 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxcO, 

Oxff 

0x30, 

0x00, 

0x00, 

0x00, 

0x00, 

0x18 

0x00, 

0x20, 

0x00, 

0x00, 

0x06, 

0x00 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 

0x00, 

0x00, 

0x02, 

0x80, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x10, 

0x10, 

0x00, 

0x01, 

0x00, 

0x01, 

0x10, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x20, 

0x08, 

0x00, 

0x01, 

0x00, 

0x01, 

0x28, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x40, 

0x04, 

0x00, 

0x01, 

0x00, 

0x01, 

0x28, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x40, 

0x04, 

0x00, 

0x01, 

0x00, 

0x01, 

0x28, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x40, 

0x04, 

0x00, 

0x01, 

0x00, 

0x01, 

0x44, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x40, 

0X04, 

0x00, 

0x01, 

0x00, 

0x01, 

0x44, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x20, 

0x08, 

0x00, 

0x01, 

0x00, 

0x01, 

0x82, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x10, 

0X10, 

OxOQ, 

0x01, 

0x00, 

0x7 f , 

0x82, 

Oxfc, 

Oxf 9, 

0x03, 

0x00, 

0x00, 

0x08, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x80, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x80, 

0x00, 

0x00, 

OxOc, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

Oxff, 

OxOf, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 
0x00} , 

0x00, 

0x00, 

0x00, 


0x00, 

0x00, 

0x00, 

0x00, 

Oxff, 

0x00, 

0x00, 

0x01, 

0x00, 

0x04, 

0x00, 

0x10, 

0x10, 

0x20, 

0x28, 

0x20, 

0x28, 

0x40, 

0x28, 

0x40, 

0x44, 

0x40, 

0x44, 

0x20, 

0x44, 

0x20, 

0x82, 

0x10, 

0x00, 

0x04, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


•define end_wldth 64 
•define end_helght 64 
static char end_blts(| - ( 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxf 8, 

0x3f , 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x80, 

0x07, 

OxcO, 

0x03, 

0x00, 

0x00, 

0x00, 

0x00, 

0x60, 

0x00, 

0x00, 

OxOc, 

0x00, 

0x00, 

0x00, 

0x00, 

0x18, 

0x00, 

0x00, 

0x30, 

0x00, 

0x00, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

OxcO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

OxcO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x00, 

0x00, 

0x04, 

0x00, 

OxQO, 

0x00, 

0x00, 

0x40, 

0x00, 

0x00, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x80, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x01, 

0x00, 

0x00, 



fevAivXwXvA 

0x10, 0x00, 0x41, 
0x20, 0x08, 0x02, 
0x20, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x80, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x02, 0x00, 
0x00, 0x00, 0x60, 
0x00, OxeO, Oxff, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 


0x82, 0x20, 
0x10, 0x10, 
0x00, 0x00, 
0x08, 0x40, 
0x00, 0x00, 
0x02, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
Oxff, Oxff, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 


0x08, 

0x02, 

0x10, 

0x00, 

0x7f , 

Oxfe, 

0x00, 

OxOO, 

0x08, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

OxOl, 

0x00, 

0x00, 

0x00, 

0x80, 

0x00, 

0x10, 

OxOO, 

OxOO, 

Oxff, 

OxOf , 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00| 


0x10, 0x00, 
0x20, 0xf8, 
0x20, 0x00, 
0x00, 0x00, 
0x80, 0x00, 
0x00, 0x00, 
0x00, 0x0c, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 


0x41, 0x82, 
0x03, 0x10, 
0x00, 0x00, 
0x00, 0x04, 
0x00, 0x00, 
0x00, 0x01, 
0x00, 0x00, 
0x10, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 
0x00, OxOO, 
0x00, 0x00, 
0x00, 0x00, 
0x00, 0x00, 


•define if_wldth 64 
•define lf_height 64 
static char lf_bits[] - | 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

0x80 

0x07, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x60, 

0x18, 

OxOO, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x00, 

0x18, 

0x60, 

OxOO, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

0x06, 

0x80, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x80, 

0x01, 

0x00, 

0x06, 

OxOO, 

OxOO 

0x00, 

0x00, 

0x60, 

0x00, 

0x00, 

0x18, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x18, 

OxOO 

0x00, 

0x60, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x06, 

0x00, 

0x00, 

0x80, 

0x01, 

OxOO 

0x00, 

0x80, 

0x01, 

0x00, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

0x60, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x18, 

0x00, 

0x00, 

0x18, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x60, 

OxOO, 

0x00, 

0x06, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x80, 

0x01, 

0x80, 

0x01, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x06, 

0x40, 

0x00, 

0x00, 

0x10, 

Oxl f , 

OxOO, 

OxOO, 

0x06, 

0x40, 

0x00, 

OxOO, 

0x10, 

0x01, 

OxOO, 

0x00, 

0x08, 

0x40, 

OxOO, 

OxOO, 

0x10, 

0x01, 

0x00, 

0x00, 

0x08, 

0x40, 

0x00, 

0x00, 

0x10, 

0x01, 

OxOO, 

OxOO, 

0x08, 

0x40, 

0x00, 

0x00, 

OxlO, 

0x01, 

0x00, 

0x00, 

0x08, 

0x40, 

OxOO, 

OxOO, 

0x10, 

0x01, 

0x00, 

0x00, 

0x08, 

0x40, 

0x00, 

0x00, 

0x10, 

OxOf , 

OxOO, 

OxOO, 

0x08, 

0x40, 

0x00, 

0x00, 

0x10, 

0x01, 

0x00, 

0x00, 

0x08, 

0x40, 

OxOO, 

OxOO, 

0x10, 

0x01, 

0x00, 

0x00, 

0x08, 

0x40, 

0x00, 

0x00, 

0x10, 

0x01, 

OxOO, 

OxOO, 

0x08, 

0x40, 

0x00, 

0x00, 

0x10, 

0x01, 

0x00, 

0x00, 

0x08, 

0x60, 

0x01, 

OxOO, 

0x10, 

0x01, 

0x00, 

0x00, 

0x06, 

0x00, 

0x06, 

0x00, 

0x10, 

0x01, 

OxOO, 

0x80, 

0x01, 

0x00, 

0x18, 

0x00, 

0x00, 

0x00, 

0x00, 

0x60, 

0x00, 

OxOO, 

0x60, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x18, 

0x00, 

0x00, 

0x80, 

0x01, 

0x00, 

OxOO, 

OxOO, 

0x06, 

OxOO, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

0x80, 

0x01, 

0x00, 

OxOO, 

OxOO, 

0x18, 

OxOO, 

0x00, 

0x60, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x60, 

0x00, 

OxOO, 

0x18, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x80, 

0x01, 

0x00, 

0x06, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

0x06, 

0x80, 

0x01, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x18, 

0x60, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x60, 

0x18, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

0x80, 

0x07, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 

0x00, 

0x00, 

OxOO, 

0x00, 

0x00, 

OxOO, 

OxOO, 

0x00, 

OxOO, 

OxOO, 

OxOO, 

OxOO, 
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pixmaps.h 


0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x10, 

0x04, 

0x14, 

0x10, 

0x10, 

0x82, 

0x50, 

0x81, 

0x27, 

0x04, 

0x14, 

0x00, 

0x00, 

OxcO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x30, 

QxQO, 

0x81, 

0x60, 

0x01, 

0x20, 

0x04, 

0x14, 

0x10, 

0x20, 

0x81, 

0x40, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 0x00, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x04, 

0x14, 

0x10, 

OxcO, 

0x00, 

0x3f , 

0x01, 

0x20, 

Oxe4, 

Oxf 7, 

0x00, 

0x00, 

0x06, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

OxcO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x30, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 0x06, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x10, 

OxcO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x30, OxeO, 

0x9f , 

0x7f, 

0x12, 

0xc8, 

0x3f , 

0x10, 

Oxf c, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

0x3f, 

0x00, 

0x00, 

0x08, 

0x20, 

0x90, 

0x40, 

0x12, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20, 

0x90, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x32, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20,. 

0x90, 

0x40, 

0x32, 

0x08, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x20, 

0x90, 

0x40, 

0x32, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20, 

0x90, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x52, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20, 

0x90, 

0x40, 

0x52, 

0x08, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x20, 

0x90, 

0x40, 

0x52, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20, 

0x90, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x92, 

0x08, 

0x04, 

0x10, 

0x06, 

0x20, 

0x90, 

0x40, 

0x92, 

0x08, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

OxeO, 

Ox9f, 

0x7 f , 

0x92, 

0x08, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x12, 

0x09, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x01, 

0x12, 

0x09, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x20, 

0x80, 

0x02, 

0x12, 

0x09, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x12, 

0x09, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x04, 

0x12, 

OxOa, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x08, 

0x20, 

0x80, 

0x04, 

0x12, 

OxOa, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x12, 

OxOa, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x10, 

0x12, 

OxOc, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00] 



0x00, 

0x20, 

0x80, 

0x10, 

0x12, 

OxOc, 

0x04, 

0x10, 

0x08, 

0x20, 

0x80, 

0x20, 











0x12, 

OxOc, 

0x04, 

0x10, 

0x00, 

0x20, 

0x80, 

0x20, 

0x12, 

0x08, 

0x04, 

0x10, 











0x08, 

0x20, 

0x80, 

0x40, 

0x12, 0x08, 

0x04, 

0x10, 

0x08, 

0x00, 

0x00, 

0x00, 











0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

•define 

start 

width 

64 







0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x08, 

0x00, 

0x00, 

0x00, 

•define 

start 

height 

64 







0x00, 

0x00, 

0x00, 

0x10, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

static char start blts[) - 

[ 






Oxf 8, 

Oxff, 

Oxf t, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxl f. 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0X00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

oxoo. 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

oxoo. 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxfO, 

Oxff, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxff, 

Oxff, 

Oxff, 

OxOf , 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00} 





0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 


•define set_width 64 
•define set_height 64 
static char set_bits[l 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x41, 

0x08, 

0x41, 

0x08, 

0x10, 

0x12, 

0x20, 

0x40, 

0*41, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxoo, 

0x00, 

0x00, 

0x00, 

0x10, 

0x12, 

0x20, 

0x40, 

0x41, 

0x08, 

0x41, 

0x08, 

0*10, 

0x12, 

0x00, 

0x00, 

oxoo. 

0x00, 

0x00, 

0x00, 

0x00, 

.0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x41, 

0x08, 

0x41, 

0x08, 

0x10, 

0x12, 

0x20, 

0x40, 

0*41, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x12, 

0x20, 

0x20, 

0x42, 

0x08, 

0x41, 

0x08, 

0x10, 

0x12, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x42, 

0x08, 

0x41, 

0x08, 

0x10, 

0x12, 

0x20, 

0x20, 

0*42, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x12, 

0x20, 

0x20, 

0x42, 

0x08, 

0x41, 

0x08, 

0x10, 

Oxf 2, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0xc7, 

OxOf, 

0x41, 

0x08, 

0x10, 

0x02, 

0x22, 

0x10, 

0*44, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x02, 

0x22, 

0x10, 

0xc4, 

0x00, 

0x41, 

0x06, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxc4, 

0x00, 

0x41, 

0x08, 

0x10, 

0x02, 

0x22, 

0x10, 

0x44, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x02, 

0x22, 

0x08, 

0x48, 

0x01, 

0x41, 

0x08, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x48, 

0x01, 

0x41, 

0x08, 

0x10, 

0x02, 

0x22, 

0x08, 

0x48, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxfc, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

0x3 f , 

0x10, 

0x02, 

0x22, 

0x08, 

0x48, 

0x02, 

0x41, 

0x08, 

0x10, 

0x02, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x48, 

0x04, 

0x41, 

0x06, 

0x10, 

0x02, 

0x22, 

0x04, 

0x50, 

0x04, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x10, 

0x02, 

0x22, 

0x04, 

0x50, 

0x08, 

0x41, 

0x08, 

0x10, 

Oxf 2, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x50, 

0x08, 

0x41, 

0x08, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0xe4, 

Oxf 7, 

0x7d, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x24, 

0x10, 

0x10, 

0x00, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x24, 

0x10, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0x24, 

0x10, 

0x10, 

0x02, 

0x10, 

OxOf, 

Ox3f, 

0x20, 

0x24, 

0x10, 

0x10, 

0x04, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x88, 

0x10, 

0x01, 

0x20, 

0x24, 

0x10, 

0x10, 

0x04, 

0x08, 

0x20, 

0x01, 

0x20, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0x24, 

0x10, 

0x10, 

0x08, 

0x04, 

0x20, 

0x01, 

0x20, 

Oxe4, 

0x77, 

0x10, 

0x08, 

0x00, 

0x00, 

0x40, 

0x08, 

0x10, 

0x02, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 

0x40, 

0x81, 

0x27, 

0x04, 

0x14, 

0x10, 

0x10, 

0x82, 

0x4 f. 

0x01, 

0x20, 

OxfO, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

Oxff, 

OxOf, 

0x00, 

0x00, 


0x10, 

0x01 f 

0xll f 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x00, 0x00, 0x40, 0x08, 0x10, 0x02, 0x00, 0x00, 0x00, 0x00, 
0x10, 0x02, 0x00, 0x00, 0x00, 0x00, 0x40, 0x08, 0x10, 0x02, 
0x00, 0x00, 0x40, 0x08, 0x10, 0x02, 0x00, 0x00, 0x00, 0x00, 
0x10, 0x02, 0x00, 0x00, 0x00, 0x00, 0x40, 0x08, 0x10, 0xf2, 
OxcO, Oxef, 0x47, 0x08, 0x10, 0x12, 0x20, 0x80, 0x40, 0x08, 
0x10, 0x12, 0x20, 0x80, 0x40, 0x08, 0x41, 0x08, 0x10, 0x12, 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxff, 

0x40, 

0x00, 

0x40, 

0x00, 

0x40, 

Oxfb, 

0x41, 

0x20, 

0x41, 

0x20, 

0x41, 

0x20, 

0x41, 

0x23, 

0x41, 

0x22, 

0x41, 

0x22, 

0x41, 

0x22, 

0x41, 

0x23, 

0x40, 

0x00, 

0x40, 

0x00, 

0x40, 

0x00, 

0x40, 

0x00, 



0x20, 

0x20, 

0x00, 

0x20, 

0x00, 

0x20, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxff, 

0x08, 

0x00, 

0x08, 

0x00, 

0x08, 

0x81, 

0x08, 

0x40, 

0x08, 

0x40, 

0x08, 

0x20, 

0x08, 

OxfO, 

0x08, 

0x10, 

0x08, 

0x08, 

0x08, 

0x08, 

0x08, 

0x04, 

0x08, 

0x00, 

0x08, 

0x00, 

0x08, 

0x00, 

0x08, 

0x00, 
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pixmaps.h 


0x00 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00 ) 

; 




0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 













! 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 













0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 













0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

• dot i no 

stopwldlh 64 









0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxff, 

0xc7, 

0x7 f , 

•define 

stophelght 

64 









0x02, Oxe4, 

0x7 f , 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x02, 

0x04, 

0x04, 

0x00, 

static char stop blts[] » 

i 








0x00, 0x10, 

0x40, 

0x00, 

0x04, 

0x02, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 0x02, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x08, 

0x01, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x10, 

0x40, 

0x00, 

0x08, 

0x01, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x90, 0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x90, 

0x00, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 0x10, 

0x40, 

0x00, 

0x60, 

0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x60, 0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

OxeO, 

0x07, 

0x40, 

0x00, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x60, 

0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxeO, 

Oxff, 

0x60, 

0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x90, 

0x00, 

0x04, 

0x00, 

Oxff, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x02, 

0x00, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x90, 

0x00, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x08, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

0x08, 

0x01, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x08, 

0x01, 

0x04, 

0x00, 

0x00, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 0x10, 

0x40, 

0x00, 

0x04, 

0x02, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x80, 

0x00, 

0x00, 

0x04, 0x02, 

0x04, 

0x00, 

0x00, 

0x10, 

0x40, 

0x00, 

0x02, 

0x04, 

0x04, 

0x00, 

0x00, 

0x40, 

0x00, 

0x00, 

0x00, 

0x40, 

0x00, 

0x00, 

0x00, 

0x80, 

0x00, 

0x00, 

0x00, 

0x10, 

OxeO, 

0x7f , 

0x02, 

0x04, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x00, 

0x00, 

0x08, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x04, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x02, 

0x00, 

0x00, 

! oxoo, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x10, 

0x00, 

0x00, 

0x01, 

Oxfc, 

0x7e, 

Oxbf, 

Oxl f. 

0x20, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x04, 

0x10, 

Oxal, 

0x10, 

0x20, 

0x00, 

0x00, 

0x01, 

Oxfc, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxal, 

Oxl f. 

0x20, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x01, 

0x80, 

0x10, 

Oxal, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

Oxfc, 

0x10, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

Oxbf, 

0x00, 

0x20, 

0x00, 

0x00, 

0x01, 

0x00, 

0x00, 

0x00, 

0x00, 

0x20, 

0x00, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00); 






0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x04, 0x00, 0x00, 
0x00, 0x00, 0x08, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 
0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x20, 0x00, 0x00, 
0x00, 0x00, 0x01, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 
0x00, 0x80, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 
0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x10, 0x00, 0x00, 
0x00, 0x00, 0x04, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 
0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x02, 0x00, 0x00, 
0x00, 0x00, OxeO, Oxff, Oxff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); 


•define text_wldth 64 
•define texthelght 64 
static char text_blts(| - | 

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 


static char questionBlts [ 1 = ) 

OxfO, 0x3f, 0x00, 0x58, 0x55, 0x00, Oxac, Oxaa, 0x00, 0xd6, 0x5f, 0x01, 
Oxea, Oxbf, 0x02, 0xf6, 0x7f, 0x01, Oxea, Oxba, 0x02, 0xf6, 0x7d, 0x05, 
Oxea, Oxba, OxOa, 0x56, 0x7d, 0x15, Oxaa, Oxbe, Oxle, 0x56, 0x5f, 0x01, 
Oxac, Oxaf, 0x02, 0x58, 0x57, 0x01, OxbO, Oxaf, 0x00, 0x60, 0x55, 0x01, 
OxaO, Oxaa, 0x00, 0x60, 0x17, 0x00, OxaO, Ox2f, 0x00, 0x60, 0x17, 0x00, 
OxbO, 0x2a, 0x00, 0x50, 0x55, 0x00); 


static char infoBitsJ) 
0x00, 0x00, 

- 1 
0x78, 

0x00, 

0x54, 

0x00, 

0x2c, 

0x00, 

0x54, 

0x00, 

0x28, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x7e, 

0x00, 

0x2a, 

0x00, 

0x5c, 

0x00, 

0x28, 

0x00, 

0x50, 

0x00, 

0x28, 

0x00, 

0x58, 

0x00, 

0x28, 

0x00, 

0x58; 

0x00, 

0x28, 

0x00, 

0x58, 

0x00, 

Oxae, 

0x01, 

0x56, 

0x01, 

Oxaa, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00) 
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position_file.c 



* — 

* FILE NAME: posi 1 1 on_f 1 1 e. c 

* FILE FUNCTION: 

* This file contains the routines which maintain the Position directories and 

* process the popup frames which allow the user to select and create Position 

* directories. 


* SPECIFICATION DOCUMENTS: 

* 

* /home/pro ject/3S31/Docu/GCB. spec. doc 




* MODULE NAME: bulld_cre_pos_popup () 

* MODULE FUNCTION: 

* This routine builds the create Position popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

..../ 


* FILE MODULES: 


void build_cre_pos_popup( parent ) 


* bull d_cre pos popup!) 

* bui ld_sel pos popup!) 

* cbr_cre_pos 1) ~ 

* cbr_new_posltlon () 

* cbr_pos_selected () 

* cbr_sel_pos () 

* justName!) 

* justPath!) 

* loadposlist () 

* va 1 ld_pos_name () 


- build the create Position popup 

- build the select Position popup 

- display the create Position popup 

- process CREATE and CANCEL in create Position 

- user has selected a Position or directory 

- display the select Position popup, process CANCEL 

- removes the .POS extension from a string 

- removes the Position name and extension from a str 

- load the Position dlrs and dir names into a list 

- check for a Position directory name 


Widget parent; 


lnt n; 


dlg_cre_pos “ cr_popup( NULLS, parent, "Create Position* ); 

FormW - cr_form( NULLS, dlg_cre_pos, NULL, NULL ); 
setattrlbs! FORM, FormW, 600, 225, XmRESI ZENONE ); 


/ 


•Include <stdlo.h> 

•Include <sys/flle.h> 
•Include <sys/types. h> 
•Include <sys/tlme.h> 
•Include <dlrent.h> 

•Include <X1 1/lnt r lnslc. h> 
•Include <Xm/Xm.h> 


•Include 

•Include 

•Include 

•Include 

•Include 

•include 


“gcb.h" 

“cbr.h” 

"widgets. h” 
“posltlQn_fiXe. h" 
“eletnent_flle.h" 
"constants. h" 


/* 

* Create the field labels, then the text entry fields, then the buttons. 

*/ 

lbl_cre_pos ne - cr label (NULLS, FormW, "New Position Name :", 0, 15, 25, 9, IGNORE) ; 
lbl_cre_pos”ppath - cr~label (NULLS, FormW, "Position Path:", 0, 30, 40, 1 3, IGNORE) ; 
cr_label (NULLS, FormW, "New Position Directory:", 0, 45, 55, 4, IGNORE); 
txt_cre_pos_nd - crlabel (NULLS, FormW, "", 0, 45, 55, 32, IGNORE) ; 

txt_cre pos_ne - cr^text (NULLS, FormW, lbl_cre_pos_ne, NULL, NULLS, FALSE, 1 , 62) ; 
txt_cre_pos_ppath= cr_text (NULLS, FormW, lbl_cre_pos_ppath, NULL, NULLS, FALSE, I, 62); 

btn_cre_pos show *> cr_command( NULLS, FormW, "Show New POS", cbr_text_proc, 1) ; 

DoneW = cr_command( NULLS, FormW, “Create", cbr_new_posit Ion, DONE) ; 

CancelW - cr_command( NULLS, FormW, "Cancel", cbr_new_posltlon, CANCEL) ; 

HelpW - cr_command( NULLS, FormW, "Help", cbr_help, CREATEPOS) ; 

crseparator ( NULLS, FormW, 70, IGNORE, 1, 99 ) ; 


/* 

* Set the attributes for the text fields and the buttons. 
*/ 


XtAddCallback ( txt_cre_pos_ppath, XmNactlvateCallback, cbr_text_proc, 1) ; 
XtAddCallback ( txt_cre_pos_ne, XmNactlvateCallback, cbr_text_proc, 0) ; 


I 


set_posltlon ( 
set_posltlon ( 
set_posltlon ( 
set_positlon ( 
setposltion ( 
setposltlon ( 


txt_cre_ 

pos 

ne. 

15, 

IGNORE, 

32, 

IGNORE) ; 

txt_cre 

pos 

ppath, 

30, 

IGNORE, 

32, 

IGNORE) ; 

CancelW, 



85, 

IGNORE, 

5, 

IGNORE) ; 

btn_cre 

pos 

show. 

85, 

IGNORE, 

30, 

IGNORE) ; 

DoneW, 



85, 

IGNORE, 

55, 

IGNORE) ; 

HelpW, 



85, 

IGNORE, 

80, 

IGNORE) ; 


position_file.c 
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/****************************************< > * * 

* MODULE NAME: build_sel_pos_popup () 

* MODULE FUNCTION: 

* This routine builds the select Position popup. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 



void bulld_sel_pos_popup( parent ) 

Widget parent; 

1 

dlg_sel_pos - cr_popup( NULLS, parent, "Select Position” ); 

FormW - cr_form ( NULLS, dlg_sel_pos, NULL, NULL ) ; 
set_attrlbs ( FORM, FormW, 500, 400, XmRESI2E_N0NE ); 

/* 

* Create the labels and text fields which show the current position path 
» and available positions. 

*/ 

crlabel (NULLS, FormW, "Position Path:”, 0, 5,10,4, IGNORE);. 

lblselpospath - cr_label (NULLS, FormW, "/home", 0, 5,10,30, IGNORE); 

cr_label ( NULLS, FormW, "Position List:”, 0, 15, 20, 4, IGNORE ); 

llstselpos ■ cr_llst( NULLS, FormW, 14, 255 ); 

XtAddCal lback ( llstselpos, XmNbrowseSelect ionCal lback, cbr_pos_selected, NULL ); 

CancelW ■* cr command ( NULLS, FormW, "Cancel", cbr sel pos, CANCEL ); 

HelpW - cr_command( NULLS, FormW, "Help", cbrhelp, SELECTPOS ); 


cr separator ( 

NULLS, FormW, 

85, 

IGNORE, 

i, 

99 ) ; 



set_position ( 

XtParent (list 

sel 

pos) , 

15 

IGNORE, 

30, 

IGNORE) ; 

set position ( 

CancelW, 



93 

IGNORE, 

10, 

IGNORE) ; 

set_position ( 

HelpW, 



93 

IGNORE, 

75, 

IGNORE) ; 


1 
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****** ***** |/ 

* MODULE NAME: cbr_cre_pos { ) 

* MODULE FUNCTION: 

* This routine pops up the create Position popup. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




XtCa 1 IbackProc cbr_cre_pos{ w, client_data, call_data ) 
Widget w; 

caddr_t client_data, 
call data; 


If (Mode 1- Edit Symbol) 
return; 

newName(0] - NULL; 

/* 

* Use the existing position path If we have one, otherwise start at 

* root . 

*/ 

If ( Val ldPosltlon ) 
l 

strcpy( newPath, PosltlonPath ); 
justPath( newPath ); 

XmText Setstring (txt_cre_pos_ppath, newPath) ; 

) 

else 

I 

strcpyf newPath, "/" ); 

XmTextSetStrlng (txt_cre_pos_ppath, "/") ; 

) . 

XtManageChl 1 d ( dlg_cre_pos ); 
busy ( dlg_cre_pos, FALSE ); 


< ********* 

MODULE NAME: cbr_new_posltlon () 

MODULE FUNCTION: 

This routine processes the user button presses In the create Position 
popup. This routine handles both the CREATE and CANCEL buttons. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/20/91 

***»***»< 

XtCallbackProc cbr_new_posi t ion ( w, client_data, call_data ) 

Widget w; 

caddr_t client_daia, 
call data; 


Arg args(l); 

XmString tcs; 


/* 

* User wants to create a new Position directory. 

*/ 

if ( (int) client data — DONE ) 

I 

If ( mkdlr (newPath, 0777) ) 

user_ack ("Error: couldn't create new Position directory, check path"); 

else 
' ( 

userack ("Position directory created, use 'Select Position' to select"); 
XtUnmanageChlld ( dlg_cre_pos ); 

1 

) 

else 

/* 

* User wants to abort from creating a new Position path, clear the 

* text/label strings and then take down the popup. 

*/ 

if ( (lnt) cllent_data ==* CANCEL ) 

t 

tcs = XmSt ringCreate ( XmSTRING_DEFAULT_CHARS ET ); 

XtSetArg( args(0], XmNlabelSt ring, tcs ); 

XtSetValues( txt_cre_pos_nd, args, 1 ); 

XmStrlngFree ( tcs ); 

XmTextSetStrlng ( txt_crc_pos_ne, NULLS ); 

XtUnmanageChlld ( dlg_cre_pos ); 

) 
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* Set the PosltlonPath to the new directory. 


MODULE NAME: cbr_pos_selected () 

MODULE FUNCTION: 

This routine responds to the user's selecting a Position or new directory 
from the list. If the user selects a new directory, the current working 
directory Is changed and the list loaded with the new dlrectorle's 
contents . 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




*/ 


if ( chdlr (string) ) 

I 

userack (“Error: setting to selected Position directory"); 
/* 

* Revert back to the previous Position directory. 

*/ 


If ( chdi r (Posl t lonPat h) ) 

( 

ValidPositlon - FALSE; 
updpospanel ( COMPPURPOSE ); 
XtUnmanageChl Id ( dlgselpos ); 
return; 

I 


XtCa 1 IbackProc cbr_pos_selected ( w, cllentdata, call data ) 

Widget w; 

caddr_t cllent_data; 

XmListCallbackStruct *call_data; 

( 

char *ptr, 

•string; 

XmSt rl ngGecLtoR (ca 1 l_data->i tern, XmSTRING_DEFAULT_CHARSET, 4 string) ; 
/* 


/* 

* Using the previous Position directory. 

*/ 

else 

( 

userack ("Using previously selected Position directory"); 
ValidPositlon - TRUE; 
updpospanel ( COMPPURPOSE ) ; 

XtUnmanageChl Id ( dlgselpos ); 
return; 

I 

) 


* See If the entry Is a directory, If It Is move to the new directory 

* and load the list again. 

*/ 


/* 

• The current directory has been successfully set to the new Position 

* directory. 

*/ 


busy( dlg_sel_pos, TRUE ); 

ptr = sstrlnglstrlen (string) -1 1 ; 
if ( *ptr — '/' ) 

( 

chdlr( string ); 
load_pos_l 1st ( ) ; 
busy( dlg_sel_pos, FALSE ); 
return; 

1 


load_curr_dl r ( PosltlonPath ); 

strcpyl pPosltlon, string ); 
pPosltlon[strlen (string) -4) = NULL; 


/* 

* Update the status Indicators. 

•/ 


/* 

* The user has selected a Position directory. First see If they 

* need to save their work. 

*/ 


If ( SaveNeeded ) 

save_curr_element () ; 


ValidPositlon - TRUE; 
upd_mode_panel () ; 
upd_pos_panel ( COMPPURPOSE ); 

XtUnmanageChlld ( dlgselpos ); 


/* 

* Now clear the work area and inlt the variables. 
*/ 


relnlt_element_vars () ; 
inlt_comp_vars () ; 

/* 
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MODULE NAME: cbr_sel_pos () 


MODULE FUNCTION: 

This routine pops up the select Position popup. This routine is also called 
by the CANCEL button In the popup. 


REVISION |( J STORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


XcCa 1 IbackProc cbr_sel_pos( w, cllent_data, call^data ) 
Widget w; 

caddr_t cllcnt^data; 
caddr_t call data; 


MODULE NAME: justName () 

just Path () 

MODULE FUNCTION: 

The justName routine removes the ,POS extension from a string. If the 
specified string does not end in the proper extension, the specified 
string is not modified. If the specified string contains the proper 
extension, the ".** which starts the extension Is replaced with a NULL to 
terminate the string. 

The justPath routine removes the position name and extension from a full 
path name. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


If {Mode !- EditSymbol) 
return; 


void justName ( name ) 
char ‘name; 


* User wants to abort from selecting a position, take down the popup. 

V 

if ( < int ) cllent_data -- CANCEL ) 

I 

XtUnmanageChlld ( dlg_sel_pos ); 
return; 

) 


Load and show the select Position popup. 


if ( ! load_pos_l 1st O ) 

{ 

XtManagcChild ( dlg_sel_pos ); 
busy ( dig sel_pos, FALSE ); 

! 


char *ptr; 


ptr - name; 

if ( *ptr — 'S' ) 

{ 

Ptr—; 

if { *ptr — 'O' ) 

( 

pt r — ; 

if ( *ptr — 'P' ) 

[ 

ptr—; 

if { *ptr — • .' ) 
•ptr - NULL; 

\ 

} 

) 


void justPath { path ) 
char *path; 


char *ptr; 


/* 

* Go out to the end of the string. 

V 
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ptr - path; 

while ( *ptr ! = NULL ) 
ptr++; 
ptr—; 


/A******************************* ********< — > * * » * ******** 
* 

* MODULE NAME: loadposlist () 


(r*******«*****#i*(l * • 


/* 

* Now see if there is a Position extension, if so, remove the Position 

* name and extension. 

*/ 


if ( *ptr -- ' S' ) 

I 

Ptr--; 

if ( *ptr -- '0' ) 

( 

ptr— ; 

if ( *ptr «■ ' P' ) 

{ 

ptr--; 

if ( *ptr — ' .' ) 

I 

wh i 1 e ( *pt r ! - ' / ' ) 

I 

•ptr - NULL; 
ptr — ; 

1 

) 

I 

I 


MODULE FUNCTION: 

This routine loads the Position names in the current directory into the 
position list. Subdirectories of the current working directory are also 
entered into the list. This will allow the user to traverse directories 
within the file system. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


< >« * a***************************** **»*#***/ 


lnt 

I 


load_pos_ li st () 


Arg 


DIR 

XmSt ri ng 
struct dirent 
int 


ergs [11; 

•dir; 

tcs; 

•dp; 

cnt, 

i; 


I 

/* 

* Make sure the modified string ends in a '/'. 

*/ 


/* 

* Get the current directory to display to the user in the select 

* position popup. 

*/ 


if ( *ptr !- '/' 
[ 

pt r++; 

•ptr - ' /' ; 
ptr++; 

•ptr - NULL; 
) 

return; 

) 


loadcurrdir ( pwd ); 

tcs - XmStringCreate ( pwd, XmSTRING_DEFAULT_CHARSET ) ; 

XtSetArgf args[0], XmNlabelString, tcs ); 

Xt SetVal ues ( lbl sel pos path, args, 1 ); 

XmStringFree ( tcs ); 

/* 

* Delete all the list entries in the position selection list widget. 

*/ 

XmListDeleteAllltems ( listselpos ); 


/• 

* Open the current directory and read all valid entries: mainly directories. 

*/ 


if ((dir ■> opendlr (“./") ) == NULL) 

I 

elog (1 , “loadposl 1st ( ) - couldn't read directory"); 
return! ERR ); 

I 

for ( cnt=0, dp=readdl r (dl r) ; dp!-NULL; dp=readdir (dir) ) 

( 

strcpyl selList [cnt ) , dp->d_name ); 
if (! va lid_pos_name (sel List [cnt ) ) ) 
cnt++; 

if (cnt «- MAX_FILES ) 

I 
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user_ack (“Error: exhausted file list - notify developer"); 
elog (1 , “ load pos list () - exhausted file list"); 
return! ERR T; 

I 


* Sort the list and Install the list Into the selection widget. 

*/ 

If ( cnt > 0 ) 

( 

qsort ( selLlst, cnt, MAXNAME, strcmp ); 

/* 

* We want the lexlgraphlcal order of these reversed. 

*/ 


If ((! st rcmp (sol List [0| ) a 
(! strcmp (sel List [lj ,“./“)) ) 

( 

strcpy( selLlst(O), "./“ ); 

strcpyl selLlst(l|, “../* ); 

I 


MODULE NAME: va 1 ldposname ( ) 

MODULE FUNCTION: 

This routine validates the position name. This routine will append 
a ■/* to a directory name - the Incoming string pointer must contain enough 
allocated space at the end of the string to accommldate the appended 
character. This routine Is used to prepare a string for entry Into the 
Select Position scrolled list. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




int val ldposname ( name ) 
char "name; 


/* 

* Install the strings Into the select Position list widget. 

*/ 

for < 1 -0 ; Kent; lt + ) 

( 

tes - XmSt r 1 ngCreate ( selLlst(l|, XmSTRlNG_DEFAULT_CHARSET 1; 
XmLl stAddltem! llst_sel_pos, tes, 1+1 ); 

XmStrlngFree ( tes ); 

) 

1 

return ( OK I ; 


char ‘ptr; 

int len; 

struct stat stat but; 


len - strlen( name ); 

/* 

* Check for and 

*/ 

If ((! strcmp(name, ” . " )) II 
(I strcmplname, ". . ”) ) ) 

I 

streat ( name, “/* ); 
return! OK ); 

I 


/* 

* Check for ".POS” extension. 

*/ 


ptr - sname | len-1 ) ; 
if ( *ptr -= 'S' ) 

( 

ptr--; 

If ( *ptr == 'O' ) 

1 

ptr— ; 

If ( *ptr — '?• ) 

1 

pt r— ; 

If | "ptr — ' ) 

return! OK ); 

I 

I 

1 
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/• 

* Check for a directory. 

*/ 


stat {name, &stat buf) ; 

If (stat_buf.st mode & S__IFDIR) 

< 

st rcat ( name, **/'* ) ; 
return ( OK ) ; 

} 


return { ERR ); 



FILE NAME; position_f lle.h 
FILE FUNCTION: 

Variable declarations and function prototypes for the posit lon_f lie. c 
routines . 

SPECIFICATION DOCUMENTS: 

/home/pro ject/35 31 /Docu/GCB. spec.doc 

FILE MODULES: 

N/A 


char newName [MAX_NAME ] , 

newPat h [MAX_PATH J , /* path to Position directory during create 

pwd(MAXPATH) ; 

/* 

* Function prototypes. 

V 

XtcailbackProc cbr_new_posit ion 0 , 
cbr_pos_selected () , 
cbr_sel_pos () / 

lnt load_pos_l 1st () , 

valld_pos_name () ; 

void justName () , 

}ustPath () ; 


position_file.h 
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* FILE NAME: print. c 

* FILE FUNCTION: 

* 

* This file contains the routines which print the Element Work Area's graphical 

* symbols and lines. 


MODULE NAME: build_print_elem_popup () 

MODULE FUNCTION: 


This routine builds the popup which allows the user to select several attributes 
during the printing of the element work area. 


* FILE MODULES: 


* build_prlnt_elem_popup () 

* cbr_print () 

* cbr_print_comp () 

* copy_ps_template () 

* draw_log^box () 

* draw_lower_box () 

* draw_upper_box () 

* make_ps_f i le () 

* make_ps_f i le__i f set {) 

* print_page() 


- select Element Work Area print attributes/options 

- manages the print Element popup, called from menus 

- determines print attributes and makes calls to print 

- copies template file Into current working directory 

- draws each of text fields for lf/set symbol 

- in comp report, draws whole element in reduced mode 

- in comp report, draws box with status fields, purpose 

- makes calls to build a PostScript disk file 

- prints page for each if/set, with text fields 

- sets up the image clip region 


********************************* 


**< > 


/ 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

************ ** ** ** A * A* ** ****** ** ****«**«< >««•****** ******** 

void build__print_elem_popup ( parent ) 

Widget parent; 

l 

dlg_print__elem «= cr_popup( NULLS, parent, “Print Element" ); 


flnclude <stdio.h> 

•include <X11/Intrinslc. h> 
•Include <Xm/Xm.h> 


•include 

•Include 

•Include 

•include 

•include 

• 1 nclude 

• 1 nclude 
•Include 
•Include 

• Include 


"gcb.h" 

"cbif.h" 

"widgets. h" 
"menu.h" 
"llnes.h" 
"constants. h” 

" fonts. h" 

"print . h" 
"element_file.h" 
"symbol . h" 


•define ULCY 1850 

•define URCX 1400 

•define LRCY 1350 

•define BOPY 100 

•define ELEM_LISJ_TOP 1700 

•define ULCY^log 1550 

•define LRCY^log 1150 

•define ULCY^expr 1050 

• define LRCY__expr 650 


•define ULCY_comment 550 

•define LRCY comment 150 


FormW - cr_form( NULLS, dlg_print_elem, NULL, NULL); 
set_at tribs ( FORM, FormW, 450, 200, XmRESIZE NONE ); 

cr_label ( NULLS, FormW, "Print Scale:", 0, 15, IGNORE, 9, IGNORE ); 

rb_print_elem - cr_radio_box ( NULLS, FormW, XmHORI ZONTAL ); 

tgl_print_elem_norm - cr_toggle( NULLS, rb_print_elem, "Normal", NULL, 0, 0); 
tgl prlntelemred - cr_toggle( NULLS, rb_pr i nt_elem, "Reduced" , NULL, 0, 0); 
arm_tgl( tglprlntelemnorm ); 

cr_label< NULLS, FormW, "Number of Copies: ", 0, 35, IGNORE, 9, IGNORE ); 
txt_print_elem_nc - cr_text ( NULLS, FormW, NULL, NULL, "1", FALSE, 1, 2); 

cr_label( NULLS, FormW, "Printer Name: ", 0, 55, IGNORE, 9, IGNORE ); 
txt_prlnt_elem_pname - cr_text { NULLS, FormW, NULL, NULL, "ps", FALSE, 1, 8); 


cr_separator ( NULLS, FormW, 75, IGNORE, 1, 99 ); 


DoneW 

CancelW 

HelpW 


cr 

command ( 

NULLS, 

FormW, 

"Print ", 

cbr_prlnt_ 

comp. 

CBR_COMP_TYPE 

DONE) ; 

cr 

command ( 

NULLS, 

FormW, 

"Cancel", 

cbr_print 

comp. 

C B R_COMP _T Y P E~ 

CANCEL) 

cr 

command ( 

NULLS, 

FormW, 

"Help", 

cbr_help, 


PRINT_ELEM); 



set_position ( 
setposition ( 
set_position ( 
setposi t ion ( 
setpositlon ( 
set_posi tlon { 


rb_print_elem, 

txt_print_elem_pname, 

txt_print_elem_nc, 

CancelW, 

DoneW, 

HelpW, 


13, 

IGNORE, 

40, 

IGNORE 

53, 

IGNORE, 

40, 

IGNORE 

35, 

IGNORE, 

40, 

IGNORE) 

85, 

IGNORE, 

2, 

IGNORE) 

85, 

IGNORE, 

40, 

IGNORE) 

85, 

IGNORE, 

78, 

IGNORE) 


PRECEDING PAGE BLANK NOT FILMED 



MODULE NAME: cbr_prlnt () 

MODULE FUNCTION: 

This routine processes calls from the print menu buttons. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

* >• •• •***•••• 


XtCa 1 1 back P roc cbr_prlnt( w, cllentdata, call data ) 
Widget w; 

lnt cl lent_data; 
caddrt calldata; 


FILE *fp, "copy_ps_templace () ; 

struct symbol_entry "tempi 1st; 

char "tempelemname (MAXNAME) ; 

/• 

* Can't print without a Valid Element. 

*/ 

If (1 ValldElement ) 

I 

errorhandler ( NO_ELEMENT, NULL ); 
return; 

I 

If ( cllent_data -- PRINT_REP ) 

1 

/* 

* we are not printing a report; pop up ordinary print menu. 
*/ 

Report - 0; 

XtManageChl Id ( dlg_prlnt_elem ); 
return; 

I 

else If ( cl lent_data — PRINT_REP1 ) 

I 

/• 

• tell print routines that we are printing a report, 

• not just a page. 

•/ 

Report - 1; 

/* 

• copy ps_template to ps file; open It for appending. 

•/ 

fp - (FILE * ) copy^_ps_templ ate () ; 
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* read this element Into memory and the SymbolMap. 

* If we can't, skip printing this element. 


if ( read_element_file () !« ERR ) 

( 


print the element In reduced mode. 


PrintScale - REDUCED; 
make ps file( fp, Default ); 


* print the variables local to this element. 

* Second parameter Is zero to show we are looking 

* for locals In the third parameter. 

*/ 

make ps_(l leoloml 1st ( fp, 0, tempi [ st ->sc_symbo I ); 

/* 

* for each IF/SET, draw the symbol top center, then the 

* 3 boxes with text. 

*/ 

make ps_f 1 1 e_l f set ( fp ); 

I 


tempi 1st - tempi lst->se_next; 

1 

fclose ( fp ) ; 

/* 

* Make "system" call to lpr to print the PostScript file. 

*/ 


I 


If ( read_element_flle () — ERR ) 

i 

userack ("can' t restore element file!"); 
exit ( ERR ) ; 

) 


* restore this symbol's (In) complete status. 

*/ 

If ( complete (0, LINES_AND_EXPR) -- ERR ) 
upd_status( 1 ); 
else upd_status( 0 ); 


restore the status fields 


upd_pos_panel ( NO_CHANGE ) ; 

) 


elog (3, "rgake ps file lfset: result of lpr: %d", system("lpr -h ps_file") ); 
/* 

* restore the name of the current element to its original value. 

*/ 

relnlt_element_vars () ; 

strcpy( ElementFlle, temp_elemname ); 

/• 

* restore the current element to Its original value. 

*/ 


strcpy( GElementFi le, ElementFlle ); 
strcat( GElementFi le, ELEXT ); 

If ( access (GElementFi le, R_OK) ) 

I 

user_ack ("can' t access element file!"); 
exit ( ERR ) ; 



< > 



MODULE NAME: cbr_prlnt_comp () 

MODULE FUNCTION: 


This routine determines tho attributes to use when printing (normal, reduced, 
number o: copies, etc.) and then makes the calls to build tho PostScript disk 
file. Then a system call Is made to print the PostScript file. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

****••**•**■•■»•••»»••••«»«•»• • *< >*<*• »•••»•» 


XtCallbackProc cbr_prlnt_comp ( w, client data, call data ) 

Widget w; 

int cl lent_data; 
caddr_t caii_data; 

I 

FILE *fp, *copy_ps_template () ; 
char *sys_cal 1 ( 128) ; 

/* 

* erase the bounded print box. 

•/ 

draw_ghost ( FALSE, BStartx, BStarty, 0, 0 ) ; 

/• 

■ Determine which button the user pressed in the popup. 

*/ 

switch ( client data 1 
1 

case CBR_COMP_TYPE_CANCEL : 

/* 

* reset global vacs, pop down print menu. 

*/ 

old_lrcx - -1; 
old_lrcy - -1; 
old_ulcx - 0; 
oldulcy ■ 0; 

XCUnmanageChl Id ( dlg_prlnt_elem ); 
return; 

/* 

* The user wants to print, determine if they want to print normal or 

* reduced, and then determine the number of copies to print. 

*/ 

case CBR_COMP_TYPE_DONE : 

if ( XmToggleButtonGetState (tgl_print_elem_norm) ) 

PrlntScale - NORMAL; 

else 


PrlntScale » REDUCED; 


print.c 


Copies - atoi( XmTextGetString (txt_print_elem_nc) ); 
brea k ; 


busy ( dlg_print_elem, TRUE ); 


• If wt? aro zoomed out., zoom back in so as to restore tho correct 

• sizes ot Lhe symbols and lines. 

V 

i 

if ( Zoomed ) 
zoom ( 1 ) ; 


• copy ps_template to ps_file; open it for appending. 
V 

if { (fp - (FILE * ) copy_ps_template { ) ) -- NULL ). 

i 

user ack ("copy pstemplate failed**); 
exit ( ERR ) ; 

1 

PageNum » 0; 


* oldlrcx is set only in the draw print box mode; if it is not 0, 

* we have drawn a printing bounding box. Generate a PostScript file 

* on disk for printing. 

*/ 

if ( old_lrcx >“0 ) 

i 

elog (3, "cbrpr int_comp: making bounded box'*); 
make ps_file( fp. Banded ); 
i 

else 

( 

elog (3, **cbr_pr lnt_comp: using default box"); 
make_ps_fl le { fp, Default ); 

I 


* close the file before printing. 
V 

fclose( fp ); 


* Make "system" call to lpr to print the PostScript file. 

V 

Copies » atol { XmTextGet St ring (txt_prlnt_elem_nc) ); 
strepyf sys_call, "lpr -h -P" ); 

streat { sys_call, XmTextGetString (txt_print_elem_pname) ); 
streat ( sys cail, " ps^flle" ); 

elog {3, "cbr_print_comp: result of lpr: %d", system (sys_cal 1) ); 


* Restore defaults. 

*/ 


old Ircx 


-l; 


< >************ 


****** 
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old__lrcy = -1; 
old_ulcx = 0? 
old_ulcy - 0; 


* Take down the popup. 
V 


pnnt.c 

| y * * * « 



busy ( dlg_print_elem, FALSE ); 
XtUnmanageChl Id ( dlgpri nt_elem ); 


MODULE NAME: copy_ps_template () 

MODULE FUNCTION: 




This routine copies the template file into the current working directory 
for appending. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


FILE *copy pstemplate () 

{ 

FILE * fp; 

char syscal 11256]; 


* create and execute a cp system call 
V 


strcpy( sys call, "cp " ); 
strcat( syscall, Swd ); 
strcat( syscall, "/pstemplate ps_file" ); 

if { system(syscall) ) 

elog (1, "makepsfile: system cp call returned nonzero"); 

if ( ! (fp “ fopen ("psfi le", "a") ) ) 

1 

userack ("Unable to open the PostScript file for appending"); 

elog (1 , "makopsf i le: Unable to open the PostScript file for appending"); 

return ( NULL ) ; 

) 

return ( (FILE *)fp ); 


/ 


< > 


1 


PrintScale - NORMAL; 
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MODULE NAME; draw_log_box {) 
MODULE FUNCTION; 


This routine draws one of the loglcal/expr/comment boxes for each lf/set 
symbol In the element. 


REVISION HISTORY; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




int draw_log_box ( fp, sym_num, box_type ) 

FILE * fp; 

int sym_num, box__type; 

l 

char result (MAX_PURPOSE| ; 
int ulcy; 

PrintScale - REDUCED; 
fprintf{ fp, "0 SetSca le\n”) ; 
fprintf( fp, "newpath\n M ) ; 

/• 

* convert proper it/sot field to postscript-ready form 
V 


result [0 ) =» ' \ 0' ; 
switch ( box type ) 

1 

case 0: if { Symbol_Map[ sym_num] . Sym. I fSym. loglcal_expr ) 

cvt_to_str_array (Symbol_Map( sym_num) . Sym. I fSym. 1 og lcalexpr, result ) ; 
ulcy - ULCY_log; 
break; 

case 1; if ( Symbol_Map( sym_num] . Sym, I f Sym. comp_expr ) 

cvt_to_str_array ( Symbol_Maplsym_num) .Sym. If Sym. comp_expr, result ); 
Ulcy - ULCY_expr; 
break; 

case 2; if ( Symbol_Map( sym_num) . Sym. I fSym. comment ) 

cvt_ to_str_array ( Symbol_Map [ sym_num] . Sym. If Sym. comment, result ); 
ulcy - ULCY_comment; 
break; 

) 


if ( result(O) ■“ '\0' ) 

/* 

* required text field is missing; print blank 

*/ 

strepyl result, **[())" ); 

fprintff fp, "%d %d %d %d %s %d PrintReportBox\n M , 
pi x_to_ps (pix_left_margin {) +100) , 
pi x_toj>s (ulcy), plxtops (ULCYlog-LRCYlog) , 
pix_to_ps (URCX - (pix_left_margin {) +100) ) , result, box_type ); 



MODULE NAME: draw_lower_box ( ) 

MODULE FUNCTION: 

This routine draws a box around the entire element in reduced mode as 
part of the report. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

************************** **************< >••*••****** 

int draw_lower_box ( fp, lrcx, lrcy ) 

FILE * fp; 

int lrcx, lrcy; 


fprintfl fp, "newpath\n") ; 

fprintf{ fp, M %d %d %d %d drawBoxNn", pix to ps (pix_left_margin () ) , 

plx to ps (pix_centerlng_height () ) , pix_to_ps (lrcx - pixleftmargin () ) , 
pix_to_ps (pixcenteringheight O - (pixcenteringheight (> -lrcy) ) ); 


l 




MODULE NAME: draw_upper_box () 

MODULE FUNCTION: 

This routine draws the upper box of the first page of an RMS report. Including 
the clement, comp, and position names, dates, and element type. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

I **************************************** < > * ***************************************/ 

int draw_upper_box ( fp ) 

FILE * fp; 



char result (MAXPURPOSE ) ; 

XmString tcs; 

char ‘complete; 

Arg args[ll; 

int i; 

fprintfl fp, "newpath\n" ) ,* 

fprintfl fp, "%d %d %d %d drawBoxNn", plx_to_ps (plx_lef t margin () ) , pi x__tojps (ULCY) , 
pixtops (ULCY - LRCY), pixtops (URCX - pix_left_margin 0 ) ); 

fprintfl fp, "Id SetScale\n", 0 ); 


* draw element name, author, date created, position, and comp. 

*/ 

fprintfl fp, "Id Id moveto\n", pix to ps (plx left margi n ( ) + 20), plx_to_ps (1770) ); 
fprintfl fp, "/Courier-Bold findfont 12 scalefont setfontNn"); 
fprintfl fp, "(Position:) show\n" ); 

fprintf( fp# "Id Id moveto\n", pixtops (plx_left_margi n { ) + 280), pix_to_ps (1770) ) ; 
fprintf( fp# "Id SetScale\n", 0 ); 
fprintfl fp# "(Is) show\n", pPosition ); 

fprintfl fp, "Id Id movetoXn", plx_to_ps (pix_left_margin ( ) + 20), pix_to_ps (1 730) ); 
fprintfl fp# "/Courier-Bold findfont 12 scalefont setfont\n M ); 
fprintfl fp, "(Comp:) show\n" ); 

fprintfl fp# "Id Id moveto\n", pix_to_ps (pix_left_margi n 1 ) + 280), pix_to_ps (1730) ) ? 
fprintfl fp, "Id SetScale\n", 0 ) ; 
fprintfl fp# "(Is) show\n", CompFile ); 

fprintfl fp# "Id Id moveto\n", pix_to_ps {pix__le ft_margi n { ). + 20), pix_t o_ps (1 690) ); 
fprintfl fp# "/Courier-Bold findfont 12 scalefont setfontNn" ) ; 
fprintfl fp# "(Element Name:) show\n"); 

fprintfl fp# "Id Id moveto\n M , pix^tops (plx_left__margln () + 280), pix_to_ps (1690) ) ; 
fprintfl fp# "Id SetScaleNn", 0 ); 
fprintfl fp, " (Is) show\n", ElementFile ); 

fprintfl fp, "Id Id moveto\n", pix_to_ps (pixleftmargin ( ) + 20), plx_to_ps (1 650) ); 
fprintfl 'fp, "/Courier-Bold findfont 12 scalefont setfontXn"); 
fprintfl fp# "(Element Type:) show\n") ; 

fprintfl fp# "Id Id moveto\n", pix_to_ps (plx_left_margi n () + 280), pix_to_ps (1 650) ) ; 
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fprlntf ( fp, "id SetScaleXn", 0 J; 

If ( ElementType -- LIB ) 

fpclnt f ( fp, “(LIBRARY) shovAn" ) ; 

el se 

fprlnt f ( fp, "(ELEMENT) shovAn” ); 

fprlntf( fp, "id id moveto\n", plx_to_ps (plx_left_margl n () + 20), pix to ps (1610) 


If ( Print Scale — REDUCED ) 

fprlntf( fp, “id SetScale\n“, 2 ); 

el se 

fprlntff fp, “id SeCScale\n“, 1 ) ; 


fprlntf( fp, 
tprlntf( fp, 
fprlnt f( fp. 


"/Courier-Bold flndfont 12 scalefont setfont\n“); 

"(Author:) shovAn" ); 

“id id moveto\n", plx_to_ps (pix_left_margln () + 280), plx_to_ps (1610) ) 


fprlntff fp, "id SetScaleXn", 0 ); 
fprlntf( fp, "(is) show\n". Author ); 


fprlnt f( fp. 


"id id movetoXn", 


pix to ps (plx_left margin () 


20), pixtops (1570) ) 


fprlntf( fp, 
fprlntf( fp, 
fprlntff fp, 
fprlntff fp, 
fprlnt f( fp. 


"/Courier-Bold flndfont 12 scalefont setfontXn"); 

"(Created:) shovAn" ); 

"id id moveto\n", pixtops (plx_left_margln() < 280), pixtops (1570) ) 
"id SetScaleXn", 0 ); 

"(is) show\n", CreateDate ); 


fprlntff fp. 


“id id moveto\n". 


plx_to_ps (pi xlof tmargl n () t 20), pixtops (1 530) ) 


fprlntf( fp, 
fprlntf( fp, 
fprlntf( fp. 


“/Courier-Bold flndfont 12 scalefont setfontXn"); 

"(Last Update:) show\n" ) ; 

“id id movetoXn", plx_to_ps (plxleftmargln () + 280), plx_to_ps (1 530) ) 


fprlntf( fp, “id SetScale\n“, 0 ); 
fprlntff fp, "(is) shovAn", UpdateDate ); 


fprlntf( fp, "id id movetoNn", 


ptx_to_ps(plx_left_margln(> v 20), plx_to_ps (1490) ) 


fprlnt f( fp, 
fprlntf) fp, 
fprlntf( fp. 


"/Courier-Bold flndfont 12 scalefont set font\n“ ) ; 

"(Status:) shovAn" ); 

"id id moveto\n", pix to ps (plx left margln () + 280), plx_to_ps (1490) ) 


fprlntf) fp, 


"id SetScaleXn”, 0 ) ; 


/* 

* If status string - "Complete", print complete on report, else print 

* Incomplete. 

*/ 


XtSetArgl args(0), XmNlabelStrlng, ttcs ) ; 

XtGetValues( txtstatus, args, 1 ) ; 

XmStrlngGetLtoR< tcs, XmSTRING_DEEAULT_CHARSET, scomplete ); 
If ( ! strcmp ("Complete", complete) ) 

fprlntff fp, "(Complete) shovAn" ) ; 

else 

fprlntff fp, “(Incomplete) show\n“ ); 


/* 

* print element purpose 
V 

cvt_to str arrayl El ementPurpose, result ); 

fprtntf( fp, “id id id is Print£lemPurpose\n“, plx_to_ps (plx_lef t margin!) v 600), 
plx_to_ps (1770) , plx_to_ps (1000) , result ); 

/• 

* Set the scale: the font size. 


/ 


/ 


< > 


* MODULE NAME: make_elemlisc_heading () 


MODULE FUNCTION: 


* This routine draws the labels over the list of elements on the title page. 


* REVISION HISTORY : 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/11/91 

* Release 1.02 - 08/28/91 


lnt make_elemllst_headlng ( fp ) 


FILE *fp; 


* move to top of page; print labels. 

‘/ 

fprlntf< fp, "Id Id moveto\n”, pix _to_ps (plx_left_margin () * 100), 
plx_to_ps (ELEM_LIST_TOP) ); 
fprlntf ( fp, "(Elements) show\n" ); 

fprlntf( fp, "id Id moveto\n“, plx to_ps (plx_le£t_margln () + 100), 
plx _to_ps (ELEM_LIST_TOP) ) ; 
fprlntf (" fp, "( ) show\n" ) ; 

fprlntf( fp, “Id Id moveto\n", plx_to_ps (plx_left_margln () t 500), 
plx_to_ps (ELEM_LIST_TOP) ) ; 
fprlntf ( fp, “(Installed) show\n" ); 

fprlntf( fp, “Id Id moveto\n“, plx_to_ps (plx_left_margln () + 500), 
plx_to_ps (ELEM_LIST_TOP) ) ; 
fprlntf ( fp, "( ) show\n" ) ; 


:.c 


MODULE NAME: ma ke_elemi lst_l 1 st lng ( ) 

MODULE FUNCTION: 

This routine draws the actual list of elements under the labels. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int make_elemlist_l isting ( fp, i ) 

FILE * fp; 

int 1; 


struct symbol_entry *templlst; 

char pn[31? 

/* 

* go through symbol table; print each element name 

*/ 

tempi 1st ** {struct symbol_entry • ) symbol_table; 
while ( templist ) 

{ 

If < tempi Ist->se_type & PROCEDURE ) 

{ 

/* 

* it's an element only if it isnt an intrinsic procedure like 

* sin, cos, etc. Also, print only those elements that are called. 
*/ 

if ( (! (tempi ist->se_type & INTRINSIC)) && tempi 1st ->se_use_count ) 

( 

/* 

* if the vertical offset is too large for the current page, 

* print the current page, print the element list heading on 

* the next page, and reset the vertical offset. 

*/ 

if ( i > 24 ) 

l 

/* 

* convert the current page number to a string, print it. 

* then draw the current page. 

*/ 

itoa ( PageNum, pn ) ; 

fprlntf ( fp, " (%s) EndPage\n H , pn ); 

PageNum++; 

/* 

* print heading on new page 
*/ 







make_eleml lst_headlng ( fp ); 

/* 

• reset vertical offset 

*/ 

1 - l; 

) 

/* 

* print whether or not the element Is Installed 

•/ 

fprlntfl fp, "Id Id moveto\n“, plx to ps (plx left margln (1 + 100), 
plxtops (ELEMLISTTOP) - (1*20) ) ,- 
fprl nt f ( fp, "(Is) show\n“, tempi 1 st->se_symbol ); 
fprlntfl fp, "Id Id moveto\n“, plx_to_ps (plx_left_margln () t 500), 
plx_to_ps(ELEM_LIST_TOP) - (1*20) ); 

If ( tempi lst->se_type 4 INSTALLED ) 
fprlntfl fp, "(yes) show\n“ ); 

else 

fprlntfl fp, “(no) show\n" ); 

1 + + ; 

I 

) 

templlsc - templlst->se_next; 

1 

/* 

* return vertical offset so far. 

*/ 

return I 1 ) ; 

I 
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MODULE NAME: makevarllst heading!) 


MODULE FUNCTION: 


This routine draws the labels over the list of global variables. 


REVISION H I STORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt makevarl lst_headlng ( fp, 1, global ) 

FILE * f p; 

lnt 1, global; 


* 1 Is a vertical offset Into the page; put varllst heading below this point. 

*/ 


* move past bottom of element list; print headings for list of 

* global variables. 

*/ 


fprlntfl fp, "Id Id moveto\n", plx_to_ps (plx_left_margln () + 100), 
plx_tO_ps(ELEM_LIST_TOP) - (1*20)“); 

If ( global ) 

I 

fprlntfl fp, "(Global Variables) show\n" ); 

fprlntfl fp, "Id Id moveto\n", plxtops (plx_left_margln () + 1001, 
plx to_ps|ELEM_LIST_TOP) - (1*20) ) ; 

Iprlntfl fp, "I ) show\n“ ); 

) 

else 

( 

fprlntfl fp, "(Local Variables) show\o" ); 

fprlntfl fp, "Id Id moveto\n”, plx_to_ps (plx_left_margln () + 100), 
pix_to_ps(ELEM_LIST_TOP) - (1*20) ); 

fprlntfl fp, “ ( ) show\n" ); 

1 

fprlntfl fp, "Id Id moveto\n", plx_to_ps (plx_left_margln () + 500), 
pix_to_ps (ELEM_LIST_TOP) - (1*20) ); 
fprlntfl fp, “(Type) show\n" ); 

fprlntfl fp, "Id Id moveto\n", plx_to_ps (plx_left_margln () + 500), 
plxtops |£LEM_LIST_TOP) - ( 1 * 20) ); 
fprlntfj fp, "( ) show\n" ); 

fprlntfl fp, "Id Id moveto\n“, plx_to_ps (plx_lef t_margln () + 700), 
plx_to_ps(ELEM_L!ST_TOP) - (1*20) ) ; 
fprlntfT fp, "(Dimensions) show\n" ); 

fprintf( fp, "id Id moveto\n", plx_to_ps (plx_l eft_margi n () 1 700), 
plxtops (ELEMLISTTOP) - (1*20) ); 
fprlntfl fp, *( ) show\n" ) ; 

fprlntfl fp, “Id Id moveto\n", plx_to_ps (plx_left_margln () + 980), 


| ' 91 / 08/29 
09 : 44:30 


pix_to_ps (ELEM_LIST_TOP) - (1*20) ) ; 
fprl nt f ( fp, “(Use Count) show\n“ ); 

fprintf( fp, “%d %d moveto\n“, pix_to_ps (pix_left_margin () + 980), 
plx_to_ps (ELEM_LIST_TOP) - (1*20) ); 
fprlnt f ( fp, “ ( ) show\n* ) ,- 



pnntx 
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* MODULE NAME: makepsfl le () 

* MODULE FUNCTION: 

* This routine creates a PostScript file based on SymbolMap contents. 


* REVISION HISTORY : 
a 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/11/91 

* Release 1.02 - 08/28/91 

...aa..a...a.a..a........a............aa < > a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a / 

lnt make_ps_f 1 le ( fp, mode ) 

FILE * fp; 
lnt mode; 


/* 

• If we are printing the whole element (not using a banded-box), then print 

* using the proper scale (normal or reduced print) . 

*/ 

If ( mode *=* Default ) 

( 

/* 

* Print logical screen on 4 pages In 4 parts if scale is normal. 

*/ 

If ( PrintScale == NORMAL ) 

I 

/* 

* draw upper box with status and purpose info. 

*/ 

prlnt_page( fp, 830, plxcenterl nghelght () , 0, 0 ); 

print_page( fp, 830, plx_centering_helght () , 550, 0 ) ; 

prlnt_page( fp, 830, plxcenteringheight () , 0, 600 ); 

prlnt_page( fp, 830, plx_centerlng_helght () , 550, 600 ); 

) 

/* 

* print whole logical screen in 1 part If scale Is reduced, 

*/ 

else 

( 

/* 

* draw upper box with status and purpose Info. 

•/ 

draw_upper_box ( fp ) ; 


/* 

* draw lower box that will enclose the element drawing. 

*/ 
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draw_^lower__box ( fp, 1400, 1200 ); {/ 

/* 

* draw element. 

*/ 

prlnt_page( fp, 1400, 1200, 0, 0 ); 

1 
I 

/* 

• User wants to print only a portion of the element which was selected 

* using a banded-box. 

V 


else if ( mode »= Banded ) 

[ 

/• 

* Print the contents of the banded box. In order for the banded box 

* to appear in the ulc of the page, the ulc of the box must be 0, and 

* the offset of the symbols must be the ulc of the box. 

*/ 

prlnt_page( fp, abs (BStartx-old lrcx), abs (BStarty-old_l rcy ) , BStartx, BStarty) ; 

J 


< * * * ** 

MODULE NAME: make_ps_f 1 le_eleml 1st ( ) 

MODULE FUNCTION: 

This routine creates a PostScript file based on Symbol_Map contents. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

mm. 

int make_ps_f ile elemllst ( fp, global, element_name ) 

FILE *fp; 

int global; 

char *eiement_name; 


struct symbol entry *templist - NULL, *varlist, * lookup_gl obal_varl 1 st (> ; 

int 1 - 1, j; 

char pn(3J; 

if ( global ) 

/• 

* Get list of global variables from symbol table. 

•/ 


tempi 1st - (struct symbol_entry *) lookup_global_varlist () ; 

else 

/* 

* Get list of local variables for this element from symbol tabic. 

*/ 


templist - (struct symbol_entry *) lookup_local_va rl 1st ( element_name ); 
if ( templist — NULL ) 

/* 

* there are no elements or local variables to list; return. 

*/ 

return? 

/* 

* Set large font size 

*/ 

fprintf( fp, "newpat h\n“ ) ; 
fprintf( fp, "0 SetScale\n" ); 

/* 

* Draw border around the page. 

*/ 

fprintf( fp, "Id %d Id Id drawBox\n", plx_to_ps (plx left margin {) ) # pi x_to_ps (ULCY) , 
pixto ps (UiXY - BOPY), pix_to_ps (URCX - pixlef tjnargl n ( ) ) ); 




/* 

* print header for element list 

*/ 

if ( global ) 

( 

make_elemllst_heading( fp ); 

/* 

* print element list 
*/ 

1 - make_eleml lst_llst lng ( fp, 1 ) ; 

1 + + ; 

I 


* if there are variables to list, print header for variable list, 

’ last parameter Is non-zero If global variable heading will be 

* printed, 0 for local. 

*/ 

make_varllst_heading ( fp, 1, global ) ; 

1 + + ; 

while( templist ) 

( 

If ( tempi is t->se_type & VARIABLE ) 

l 

/* 

* if we're looking for globals and the variable is not a local 

* or If we are looking only for locals, print the variable. 

*/ 

If ( ((global) ss (! (tempi 1 st->se_type s I.OCAL_VAR) ) ) || 

(iglobal) ) 

1 

/,• 

* If the vertical offset Into the page (1) Is too large, 

* print this page, print the variable list header on the 

* next page, and reset the vertical offset. 

*/ 

If ( 1 > 24 ) 

( 

/* 

* convert the current page number to a string, print It. 

* then draw the current page. 

*/ 

ltoa ( PageNum, pn ) ; 

fprlntf( fp, " ( % s ) EndPageXn", pn ); 

PageNumtt; 

/* 

* reset vertical offset 



print.c 

*/ 

1 - 1; 

/* 

* print heading on new page 

*/ 

makevarllstheadlng ( fp, 1, global ) ; 

1 + *; 

1 

/* 

* print the variable name 

*/ 

fprlntf( fp, "%d %d movetoXn”, pix_to_ps (plx_left_margin () + 100), 
plx_to_ps (ELEMLISTTOP) - (1*20) ); 
fprlntfl fp, * (%s) showkn”, templlst->se_symbol ); 

/* 

* print the variable type 

*/ 

fprlntfl fp, *%d %d movetoXn", plxtops (pixleftmargln () + 500), 
pix_to_ps (ELEM_LIST_TOP) - (1*20) ) ; 

if ( templlst->se_type S INTEGER ) 
fprintf( fp, "(int) show\n“ ) ; 
else if ( tempi! st ->se_type & FLOAT ) 
fprlntfl fp, "(float) show\n" ); 
else if ( templist->se_type & CHAR ) 
fprlntfl fp, "(string) show\n" ) ; 
else if ( templist->se_type s UNSIGNED ) 
fprlntfl fp, "(unsigned) show\n" ) ; 
else If ( templist->se_type i SHORT ) 
fprlntfl fp, "(short) show\n" ) ; 

el se 

fprintf( fp, "(double) show\n" ); 

/* 

* print the variable dimensions 

*/ 

fprlntfl fp, "%d td movetokn", plx_to_ps (plx_left_margln () + 700), 
plx to ps (ELEM LIST TOP) - (1*20) ) ,- 

if (! (templlst->se_type s MATRIX) ) 
fprlntfl fp, "(1) showkn" ) ; 

else 

for ( J=0; jctempl lst->se_num_dimenslons; j++ ) 

I 

fprlntl( fp, " (%1) show\n", tempi 1 st->se_subs [ j ) ); 

If ( (templist->se_num_dimenslons-j) > 1 ) 
fprlntfl fp, "( x ) showkn" ) ; 

I 

fprlntfl fp, "»d %d movetoXn", plx_to_ps (plx_left_margln () + 980), 
plxtops (ELEM_LIST_TOP) - (1*20) ); 


* print the variable use count 

*/ 




/ 



< > 
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fprlntf( fp, "(%1) show\n“, tempi ist->se_use_count ); |/ 

i ++; 

1 

) 

templist - tempi i st->se_next ; 

} 

/* 

* deallocate global variable list. 

*/ 

dest roy_global_varl i st ( templist ); 
fprintff fp, "stroke\n" }; 


/* 

* convert the current page number to a string and print It 

* then print the current page. 

* / 

ltoa ( PageNum, pn ); 

fpri nt f { fp, " (%s) EndPage\n“, pn ); 

PageNum++; 


* MODULE NAME: make_ps_f llej f set () 

* MODULE FUNCTION : 

* This routine creates a PostScript file based on Symbol_Map contents. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**/ 

lnt make ps £ 1 le_l fset ( fp ) 

FILE -fp; 

l 

lnt pswidth, psheight, psulcx, psulcy, 1; 

char result [3001, pn[3|; 

fprintf( fp, "newpath\n") ; 

/• 

- plx_to ps depends on the PrintScale, so set it to NORMAL. 

*/ 


PrintScale - NORMAL; 

/* 

• for each lf/set, draw the symbol and associated text boxes on a 

• separate page. 

V 

for ( i=0; 1<MAX SYMBOLS; i++ ) 

if ( [Symbol_Map(i ) . symbol_type -- IF) || 

(SymbolMapI i 1 .symbol type — SET) ) 

[ 

/- 

• place the symbol at top middle of page. 

V 

PrintScale - REDUCED; 

psulex - plx_to_ps( (pix_left_margin () * URCX) / 2 - Symbol_Map( 1 J .width ); 
psulcy » pix_to_ps{ ULCY ); 

PrintScale -“NORMAL; 

/* 

- determine symbol's height and width in postscript units. 

-/ 

pswidth * plx_to_ps{ symbol_Map[ i ) .width ); 
psheight - pix_to_ps ( Symbol_Map ( 1 1 . height ); 

if ( Symbol_Map[ i 1 . font — small_font ) 
fprintf( fp, "%d SetScale\n M , 1 ); 

else 


fprintf( fp, "%d SetScale\n M , 0 ); 
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print the logical expression if there is one, else print the 
comp expr. 


if ( Symbol_Map[i] .Sym. If Sym.logical_expr ) 

c vt_to_str_array ( Symbol_Mapti) .Sym.IfSym. logical_expr, result ); 

el se 

cvt_to_str_array { Symbol_Map[i ] . Sym. If Sym. compexpr, result ); 


***** 

MODULE NAME: make_ps_f i le t It le () 

MODULE FUNCTION: 

This routine creates a PostScript file based on Symbol_Map contents. 


if ( Symbol_Map[ i | . symbol_type — IF ) 

. f print f ( fp, "%d %d %d %d %d %s lif\n*, 

psulcx, psulcy, pswidth, psheight, pix_to_ps (23) , result ); 

else 

fprintf ( fp, "%d %d %d %d %s set\n", psulcx, psulcy, 
psheight, pswidth, result); 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

A*********************************** **< >* *********************«*****************/ 


/* 

* draw the logical, expression, and comment boxes and the 

* associated text for this symbol. 

*/ 


draw_log_box ( fp, 1, 0 ); 

draw_log_box ( fp, i, 1 ); 

draw_log_box ( fp, i, 2 )? 

/* 

* convert the current page number to a string and print it 

* draw this page, get ready for next page. 

*/ 

itoa ( PageNum, pn ); 

fprintf ( fp, " (%s) EndPage\n M , pn ); 

PageNum++; 

) 


int makepsf ile_t it le ( fp ) 

{ 

char comp Purpose {MAXPURPOSE ) ; 

int old_scale - PrintScale; 

/* 

* pass drawing routine the midpoint of the drawing space on the page, 

* the comp name, and the comp purpose. 

*/ 

cvt_to_str array ( CompPurpose, comp Purpose ); 

PrintScale - REDUCED; 
fprintf ( fp, "newpath\n M ); 

fprintf ( fp, "%d %d (%s) %s PrintTit lePage\n", pix to ps (URCX-plx_left_margin () ) , 
pix to ps ( (URCX+pix_left_margln () ) /2) , CompFile, compPurpose ); 

fprintf ( fp, H showpage\n** ); 


I 




PrintScale «• 
PageNum * 1; 


oldscale? 



< > 



MODULE NAME: print_page() 

MODULE FUNCTION: 

This routine add3 the PostScript code to a file which prints the graphical 
symbols. This routine also adds the PostScript code to control Lhe number 
of copies. 


* REVISION HISTORY: 

* 

• Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

• Release 1.02 - 08/28/91 

• 

t .............. k . k ................... . M< >• ............................. 

void print_page( fp, lrcx, lrcy, xoffset, yoffset ) 

FILE * fp; 

lnt lrcx, lrcy, 

xoffset, yoffset; 

( 

char pn [ 3 ] ; 

/* 

* Clip imageable area according to parameter dimensions 
V 

fprlntff fp, "newpat h\n") ; 

fprlntf( fp, “Id Id moveto\n", pix_to_ps (pix_left_margln {) ) , 

pix to ps (pix_centerlng_helght 0 ) ) ; 
fprintf( fp, "Id Id llneto\n", plx_to_ps( lrcx ), 

plx_to_ps (pix_center lng_height 0 ) ) ; 
fprintf( fp, "Id Id llneto\n", pix_to ps( lrcx), 

pi x_to_ps (pi x_ccnler 1 ng_he lght O -1 rcy) ) ; 
fprintf( fp, "Id Id llneto\n", pix_to_ps (plx_lef t_margl n () ) , 

plx_to_ps (pix_centering_helght <) -l rcy )); 
fprintfl fp, "Id Id llneto\n", plx_to_ps (plx_left_margln () ) , 

pix_to _ps (pix_centerlng_height () ) ) ; 

fprlntf( fp, ,"cl lpNnnewpat h\n" ); 

/* 

* Set the number of copies. 

*/ 

fprlntf< fp, "/Icopies Id def\n", Copies ); 

/* 

*■ Print the symbols and their lines. 

*/ 

prlnt__symbols { fp, xoffset, yoffset ); 

/• 

* convert the current page number to a string, print It. 

* then draw the current page. 

*/ 


itoa ( PageNum, pn ) ; 


fprintfl fp, " {Is) EndPageXn", pn ); 
PageNum+4; 



I iwif l 

/A************************************** * < > ************************************* 

* 

* FILE NAME: print. h 

* 

* FILE FUNCTION: 

* 

* This file contains the variables and function prototype for print. c Print. c is 

* still being developed as routines are moved into it from cbrjnenu.c. This file 

* may bo very small now, but it will grow as more of the print routines are moved 

* from cbrjnenu.c to prlnt.c 


FILE MODULES: 


*****************< > * 


function prototypes. 


void print_page () ; 


* Global variables 


lnt PageNum, 
Report; 


/* for printing hard copies */ 

/* are we printing a report or just a page? */ 
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/texthelght 12 def 

/ellipsedlct 12 diet def 
/ci rcledict 12 diet def 
circledict /mtrx matrix put 
/boxdict 12 diet def 
boxcUct /mtrx matrix put 
/ p, it i s<M I ot 12 did do I 
pausedlct /mtrx matrix put 
/stopdlct 12 diet def 
stopdlct /mtrx matrix put 
/sstartdict 12 diet def 
sstartdict /mtrx matrix put 
/printdict 15 diet def 
prlntdlct /mtrx matrix put 
/textdlct 12 diet def 
textdlct /mtrx matrix put 
/lfdlct 12 diet def 
ifdict /mtrx matrix put 
/elempurpdict 12 diet def 
elempurpdict /mtrx matrix put 
/reportboxdlct 12 diet def 
reportboxdlct /mtrx matrix put 
/setdict 12 diet def 
setdlct /mtrx matrix put 
/epdlct 12 diet def 
epdict /mtrx matrix put 
/tltledict 12 diet def 
titledict /mtrx matrix put 


/EndPage %stack: pagenum 

( 

epdict begin 
/pn exch def 

initclip 
pn (0) ne 

{ /texthelght 12 def 

/Courier findfont 12 scalefont setfont 
510 30 moveto 
(Page ) show 
pn show ' 
stroke ) if 
showpage 
end 

} def 

/Pri ntTi t 1 ePage %stack: width midpt name purpose 

tltledict begin 

/purpose exch def 
/compname exch def 
/midpt exch def 
/width exch def 

/savematrix mtrx currentmatrlx def 


% subtract 1/2 width of comp name from midpt, 

% move there and print compname. 

compname stringwidth pop 2 div 
neg 0 moveto 
compname show 

0 Set Scale 

width 4 dlv neg 100 neg width purpose BreaklntoLi nes 

savematrix setmatrix 
end 


} def 

/PrintElemPurpose %stack: x y w str 

( 

elempurpdict begin 

/tempstring exch def 
/wtemp exch def 
/ytemp exch def 
/xtemp exch def 

/savematrix mtrx currentmatrlx def 
xtemp ytemp translate 

%print Purpose: label at x y in big font 
/texthelght 12 def 

/Courier-Bold findfont 12 scalefont setfont 
0 0 moveto 
(Purpose:) show 

/texthelght 10 def 

/Courier findfont 10 scalefont setfont 

2 texthelght 2 mul neg wtemp tempstring BreaklntoLines 
savematrix setmatrix 

end 

) def 


/PrintReportBox %stack: ulex ulcy height width str boxtype 

i 

reportboxdict begin 

/boxtype exch def 
/tempstring exch def 
/wtemp exch def 
/htemp exch def 
/ytemp exch def 
/xtemp exch def 

xtemp ytemp htemp wtemp drawBox 

/savematrix mtrx currentmatrlx def 
xtemp ytemp translate 


80 740 700 480 drawBox 
midpt 500 translate 


2 texthelght neg wtemp tempstring BreaklntoLines 


boxtype 0 eq 


PRECEDING PAGE BLANK NOT EiJ«E> 
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{ 90 neg 10 neg moveto 

(Logical) show 
90 neg 30 neg moveto 
(Description) show ) if 
boxtype 1 eq 

{ 90 neg 10 neg moveto 

(Comp) show 
90 neg 30 neg moveto 
(Expression) show } If 
boxtype 2 eq 

1 90 neg 10 neg moveto 

(Comment) show ) if 
savematrix setmatrix 
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/x exch def 
1 .5 scale 

x y 2 mul radius 0 360 arc 
stroke 
1 2 scale 

(BEGIN) stringwldth pop 2 div 
x exch sub 

y texthelght 4 sub 2 div sub moveto 
(BEGIN) show 
stroke 
end 
) def 


end 
} def 


/Set Sea 1 e 

{ 

/tempscale exch def 

tempscale 0 eq 
{ /texthelght 12 def 
/Courier findfont 
tempscale 1 eq 
( /texthelght 8 def 
/Courier findfont 
tempscale 2 eq 
i /texthelght 4 def 
/Courier findfont 
tempscale 3 eq 
{ /texthelght 20 def 
/Courier findfont 

) def 


Istack: scale 

12 scalefont setfont) if 
8 scalefont setfont) if 
4 scalefont setfont) if 
20 scalefont setfont) if 


/BreaklntoLines %stack: x y width str 

I 


/tempstring exch def 
/wtemp exch def 
/ytemp exch def 
/xtemp exch def 
xtemp ytemp i^oveto 
tempstring ( 

dup (0@) eq 

{/ytemp ytemp texthelght sub def 
xtemp ytemp moveto) 

(dup stringwldth pop 
currentpoint pop 
add wtemp gt 

{/ytemp ytemp texthelght sub def 
xtemp ytemp moveto) If 
show) if else 
) forall 


stroke 


}def 


/ellipse %stack: x y radius 

{ ellipsedict begin 
/radius exch def 
/y exch def 


/circle Istack: x y radius 

{ circledict begin 
/radius exch def 
/y exch def 
/x exch def 

/savematrix mtrx currentmatr ix def 
x y radius 0 360 arc 
st roke 

(END) stringwldth pop 2 div 
x exch sub 

y texthelght 4 sub 2 div sub moveto 

(END) show 

stroke 

savematrix setmatrix 
end 
) def 


/set %stack: x y height width string 

{ setdict begin 
/str exch def 
/w exch def 
/h exch def 
/y exch def 
/x exch def 

%/savematrlx mtrx currentmatrlx def 
gsave 

x y h w drawBox 
x y translate 

2 texthelght neg w str BreaklntoLines 

Isavematrix setmatrix 
grestore 

end 
1 def 


/drawBox Istack: x y height width 

{ 

boxdict begin 
/w exch def 
/h exch def 
/y exch def 
/x exch def 

/savematrix mtrx currentmatrlx def 
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x y translate 
0 0 moveto 
w 0 lineto 
w h neg lineto 
0 h neg lineto 
0 0 lineto 
stroke 

savematrix setmatrlx 

end 
| def 


/h exch def 
/y exch def 
/x exch def 


/savematrix mtrx currentmatrix def 
x y translate 


0 

h 

2 div 

neg 



moveto 


0 

0 


h 2 

div 

0 

h 2 div 

arcto 

0 

h 

2 div 

neg 



moveto 


0 

h 

neg 

h 2 

div 

h 

neg h 2 

div arcto 

stroke 









/pause %stack: x y radius pausetime 

{ pausedict begin 
/pausetime exch def 
/radius exch def 
/y exch def 
/x exch def 

/savematrix mtrx currentmatrix def 
x y radius 0 360 arc 
st roke 

(PAUSE) strlngwidth pop 2 div 
x exch sub 

y texthelght 4 sub add moveto 
(PAUSE) show 

pausetime strlngwidth pop 2 div 
x exch sub 

y texthelght sub moveto 
pausetime show 

stroke 

/texthelght 6 def 

/Courier flndfont 6 scalefont setfont 

x 4 sub y radius add texthelght sub moveto 
(12) show 

x radius add 5 sub y moveto 
(3) show 

x radius sub y 3 sub moveto 
(9) show 

x 4 sub y radius sub 2 add moveto 
(6) show 

.5 setilnewidth 

x y radius add 7 sub moveto 

x y radius add 14 sub lineto 

x 3 sub y radius sub 10 add moveto 

x 10 sub y radius sub 6 add lineto 

stroke 

1 setilnewidth 
savematrix setmatrlx 


%top line 

h 2 div 0 moveto 

w h 2 div sub 0 lineto 

Ibottom line 


h 2 div h neg moveto 
w h 2 div sub h neg lineto 
stroke 


w ti 2 div neg 
w 0 w h 2 div sub 

w h 2 div neg 
w h neg w h 2 div sub 


moveto 

0 h 2 div arcto 
moveto 

h neg h 2 div arcto 


stroke 


(CALL) strlngwidth pop 2 div 
w 2 div exch sub 
h 5 div 2 mul neg moveto 
(GOTO) show 

compname strlngwidth pop 2 div 
w 2 div exch sub 
h 5 div 3 mul neg moveto 
compname show 


stroke 

savematrix setmatrix 
end 
1 def 

/sstart %stack: x y height width compname 

I sstartdlct begin 
/compname exch def 
/w exch def 
/h exch def 
/y exch def 
/x exch def 

/savematrix mtrx currentmatrix def 
x y h w drawBox 
x y translate 


end 
} def 


w 7 div 0 moveto 
w 7 div h neg lineto 


/goto %stack: x y height width compname 

i boxdict begin 
/compname exch def 
/w exch def 


w w 7 div sub 0 moveto 
w w 7 div sub h neg lineto 


(ACTIVATE) strlngwidth pop 2 div 
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w 2 div exch sub 
h 5 dlv 2 mul neg moveto 
(ACTIVATE) show 


compname stringwidth pop 2 div 
w 2 div exch sub 
h 5 div 3 mul neg moveto 
compname show 

st roke 

savematrlx setmatrix 
end 
) def 

/sstop %stack: x y side leg compname 

{ stopdlct begin 
/compname exch def 
/leg exch def 
/side exch def 
/y exch def 
/x exch def 

/savematrix mtrx currentmatrlx def 


x y translate 


0 


leg neg 

moveto 



leg 


0 

lineto 



leg side add 


0 

lineto 



side leg 2 mul 

add 

leg neg 

lineto 



side leg 2 mul 

add 

leg side 

add neg 

lineto 

leg side add 


side leg 

2 mul add 

neg 

lineto 

leg 


side leg 

2 mul add 

neg 

lineto 

0 


leg side 

add neg 


lineto 

0 


leg neg 

lineto 


(STOP) stringwidth 

pop 2 div 





side leg 2 mul add 2 div exch sub 
leg textheight add neg moveto 
(STOP) show 

compname stringwidth pop 2 div 
side leg 2 mul add 2 div exch sub 
leg side add 4 sub neg moveto 
compname show 

st roke 

savematrix setmatrix 
end 
) def 


0 cornerl neg moveto 
corner2 0 lineto 
w 0 lineto 
w h neg lineto 
0 h neg lineto 
0 cornerl neg lineto 

stroke 

2 cornerl textheight add neg w str BreaklntoLines 

savematrix setmatrix 

end 

1 def 

/text %stack: x y textstr 

( textdict begin 

/textstr exch def 
/y exch def 
/x exch def 

%/tempstr 1 string def 

/savematrix mtrx currentmatrlx def 
x y translate 

2 textheight neg 1000 textstr BreaklntoLines 

%tempstr cvs 
%{\n) eq 

%|/y y textheight sub def 
% 2 y moveto) if 

%show ) forall 
savematrix setmatrix 
end 
) def 

/iif %stack: x y width height corner string 

{ ifdict begin 
/str exch def 
/tc exch def 
/h exch def 
/w exch def • 

/y exch def 
/x exch def 

/savematrix mtrx currentmatrlx def 
x y translate 

% draw top triangle 

0 tc neg moveto 

w 2 div 0 lineto 

w tc neg lineto 

% draw right side 


/pprint %stack: x y height width cornerl corner2 str 

{ printdict begin 
/str exch def 
/corner2 exch def 
/cornerl exch def 
/w exch def 
/h exch def 
/y exch def 
/x exch def 


w h tc sub neg lineto 

% draw bottom triangle 

w 2 dlv h neg lineto 

0 h tc sub neg lineto 

% draw left side 

0 tc neg lineto 


/savematrix mtrx currentmatrlx def 
x y translate 


% print text string 




tc texthelght add 2 sub neg 


BreaklntoLines 


savematrlx setmatrlx 
end 
} def 
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* FILE NAME; setup_palette. c 


sefup_palette.c 



fore_back_st ruct foreback [NUM_PALETTE] ; 


* FILE FUNCTION: 

* This file contains the routines which initialize the pixmaps for the palette 

* area menu. The palette area menu contains the graphical symbols which are used 

* to build the graphical elements. 

* SPECIFICATION DOCUMENTS; 

* /home/pro ject/3531/Docu/GCB. spec.doc 

* FILE MODULES: 


Create Default Image () - 
get_my_f oreground ( ) - 
get_my_background ( ) - 
set__my_background {) - 
set_my_f oreground {) - 
setup_palette ( ) 


This module creates an Xlmage with the specified fields. 

retrieves the foreground color of each item. 

retrieves the background color of each item. 

sets the background color of each item. 

sets the foreground color of each item. 

sets the pixmaps and colors of the palette items. 


/ 


•include <stdio.h> 

•include <X1 1/Intrinsic. h> 
•include <X11/St ringDef s . h> 

•Include <Xm/Xm.h> 

•include <Xm/PushB.h> 
•include <Xm/Form.h> 
•Include <Xm/RowColumn .h> 

•include "gcb.h" 

•include "pixmaps. h" 
•include "widgets. h" 
•include "menu.h" 


char *palette_ltems (10] - 1 
"BEGIN", , 

"END", 

"IF”, 

"SET", 

"PAUSE", 

"GOTO", 

"ACTIVATE", 

"STOP", 

"PRINT", 

"TEXT" 

}; 

/* 

* structure for storing each palette Item's fore and background colors. 
V 


typedef struct 

{ 

unsigned long fore, back; 
} foru_back_st ruct; 


setup_palette.c 




MODULE NAME: CreateDefaultlmage () 


MODULE FUNCTION: 

This module creates an Xlmage with the specified fields. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 06/28/91 


.......< 

Xlmage 'CreateDefault Image ( bits, width, height ) 

char 'bits; 

lnt width, height; 

( 

Xlmage 'image; 

lmage - (Xlmage ■) XtMalloc( slzeof (Xlmage) ) ; 

lmage->wldth - width; 

lmage->helght - height; 

lmage->data ■ bits; 

lmage->depth - 1; 

lmage->xof fset * 0; 

lmage->format * XYBltmap; 

lmage->byte_order - LSBFlrst; 

lmage->bltmap_unlt - 8; 

lmage->bltmap_pad - 8; 

lmage->bytes_per_l lne - (wldth+7)/8; 

lmage->bltmap_blt_order - LSBFlrst; 

return! Image ); 

1 


! 


MODULE NAME: get my background () 

set_my_background () 
get_my_foreground () 
set_my_f oreground () 

MODULE FUNCTION: 

These routines set and retrieve the fore and background colors of each Item. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

...../ 

unsigned long getmybackground ( Item ) 
lnt Item; 

( 

return) foreback [ Item] .back ); 

I 


void setmy background ( Item, back ) 

lnt Item; 

unsigned long back; 

I 

fore back [ Item) .back back; 

1 


unsigned long get_my_foreground ( item ) 
lnt item; 

( 

return! foreback ( Item) . fore ); 

) 


void set_my_foreground ( Item, fore ) 

lnt item; 

unsigned long fore; 

( 


I 


foreback! Item) . fore - fore; 
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r t(hI4:26 ! 


setup_palette.c 



’Xw^W^XW’/vMvaw 


/****«***«ftft*ft*ft**ft***ft**fr** ftft * A * AAAA * ttAA < ********** tt*****«k* ******************** 

* 

* MODULE NAME: set up_pa lette ( ) 

* 

* MODULE FUNCTION: This module sets the pixmaps and colors of the palette items. 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

ft 

* ***,.,.».*..****< * **/ 

void setup_palette ( parent, under ) 

Widget parent, under; 


/• 

* place the palette widget underneath the 'under' parameter. 


V 


Xlmage 

* image; 

Pixmap 

pixmap; 

int 

i, n; 

Arg 

args [10 

/* 



* create images for each of the palette item pixmaps; 

* these will be retrieved when we change colors. 

*/ 

image = CreateDefaul t Image ( begin_bits, 64, 64 ); 

Xmlnstalllmage ( image, "BEGIN" ); 

image - CreateDefault Image ( end bits, 64, 64 ); 

Xmlnstal llmage ( image, "END" ); 

image - CreateDefault Image ( if_bits, 64, 64 ) ; 

Xmlnstalllmage ( image, "IF" ); 

image = CreateDefault Image ( set_blts, 64, 64 ); 

Xmlnstal llmage ( image, "SET" ); 

image * CreateDefault Image ( pause_bits, 64, 64 ); 

Xmlnstalllmage { image, "PAUSE" ); 

image - CreateDefault Image { call_bits, 64, 64 ); 

Xmlnstal llmage ( image, "GOTO" ); 

image » CreateDefaul t Image ( actl vate_bit s, 64, 64 ); 

Xmlnstal llmage ( image, "ACTIVATE" ); 

image - CreateDefault Image { stopbits, 64, 64 ); 

Xmlnstal llmage ( image, "STOP" ); 

image - CreateDefault Image ( print_bits, 64, 64 ); 

Xmlnstal llmage ( image, "PRINT" ); 

image » CreateDefault Image ( text_bits, 64, 64 ); 

Xmlnstalllmage ( image, "TEXT" ); 

/• 

* create Kr.imo to hold palette rowcol widget 

*/ 


n « 0; 

/* 

* palette frame is not mapped when managed, only when we are not 


* creating an expression. 

*/ 


XtSetArg{ args[n], XtNmappedWhenManaged, FALSE ); n++; 

XtSetArg( args(n], XmNbottomAttachment, XmATTACH_FORM ); n++; 
framepalette - (Widget) XmCreateFrame ( parent, "frame_palette", args, n ); 
XtManageChl Id ( f ramepalette ); 

set_attach_widget ( f rame_palette, under, NULL, NULL, NULL ); 

/• 

* create form to hold rowcol palette 

*/ 


n - 0; 

XtSetArg( argsjnj, XmNwldth, 278 ); n++; 

XtSetArg( args(n), XmNheight, 450 ); n++; 

FormW - XmCreateForm ( frame_pa lette, NULLS, args, n ); 
XtManageChl Id ( FormW ); 

/* 

• create rowcol to hold palette items 

*/ 


n - 0; 

XtSetArg( args[n], XmNpacking, 
XtSetArg( args[n), XmNnumColumns, 
XtSetArg( args[nl, XmNentryAlignment , 
XtSetArg( args[n), XmNorientat ion, 
rcpalette - XmCreateRowColumn ( FormW, 
XtManageChl Id ( rcpalette ); 


XmPACK_NONE ); n-f + ; 

2 ); n++; 

XmALIGNMENT_CENTER ); n + + ; 

XmVERTICAL ); n++; 

"rcpalette", args, n ); 


/• 

* find pixmap for each button, set callback function, and 

* create button. 

*/ 

for ( i=0; i < 10; i++ ) 

I 

pixmap - XmGetPixmap( XtScreen (rcpalette) , pa lette_items ( i ] , 
colors (MAX_COLORS“2) , 0 ); 


/• 

* create push button with proper pixmap and width and height. 

*/ 


n *» 0; 

XtSetArg( args[nl, XmNlabelType, XmPIXMAP ); n++; 
XtSetArg( args[n], XmN label Pixmap, pixmap ); n++; 
XtSetArg( args[n], XmNwldth, 64 ); n++; 

XtSetArg( args[n), XmNheight, 64 ); n++; 

/• 

* Record the palette item's type in userData 

*/ 

XtSetArg( args(n], XmNuserData, i ); n + + ; 

/• 

* place palette items in 2 columns of 5 each 

*/ 


if ( i < 5 ) 

i 

XtSetArg( args(n], XmNx, 40 ); nt+; 
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XtSetArg{ args(n) 
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XmNy, (85 * 1) + 15 ) ; n++; 


else 

I 

XtSetArgl args(n|, XmNx, 165 ); n* + ; 

XtSetArgl args[n|, XmNy, (85 * (1-5)) + 15 ) ; nt+; 

) 

Palette(i) - XmCreatePushButton ( rc_palette, NULLS, args, n ) ; 

XtManagoChl Id ( Palette|l| ); 

switch ( 1 ) 

( 

/* 

* set callback depending on type of button. 

*/ 

case 0: 
case 1: 

XtAddCal lback ( Palette(l), XmNactlvateCallback, cbrpalette, 1 ) ; 
break; 
case 2: 
case 3: 

XtAddCal lback ( Palette[l|, XmNactlvateCallback, cbrlf, 1 ); 
break; 
default; 

XtAddCal lback ( Palette(l|, XmNactlvateCallback, cbrprlntset , 1 ); 
break; 

I 

/* 

• Set Initial default colors. 

*/ 

set_my_foreground ( 1, MAXCOLORS-2 ); 
set_my_background ( 1, 0 ) ; 

) 
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/* 

* Various COTS include files. /********•********»**********************< >*********************»**•*************** 

*/ * 


linclude <stdio.h> 
llnclude <math.h> 
linclude <memory.h> 
linclude <sys/st dt ypes .h> • 

•include <sys/param. h> 

•include <sys/signal . h> 

/* 

* Various Custom includo files. 

*/ 


MODULE NAME: init ia 1 i ze_process_t able () 

MODULE FUNCTION: 

Function initializes the process table which is maintained by the running Comp. 

The process table is used to keep track of other Comps which are spawned/ACTIVATED 
by the current Comp. 


REVISION HISTORY: 


•include <matrix.h> 

•include <skeleton element. h> 
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/* 

* Local data structure to store process information. The size of the table is 

* equal to the maximum number of processes that a single user can have (which 
*. implies that the table will never fill up. 

*/ 

static struct proccss^data process_table [ MAXUPRC ); 


void inltlali 2 e_process_table () 

{ 

register int 1; 

for ( i = 0; i < MAXUPRC; i++ ) 

processtable ( i ] .pdprocessstatus - NO_PROCESS_DEFINED; 

} 


III ||| 




MODULE NAME: start_process () 

MODULE FUNCTION: 

Function start_process In Invoked when a COMP Is to be Initiated. 


/* 

* Record the vital statistics of the process. It would 

* be nice to Install a heartbeat so that It could be 

* 100% determined that the process (the EXEX'ed one) was 

* really started. 

*/ 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

............................t.../ 


I 


strcpy( process_tabl e [ 1 ) ,pd_process_name ( process_name ); 

processtable [ 1 ) ,pd_process_ld - processld; 

process table[ 1 ) .pd_process_status i “ PROCESS_STARTED; 


void start process ( process name ) 
char 'process name; 

I 

register lnt 1; 
pld_t process_ld; 

/* 

* Search the process table to determine If an entry exists 

* for the new processed to be spawned. 

•/ 

for (1-0; 

( ( 1 < MAXUPRC ) kk 

( process_table[ 1 | .pdprocessstatus k PROCESSSTARTED ) ) ; 
1 + t > ; 

/' 

* Report an error If an entry could not be found. 

*/ 


If ( 1 MAXUPRC) ( 

fprlntf( stderr, "You have filled up the process table. ..\n" ) ; 
return; 


/* 

* Attempt to FORK and EXEC the new process. If successful, record 

* the process ID In the process table. 

*/ 


process_ld - fork(); 

If ( process_ld — -1 ) 

fprlntf( stderr, "Could not spawn a new process\n" ); 

else 

If ( proccss_ld -- 0 ) ( 

execl ( process_name, NULL, NULL ); 

/* 

* The process was not successfully started, exit this process 

* as no value added has occurred. 

*/ 


fprlntf( stderr, "Process %s could not be EXEC'ed\n”, process_name ) ; 
exit ( -1 ) ; 
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/********** 

MODULE NAME: stop process {) 


* * * * * * * < > ****************** 


MODULE FUNCTION: 

Function stop_process is invoked when a previously started COMP is to be 
terminated. 


REVISION HISTORY: 
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***** *************************** 


void stopprocess ( process_name ) 
char *process_name ; 


register int i , index; 

/* 

* Search each entry in the process status table for the 

* specified process name. If the entry exists, find the 

* most recent . 

V 

for ( i » 0, index - -1; i < MAXUPRC; i++ ) 

/* 

* If the process table entry is defined determine if 

* the process ID is the most recent {assuming that the 

* most recent will always have the largest UNIX PID) . 

V 

if ( ( process_table [ i ] . pd_process_status & PROCESS_STARTED ) && 
( strcmp( process_name, 

process_table [ i ) . pd_process_name ) == 0 ) ) 
if { index ■== -1 ) 
index ■ i; 

else 

if ( process_table [ i ) .pd_process_id > 

process_table { index ) .pd_process_id ) 
index =* i; 

/* 

* Terminate the process if it was found in the process table. 

* Mark the entry in the process table as not active. 

*/ 


if { index !» -1 ) 

if ( kill{ process_table [ index ] . pd_process_id, SIGKILL ) = =» 0 ) 
process_table( index ] .pd_process_status * NO_PROCESS_DEFINED; 

else 

fprintf{ stderr, "The process: %s could not be terminated\n". 
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MODULE NAME: bind_ws_global () 


MODULE FUNCTION: 

Function bi nd_ws_global Is Invoked to bind the address of a workstation global 
variable to that of an address in data acquisition. 


REVISION HISTORY: 
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Release 1.02 - 08/28/91 


MODULE NAME: bindwsob ject () 


MODULE FUNCTION: 

Function blndobject is invoked to bind the address of an object global global 
variable to that of an address In data acquisition. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt bind ws global ( cj 1 oba l_namc, data_typc, pointer ) 

char ‘global name; 
lnt data_lypc; 
void ‘pointer; 


lnt bindwsob ject { objectname, datatype, pointer ) 

char ‘ob ject_name; 
lnt data_type; 
void ‘pointer; 


* Appropriate code must be added to bind these variables to a real memory 

* location when the GCB is fullu Implemented. 

*/ 


* Appropriate code must be added to bind these variables to a real memory 

* location when the GCB is fullu implemented. 

*/ 
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A************************************** < > ***** ************************************ | / 

MODULE NAME: ci () 


MODULE FUNCTION: 

Function ci is invoked to compute the index into a multi-dimensional array while 
treating the base pointer as a single dimensioned array. This is done because of 
the difficulties of dealing with variable sized two dimensional arrays in C. Note 
that this function (and all the matrix functions) assume traditional C based 
arrays which are addressed starting at position zero (0). 


REVISION HISTORY: 
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< > 


< — — > **************************************** 

* MODULE NAME: matrixi nit () 

* 

* 

* MODULE FUNCTION: 

* 

* Function matrix_init is Invoked to Initialize a matrix to a specified value. The 

* value to be initialized is ALWAYS as passed as double and then convert as necessary 

* to the target data type. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

* 

A************************************* .*< >* ** * ************************************/ 

/ void matrix_init ( data_type, matrix, number_rows, number_columns, init_value ) 


static int cl ( i, j, number_rows ) 
iht 1, j, number_rows; 


( 

return ( i + ( i * number_rows ) 
) /* of function */ 


int data_type, number_rows, number_columns; 
void • matrix; 
double initvaluo; 


register int i, j; 

int *int matrix, intvalue; 

float *f loat jnat rix, float value; 

double ‘double matrix, double_value; 

short ‘short matrix, short_vaTue? 

unsigned int ‘unslgnedjnatrix, unsigned_value; 


switch ( data_type ) ( 

case INT : int_matrix = (int *) matrix; 

int_value = (int) lnit_value; 

for ( i - 0; i < number_rows; i++ ) 

for ( j 0? j < number_columns; j + + ) 

int_matrix[ ci ( i, j, number_rows ) ) = int_value; 

break; 

case FLOAT : float_matrix ■ (float *)matrix; 

float_value = (float) lnit_value; 
for ( i - 0; i < number_rows; i++ ) 

for ( j - 0; j < number_columns; j++ ) 

f loat_matrix [ ci ( i, j, number_rows ) J - float_value; 


break; 

case DOUBLE : double_mat rix = (double *) matrix; 

double_value - (double) init_value; 

for { i » 0; 1< number_rows; i + + ) 

for ( j - 0; j < number_columns; j++ ) 
double_matrix[ ci( i, j, number_rows 


break; 

case SHORT : short_matrix * (short *) matrix; 

short_value - (short) Ini t_value; 


for ( i - 0; i < number_rows; 1++ ) 

for ( j = 0; j < number_columns; j++ ) 
short_matrix [ ci ( i, j, number_rows ) 


) = double_va lue; 


*» short value; 


] 




break; 

case UNSIGN : unsigned_matri x - (unsigned lnt *)matrix; 

unsigned_value - (unsigned int ) init_value; 


*.*.»*...* 

* 

* MODULE NAME: ci4() 


for ( i » 0; i < number_rows; i + + ) 

for ( j » 0; j < number_columns; j++ ) 

unslgned_matrix( ci ( i, j, number__rows ) ) 
unslgned_value; 


break; 

} /* of switch */ 

} /* of function */ 


. MODULE FUNCTION: 

Function ci4 is Invoked to compute the index into a multi-dimensional array while 
treating the base pointer as a single dimensioned array. This is done because of 
the difficulties of dealing with variable sized two dimensional arrays in C. 

Note that this function (and all the matrix functions) assume traditional C based 
arrays which are addressed starting at position zero (0). 


REVISION HISTORY: 
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static int cl4( i, j, k, 1, subl , sub2, sub3 ) 
int i, j, subl; 

{ 

return ( 1 + ( i * subl ) + { j * sub2 ) + ( k * sub3 ) ); 
) /* of function */ 


■x>x»;ow ' 
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* > 

* MODULE NAME: matr ix_i ni t 4 {) 


MODULE FUNCTION: 

Function matrix_lnlt4 Is invoked to Initialize a matrix to a specified value. 

The value to be initialized is ALWAYS as passed as double and then convert as 
necessary to the t argot data type. This function is for 3D and 4D arrays only. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




void matrix_init 4 ( data_type, matrix, subl, sub2, sub3, sub4, inlt_value ) 

int data_type, subl, sub2, sub3, sub4; 
void ^matrix; 
double init_value; 


register int i, j, k, 1; 

lnt *int_matrlx, lnt_value; 

float *f loat_matrlx, float^value; 

double *double_mat rix, double_value; 

short *short_mat rix, short_value; 

unsigned int * unsigned_matrix, unsigned_value; 

switch! data_type ) ( 

case INT : int_matrix - (int •Jmatrlx; 

intvalue = (int) i nit_value; 
for ( 1 “0; i < subl; i*+ ) 

for ( j “ 0; j < sub2; j++ ) 

for ( k - 0; k < sub3; k + + ) 

for ( 1 - 0; 1 < sub4; 1++ ) 

int_matrix[ ci4( 1, j, k, 1, subl, sub2, sub3 ) I - 
int_value; 

break; 

case FLOAT : float_matrix = (float *)matrix; 

float_value - (float ) init_value; 
for ( i - 0; i < subl; 1++ ) 

for ( j - 0; j < sub2; j++ ) 

for ( k - 0; k < sub3; k++ ) 

for ( 1 - 0; 1 < sub4; 1++ ) 

f loat_matr 1 x ( ci4( 1, J, k, 1, subl, sub2, sub3 ) ] « 
f loat_va lue; 


double_value; 


break; 

case SHORT : short_matr ix = (short *) matrix; 

short_value ** (short) init_value; 


for (1=0; i < subl; i++ ) 
for ( j - 0; j < sub2; j+-+ ) 
for ( k - 0; k < sub3; kf+ ) 
for ( 1 - 0; 1 < sub4; 1** ) 
short matrix! cl 4 ( i, J, k, 
short value; 


subl, sub2, sub3 ) J - 


break; 

case UNSIGN : unsignedjnatrix - (unsigned int *)matrix; 

unslgned_value - (unsigned int) init_value; 


for ( i - 0; i < subl; i+ + ) 
for ( j ■ 0; J < sub2; j++ ) 
for ( k - 0; k < sub3; k++ ) 
for ( 1 - 0; 1 < sub4; 1 + + ) 
unsigned_mat rix ( ci4 ( 1, j, k, 
** unsigned_value; 


subl, sub2, sub3 ) j 


break; 

} /* of switch */ 

/* of function */ 


break; 

case DOUBLE : double_matrix = (double *) matrix; 

double_value = (double) inlt_value; 


for (1=0; i < subl; 1++ ) 
for ( j “ 0; j < sub2; j++ ) 
for ( k = 0; k < sub3; k++ ) 
for ( 1 - 0; 1 < sub4; 1++ ) 

double_mat rix [ ci4 ( 1, j, k, 1, subl, sub2, sub3 ) j - 



MODULE NAME: matrix_copy4 {} 


MODULE NAME: matrix_print () 


* MODULE FUNCTION: 

* Function matrix_copy4 will copy one matrix to another. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* *«•**** •»*******«•« >•••••« •*••****•«*«***•••* 

void matrlx_copy4 ( datatype, matrlxl, matrix2, subl, sub2, sub3, sub4 ) 


MODULE FUNCTION: 

Function matrix_prlnt is Invoked to print the contents of a matrix. It is not 
currently callable from a GCB statment but It Is Included for future enhancements 
to the GCB. 


REVISION HISTORY: 


/ 
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lnt data_type, subl, sub2, sub3, sub4; 
void ‘matrlxl, *matrlx2; 


register int num_bytes; • . 

/* 

* When this routine is Invoked, we are assured of at least a 3D array, the 4th 

* dimension may be zero so it is added separtely. 

*/ 

switch! data_type ) ( 

case INT : num_bytes - ( subl ♦ sub2 + sub3 ) * sizeof( lnt ) + 

sub4 • sizeof( int ); 

break; 

case FLOAT : num_bytes - ( subl + sub2 + sub3 ) * slzeof( float ) + 

sub4 * slzeof( float ); 

break; 

case DOUBLE : num_bytes - ( subl * sub2 t sub3 ) • slzeof( double ) f 

sub4 * slzeof( double ); 

break; 

case SHORT : num_bytes - ( subl + sub2 + sub3 ) * slzeof( short ) + 

sub4 * sizeof( short ); 

break; 

case UNSlGN : num_bytes - ( subl + sub2 + sub3 ) * sizeof( unsigned ) + 

sub4 * slzeof( unsigned ); 

break; 

) /* of switch •/ 

/* 

* Copy the bytes over from the source pointer to the destination pointer. 

V 

memcpy ( matrix2, matrixl, num_bytes ); 

) /* of function */ 


void matrixprint ( data type, matrix, number_rows, number_cols ) 

int datatype, number_rows, number_cols; 
void ‘matrix; 


register int 1, j; 

int *int_matrix; 

float *float_mat rix; 

double "doublemat rix; 

short *short_mat rix; 

unsigned int * unslgnedmat rix; 

switch! datatype ) { 

case INT : int_matrlx - (lnt *)matrix; 

for (1-0; i < number_rows; 1++ ) ( 
for ( j - 0; J < numbcr_cols; ) 

fprlntf( stdout, **%8d ", 

int_matrix( cl ( i, J, number_rows ) ) ); 
fprintf( stdout, "\n M ); 

| /* of for */ 

break; 

case FLOAT : float_matrix - (float *) matrix; 

for ( 1 - 0; i < number_rows; i++ ) ( 

for ( j - 0; j < number_cols; ) 

fprintf( stdout, **%8.2f ", 

f loat_matrlx [ cl ( i, j, number_rows ) \ ); 
fprintf( stdout, "\n" ); 

} /* of for */ 

break; 

case DOUBLE : double_mat rix - (double *) matrix; 

for ( i - 0; i < number_rows; i++ ) ! 

for ( j - 0; j < number_cols; ) 

fprintf( stdout, M %8.21f ", 

double_matrix ( cl ( 1, j, number_rows ) ) ); 
fprintf ( stdout, M \n" > ; 

) /* of for •/ 

break; 

case SHORT : short_matrix - (short *) matrix; 
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case UNSIGN 


skeleton_element.c 


} /' of switch 

) /* of function * 


for ( 1 * 0; 1 < number_rows; i + + ) ( 

foe ( j » 0; j < number_cols; j++ ) 

fprintf{ stdout, "ISd ", 

short_matrix{ ci ( i, j, number_rows ) j ); 
fprintf{ stdout, H \n“ ); 

} /* of for V 
break; 

unsigned matrix = (unsigned int *)matrlx; 

for ( l - 0; i < number rows; 1 h | ( 

lor ( J - 0; } < numbisr cols; ) 

fprintfl stdout, "%8d ", 

unslqnedjnatrix[ ci ( 1, 5, number_rows J 1 }; 
fprintf( stdout, "\n" ); 

) /* of for */ 
break; 

*/ 


y********«****************************** * < y ********************* 

* 

* MODULE NAME: matrix dot () 


MODULE FUNCTION: 

Function matrix dot will perform a dot product of two matrices. 


REVISION HISTORY: 
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void matrix_dot( data type, matrixl, matrix2 f number_rows, dotprod ) 

int data_type, number_rows; 
void 'matrixl, 'matrix2, 'dotprod; 


int *int_ml, 'int_m2, int_dotprod, i; 

float 'floatml, *float_m2, f loat_dotprod; 

double 'doublejnl, 'double_m2, double_dotprod; 

short 'short jnl, 'short jn2, short_dotprod; 

unsigned int 'unsigned ml , *unsigned_m2, unsigned^dotprod; 

switch( datatype ) [ 

case INT : int__dotprod * 0; 

int__ml - (int *)matrixl; 

int_m2 « (int *)matrlx2; 

for ( i - 0; 1 < number_rows; i++ ) 

int_dotprod +- lnt_ml( ci ( i, 0, number_rows ) ) 
intju2( ci( i, 0, number_rows ) J; 

'(Int 'Jdotprod *» int_dotprod; 
break; 

case FLOAT : f loat_dotprod » 0.0; 

float_jnl » (float *)matrlxl; 
float m2 - (float *}matrix2; 


for ( 1 » 0; 1 < number^rows; 1++ > 

f loat^datprod +« float jnl( cl ( i, 0, number_rows ) ! * 

float_m2[ ci ( i, 0, number_rows > J; 

'(float *) dotprod * f loat_docprod; 
break; 

case DOUBLE : double__dotprod *= 0.0; 

doublejnl - (double *) matrixl; 
double jn2 - (double *)matrix2; 

for ( 1 - 0; i < number_rows; i++ ) 

double_dotprod + a doublejnl [ ci ( i, 0, number_rows ) J ‘ 

doublejn2[ cl ( i, 0, number_rows ) J; 

'(double *) dotprod « double jiotprod; 
break; 

case SHORT ; short jiotprod - 0.0; 

short ml - (short *)matrlxl; 
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case UNSIGN : 


) /* of switch 

) /* of function * 



short_m2 - (short *)matrix2; 

for ( 1 - 0; i < number_rows; i + + J 

short_dotprod +- short jml [ cl ( i, 0, number_rows ) 1 * 
short_m2[ cl ( i, 0, number_rows ) ); 


/ 


MODULE NAME: matrixcopy ( ) 


•(short *)dotprod - short_dotprod; 
break; 

unsigned_dotprod - 0.0; 

unsigned_ml - (unsigned int Mmatrixl; 

unsigned_m2 - (unsigned int *)matrix2; 

for ( 1 - 0; i < number_rows; i + + ) 

unsigned_dotprod +- unsigned_ml( cl ( i, 0, number^rows ) ] 
unsigned_m2 [ cl ( 1, 0, number_rows ) J; 

* (unsigned Int *)doiprod - unsigned dolprod; 
break; 

*/ 

/ 


MODULE FUNCTION: 

Function matrix_copy will copy one matrix to another. 
REVISION HISTORY: 
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* ****•*•< "*V 

void matrix_copy{ data_type, matrixl, matrix2, subl, sub2 ) 


int data_type, subl, sub2; 
void ‘matrixl, *matrlx2; 


{ 


register int num bytes; 


switch ( data type 

> i 



case 

INT : 

num^bytes - subl 
break; 

* 

slzeof ( 

case 

FLOAT : 

numbytes * subl 
break; 

ft 

slzeof ( 

case 

DOUBLE : 

numbytes - subl 
break; 

* 

slzeof ( 

case 

SHORT : 

numbytes - subl 
break; 

ft 

slzeof ( 

case 

UNSIGN : 

num bytes - subl 
break; 

ft 

slzeof ( 

} /* of switch 

*/ 




int ) + sub2 * s i zco t ( int ); 
float ) ♦ sub2 * slzeof( float ); 
double ) 4- sub2 • slzeof( double ); 
short ) + sub2 * slzeof( short ); 
unsigned ) +sub2*slzeof ( unsigned ); 


/* 

* Copy the bytes over from the source pointer to the destination pointer. 
V 


memepy ( matrix2, matrixl, num_bytes ); 
} /* of function */ 
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**************************************** 

MODULE NAME: matrlx_cross () 

MODULE FUNCTION: 

Function matrlx_cross will perform the cross product of two matrices and stored 
the result in a third matrix. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


iHfittttdtilHtttdtMMOtMHttitllHtt < >* ft**************************************/ 

void mat rlx_cross ( data_type, num_rows, matrix! , matrix2, matrix3 ) 

int data typo, num rows; 

void *matrixl, *matrix2, *matrlx3; 


float_ra2 ( 

Ci ( 

1, 0, num_ 

rows ) 

i 


float result! ci ( 1, 0, num rows 

i 

i = 

float_ral [ 

ci ( 

2, 0, num_ 

rows ) 

i 

* 

float_m2 [ 

cl ( 

0, 0, num 

rows ) 

] 

- 

float_ml ( 

ci ( 

0, 0, num_ 

rows ) 

i 

* 

f loat_m2 [ 

cl ( 

2, 0, num_ 

rows ) 



float result l ci ( 2, 0, num rows 

i 

i - 

float_ml ( 

cl ( 

0, 0, num 

rows ) 

i 

* 

float_m2 ( 

Ci ( 

1, 0, num_ 

rows ) 

i 

- 

float ml f 

ci { 

1, 0, num_ 

rows ) 

i 

* 

float_m2 [ 

cl ( 

0, 0, num_ 

rows ) 




break; 


case DOUBLE ; double_ml = (double *)matrixl; 

doublejn2 * (double *)matrlx2; 
double_result - (double *)matrlx3; 

double_resul t ( ci ( 0, 0, num_rows ) ) - 
double_ml( ci( 1, 0, num_rows ) ) * 

double_m2[ cl( 2, 0, num_rows ) | - 

double_ml( cl ( 2 , 0, num_rows ) | * 

doub)e_m2[ cl ( 1, 0, num_rows ) J; 


lnt *int_ml, *int_m2, * int_resul t , row; 

float *float_ml, * float _m2, *f loatresult; 

double ‘doublem], - double_m2, *double_resul t; 

short *short_ml, “short_m 27 *short_resul t ; 

unsigned lnt * unsi gned_ml , * unsigned_m2, *unslgned_resul t ; 


switch ( datatype ) { 

case I NT ; int_ml “ (lnt *)matrixl; 

int_m2 - (lnt *)matrlx2; 
int_result » (lnt *)matrix3; 

int_result[ cl ( 0, 0, num_rows ) ] » 
int_ml[ ci ( l r 0 f num_rows ) ] * 

int_m2( cl ( 2 , 0, num_rows ) ) - 

int_ml [ cl ( 2 , 0, num_rows ) ] * 

int_m2[ cl ( 1, 0, num_rows ) ]; 

int_result[ cl ( 1, 0, num_rows ) ] = 
, int_ml( cl ( 2 , 0, num_rows ) ) * 

int_m2( ci ( 0, 0, num_rows ) ] - 

int_ml( cl ( 0, 0, num_rows ) ) * 

int_m2[ cl ( 2 , 0, num_rows ) ]; 

lnt_result[ ci ( 2 , 0, num_rows ) ) = 
int_ml[ ci ( 0, 0, num_rows ) 1 * 

int_m2( cl ( 1, 0, num_rows ) ] - 

int_ml [ ci ( 1, 0, num_rows ) ] * 

int_m2 [ ci ( 0, 0 ; num_rows ) J ; 

break; 


case FLOAT ; float_ml - (float *)matrixl; 

float_m2 - (float *)matrix2; 
float_result * (float *)matrix3; 

f loa t_result ( ci ( 0, 0, num_rows ) | - 

float_ml{ cl ( 1, 0, num_rows ) | * 

float_m2f cl ( 2, 0, numrows ) ) - 

float__ml[ cl ( 2, 0, num_rows ) • * 



double result [ ci ( 

1, 

0, num_rows 

i i - 

doublejnl [ 

ci ( 2, 

0, 

num_rows ) 

1 * 

double m2 ( 

cl t 0, 

0 , 

numrows ) 

J - 

double jnl [ 

cl ( 0, 

0 , 

numrows ) 

i « 

double_m2 ( 

cl ( 2 , 

0, 

numrows ) 


double result! ci ( 

2, 

0, num_rows 

> i - 

double jnl [ 

cl ( 0, 

0, 

num_rows ) 

i * 

double_m2 [ 

ci ( 1, 

0, 

numrows ) 

] - 

double_ml [ 

ci ( 1, 

0, 

num_rows ) 

1 * 

double_m2 { 

ci ( 0, 

0 , 

num_rows } 



break; 


case SHORT : shortml - (short *)matrixl; 

short_m2 « (short *)matrix2; 
short_result - (short *)matrix3; 

shortresult ( ci ( 0 , 0 , num_rows ) ] » 
short_ml ( ci ( l f 0 , num_rows > 1 * 

short_m2 ( cl ( 2, 0 , num_rows ) ] - 

short_ml ( cl ( 2, 0, num_rows } 1 * 

short_m2 ( ci ( 1, 0, num_rows ) |; 

short_result ( cl ( 1, 0, num_rows ) J = 
short_ml ( cl ( 2 , 0, num_rows ) ] * 

short_m2 ( ci ( 0, 0, num_rows ) ) - 

short_ml ( cl ( 0, 0, numerous ) | * 

short_m2 ( ci ( 2 , 0, num_rows ) J; 

short_result ( ci ( 2 , 0, num_rows ) J *» 
shortml ( ci ( 0, 0, numrows ) ) * 

short_m2 ( cl ( 1, 0, num_rows ) 1 - 

short_ml [ cl ( 1, 0, num_rows ) J * 

short_m2( cl ( 0, 0, num_rows ) J; 

break; 

case UNSIGN : unsigned_ml » (unsigned lnt *)matrixl; 

unsigned_m2 « (unsigned lnt *)matrix2; 
unslgned_resul t = (unsigned lnt *)matrix3 

unslgned_jresult [ ci ( 0, 0, num_rows ) | - 



IfcSth}’" 


/ * of switch 
of function ' 


unslgned_ml[ ci { 1, 0, num_rows ) 
unsigned_m2[ cl ( 2, 0, num_rows ) 
unsigned_ml[ cl { 2 , 0, num_rows ) 
unsigned_m2( cl ( 1, 0, num_rows ) 

unslgned_result [ ci < 1, 0, num_rows 
unsigned_ml[ ci{ 2 , 0, num_rows ) 
unsigned_m2[ ci ( 0, 0, num_rows ) 
unslgned_ml[ ci { 0, 0, num_rows ) 
unsigned_m2( ci ( 2 , 0, num_rows ) 

unslgned_result ( ci ( 2 , 0, num_rows 
unsignedjnlf ci ( 0, 0, num_rows ) 
unsigned_m2{ cl ( 1, 0, num_rows ) 
unslgned_ml I cl ( 1, 0, num_rows ) 
unslgned_m2[ cl ( 0, 0, num__rows ) 
break; 

*/ 


skeleton element.c 


MODULE NAME: matrix ident () 


MODULE FUNCTION: 

Function matrixldent will Initialize the given matrix to an identity matrix. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


void matrlx_ldent { datatype, size, matrix ) 

lnt data_type, size; 
void *raatrlx; 


register lnt 1, j; 

lnt Mntjnat rlx; 

float ‘floatmat rlx; 

double ‘doublematrix; 

short ‘short jnat rlx; 

unsigned lnt ‘unslgnedjnat rix; 

switch! datatype ) ( 

case INT : intmatrix - (lnt *)matrix; 

for (1-0; 1 < size; 1 + + ) 
for ( j - 0; j < size; j+t ) 
if ( 1 — j ) 

lnt_matrix[ cl ( 1, j, size ) | 

else 

int_matrix( cl ( 1, j, size ) ) 

break; 

case FLOAT : float matrix « (float *) matrix; 


for (1-0; 1 < size; 1++ ) 
for ( j - 0; j < size; j++ ) 

if ( i — j ) 

f loatmatrix ( cl ( 1, j, size ) 

else 

float_matrix ( cl ( 1, j, size ) 

break; 

case DOUBLE : double matrix - (double *) matrix; 


1 - 0 . 0 ; 


for ( 1 - 0; 1 < size; 1++ ) 

for ( j - 0; j < size; j++ ) 

if ( i — j ) 

double_mat rlx ( ci ( 1, j, size ) 

else 

double_matrlx[ ci ( 1, J, size ) 

break; 

case SHORT : short_matrix - (short *) matrix; 

for ( 1 - 0; i < size; 1++ ) 

for ( j - 0; j < size; j++ ) 


) - 1 . 0 ; 


fei'/te) :: 

1 10:50:32 j 


skeleton_elementx 



) 


case UNSIGN 


if ( i — 3 ) 



short_matrix ( ci ( i, j 

else 

, size ) | -1.0; 

break; 

short_matrix ( cl ( i, j 

, size ) | = 0.0; 

unsigned matrix = (unsigned Int 

* ) matrix; 

for ( 

i ■ 0; 1 < size; i++ ) 


for 

(J-0; j < size; ]++ ) 
if ( 1 — 3 ) 



unslgnedjnatrix ( cl( 1 

else 

, 3, size ) | = 1.0; 

break; 

unsigned matrlx( cl ( 1 

, 3, size ) | = 0.0; 


/* of switch */ 
of function */ 


/ft*************************************** < > *********************************** 

* MODULE NAME: submatrix () 

* MODULE FUNCTION: 

* Function submatrix will either add or subtract two matrices leaving the result 

* in a third matrix. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

****************************************< ^****AA* ***************************** 


/ 


static void submatrixl datatype, matrlxl, matrlx2, number_rows, number_cols, 
matrix3, what ) 

int data__type, number^rows, number_cols, what; 
void *matrixl, *matrix2, *matrix3; 


register int i, j; 

int *int_ml, *int_m2, *lnt_result, row; 

float *float_ml, *float_m2, *f loatresul t; 

double *double_ml, *double_m2, *double_result; 

short *short_ml, *short_m2, *short_result; 

unsigned int *unsigned_ml, *unsigned_m2, *unsigned_result; 

switch { datatype ) ( 

case INT : int ml = (int Mmatrixl; 

int_m2 - (int *)matrlx2; 

Int result - (int *)matrix3; 

for (1=0; i< number_rows; 1 + + ) 
for ( j - 0; j < number_cols; j++ ) 
switch ( what ) { 

case ADD : 

int_result( ci ( i, j, number^rows ) ] = 




intjxil [ 

cl ( 

1, 

3 . 

, number_rows ) 

i + 



int_m2 ( 

Ci ( 

1, 

3 , 

, number_rows ) 

1; 



break; 








case SUBTRACT : 








Int result ( cl ( 1, 

3 , 

, number rows ) ) 

= 



lnt_ml [ 

ci ( 

1, 

3 , 

r number_rows ) 

1 - 



. Int_m2[ 
break; 

cl ( 

1, 

3 , 

, number_rows ) 

1; 


i 

/* of switch */ 






break; 








case FLOAT : float 

ml 

- .(float *)matrixl; 






float 

m2 

= (float *)matrlx2; 






float 

result - (float *)matrix3; 






for ( 

i = 

0; i < number_rows; i++ ) 






for 

( j 

- 0; j < number cols; j + + 

) 






switch! what ) ( 








case ADD : 








float_result I 

cl ( 

1, 

3 , 

nujnber^rows ) 

l - 



float_ml [ 

ci ( 

1, 

3 , 

, number_rows ) 

l + 
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float_m2 { 

cl ( 

i, 

3, 

number rows 

) 1; 


) /* of switch */ 

break; 







break; 

case SUBTRACT : 






) /* 

of switch */ 

float_result ( 

cl ( 

i, 

3. 

number rows 

) 1 - 

1 /* of 

function */ 

f loat_ml l 

ci l 

i. 

3, 

number_rows 

) 1 - 



float_m2 ( 

cl ( 

i, 

3, 

number_rows 

) 1; 



break; 









} /* of switch */ 


break; 

case DOUBLE : double^ml - (double Mmatrixl; 

doublejn2 - (double *)matrix2; 
double_result - (double •)matrlx3; 


for ( 1 » 0; 1 < number_rows; Iff ) 
for ( j - 0; j < number_cols; j*f ) 
swlcch( what ) 1 

case ADD : 

double_resul t ( cl ( 1, j, number_rows ) ) - 

double_ml( cl ( 1, j, number_rows ) ] + 

double_m2( cl ( 1, j, number_rows ) J; 

break; 

case SUBTRACT : 

double_result ( ci( 1, j, number_rows ) 1 - 

double ml ( cl ( l, j, number_rows ) 1 - 

double_m2( cl { 1, j, numberrows ) 1; 
break; 

1 /• of switch */ 

break; 

case SHORT : shortjnl - (short Mmatrixl; 

short_m2 - (short Mmatrlx2; 
shortresult - (short *)matrlx3; 


case UNSIGN 


for ( 1 - 0; 1 < numberrows; 1 + + ) 
for ( j - 0; j < numbercols; ) 
switch ( what ) ( 

case ADD : 


1 


short_result ( cl ( 
short_ml ( 
short_m2 [ 
break; 

case SUBTRACT : 

short_result [ cl ( 
short_ml ( cl ( 
short_m2( cl ( 
break; 

/• of switch */ 


l, number_rows ) 1 
cl ( 1, j, number_rows 
cl ( 1, j, number_rows 


1, j, numberrows ) J 

1, J, numberrows ) 1 

i, j, number_rows > J; 


break; 

: unslgned_ml “ (unsigned int *)matrixl; 
unslgned_m2 - (unsigned int *lmatrlx2; 
unsigned_result - (unsigned Int *)matrix3; 


> 1 + 
) I; 


for ( 1 - 0; 1 < number_rows; Iff ) 
for ( J - 0; j < number_cols; j ♦ ♦ ) 
switch ( what ) ( 

case ADD : 


unsigned_resul t ( 

cl ( 

1, 

3, 

number_rows ) J 

unsignedjnl ( 

cl ( 

1, 

3, 

number_rows ) ] 

unsigned_m2 ( 
break; 

case SUBTRACT : 

Ci( 

1 , 

3, 

number_rows ) |; 

unsigned_resul t [ 

ci ( 

1 , 

3, 

number_rows ) J 

unsignedml ( 

cl ( 

1, 

3, 

number_rows ) 1 

unsigned_m2l 

break; 

Ci c 

i. 

3, 

number_rows ) 1 ; 



/****************************«********** * <; > **************************************** 

* 

* MODULE NAME: matrix_add () 

* 

* 

* MODULE FUNCTION: 

- Function matrix_add will add two matrices and leave the result in a third matrix. 

* 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

< >..... ...../ 

void matrlx_add( data_type, matrlxl, matrlx2, number_rows, numbercols, matrlx3 ) 

lnt datatype, numberrows, numbercols; 
void ‘matrlxl, *matrix2, *matrlx3; 

( 

sub_matrix( data_type, matrlxl, matrix2, number_rows, number^cols, matrlx3, ADD ); 

I /* of function */ 


*************************************** < .> *************************************** 

MODULE NAME: matrix_sub() 


MODULE FUNCTION: 

Function matrlxsub will subtract two matrices and leave the result In a 
third matrix. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


**************************************•*< >********************************** 

void matrix_sub( datatype, matrlxl, matrix2, number_rows, number_cols, matrix3 ) 

int data_type, numberrows, number_cols; 
void *matrixl, *matrix2, *matrix3; 

{ 

sub_matrix( data_type, matrlxl, matrlx2, number_rows, number_col s, matrix3, 
SUBTRACT ) ,* 

} /* of function */ 



********************< > 

* MODULE NAME: matrix_mult () 


MODULE FUNCTION: 

Function mat rl x_mu 1 t will multiple two matrices and store the result In a 
thi rd matrix . 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


****•«< >***•* ********************* 

void mat-rix_mult ( datatype, matrlxl, matrix2, number_rows, number colsl, 
number_cols2, matrix3 ) 

int data_type, number__rows, number_colsl, number_cols2; 
void *matrixl, *matrlx2, *matrix3; 


register int 1, j, k; 

int *lnt_ml, Mnt_m2, Mnt_result, row; 

float *f loatjnl , *float_m2, *f loat_result; 

double *double_ml, •double_m2, *double_result ; 

short *shortjnl, *short_m2,. *short_result; 

unsigned int * unsigned_ml, *unsigned_m2, * unsigned_result ; 

switch! data_type ) ( 

case INT : int_ml - (int Mmatrixl; 

lnt_m2 - (int *)matrlx2; 

lnt__result - (int *)matrix3; 

for (1-0; 1 < number_rows; 1 + + ) 

for ( j - 0; j < number_cols2; j++ ) | 

int resultl cl ( i, j, number_rows ) 1=0; 
for ( k - 0; k < number_colsl; kt+ ) 

int_result[ cl ( 1, J, number_rows ) J += 

int_ml [ ci ( 1, k, number^rows ) ) 
, int_m2[ ci ( k, j, number_rows ) ) 

1 /* of for */ 

break; 

case FLOAT : float_ml - (float *) matrlxl; 

float_m2 - (float *)matrix2; 
float_result - (float *)matrix3; 

for ( 1 - 0; i < number_rows; i++ ) 

for ( j - 0; j < number_cols2; ) ( 

int_result( ci { i # j, number_rows ) ) - 0.0; 
for ( k - 0; k < number_colsl; k++ ) 

f loat_result ( ci ( i, j, number_rows ) ] +» 

float_ml ( ci ( 1, k, number_rows ) 
float_m2[ ci ( k, j, number_rows ) 

) /* of for */ 

break; 

case DOUBLE : double_ml - (double *) matrlxl; 

double_m2 - (double *)matrix2; 
double_resul t - (double *)matrix3; 
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* 

* 

* MODULE NAME: mat rix_t ranspose 0 


< > 


MODULE FUNCTION: 

Function matrix_t ranspose will transpose a matrix into another matrix. 


1 


break; 

case UNSIGN : unsigned_ml = (unsigned int *)matrixl; 

unsigned_result » (unsigned int *)matrix2; 


/* 

of 


of switch 
function 


for { i * 0; i < number_rows; 1++ ) 
for ( } ■ 0; J < number_cols; j++ ) 

unsigned_result t ci ( j, i, number_row 
unsigned_ml( ci ( i, j 

break; 

*/ 

/ 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


**************************************** <___ > a***************************************/ 

void mat r 1 xtranspose ( datatype, matrixl, number_rows, number_cols, matrix2 ) 

int datatype, number_rows, number_cols; 
void *matrlxl, *matrix2; 


register int i, j; 

int *int_ml, Mnt_result, row, col; 

float * float _ml , * f loatresult ; 

double *doublejnl, "doubleresul t ; 

short *short_mT, • short_result ; 

unsigned int * unsigned_ml, * unsigned_resul t ; 

switch ( datatype ) { 

case INT : int_ml =* (int *) matrixl; 

lnt_result - (int *)matrix2; 

for ( i - 0; 1 < number_rows; i++ ) 
for ( j - 0; j < number_cols; j++ ) 

int_result( ci ( j, i, number_rows ) ) - 

int_ml[ ci ( i, j, number_rows ) J; 

break; 

case FLOAT : float_ml = (float *}matrixl; 

float_result » (float *)matrix2; 

, for ( i » 0; 1 < number_rows; i + + ) 

for ( j = 0; j < number_cols; j++ ) 

float_result [ ci ( j, i, number_rows ) } = 

float_ml( ci ( i, j , number_rows ) ]; 

break; 

case DOUBLE : double_ml ■» (double *) matrixl; 

double_result - (double *)matrix2; 

for ( i = 0; i < number_rows; 1++ ) 

for ( j - 0; j < number_cols; j++ ) 

double_resul t [ ci ( j, i, number_rows ) ) » 

double_ml( ci ( 1, j, numberrows ) ); 

break; 

case SHORT : short_ml «* (short *) matrixl; 

short_result - (short *)matrix2; 

for ( i = 0; 1 < number_rows; i++ ) 

for ( j « 0; j < number_cols; j++ ) 

short_result ( ci { j, i, number_rows ) J - 

short_ml ( ci { 1, j, number_rows ) J; 




s ) ) - 

, number_rows ) ] 




< 

MODULE NAME: martrlx Inverse () 

MODULE FUNCTION : 

Function martrix_inverse will perform the inverse of a matrix. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

‘ ***••■” ****•••* **““•’ ****■• *•**•**• < ..../ 


void matrlx_lnverse ( data_type, matrlxl, numt>er_rows, number_cols, matrlx2 ) 
lnt data_type, number_rows, number_cols; 
void “matrlxl, *matrlx2; 

I 

| /* of function */ 



l 


91 / 08/29 
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•include <stdio.h> 

•Include <sys/stdtypes . h> 

•include <sys/param. h> 

•include <sys/signal .h> 

•define MAX_PROCESS_NAME 256 

•define NO_PROCESS_DEFINED 0 

•define PROCESS_STARTED 01 

struct process data \ 

char pd^p r °cuss_name [ MAX_PROCESS_NAME ); 
pid_t pd_process_id; 
short pd_process_status? 


extern struct process_data process t able ( J ; 






* FILE NAME: status. c 


* FILE FUNCTION: 


This file contains the routines which build and maintain the Show Status 
popup. 


SPECIFICATION DOCUMENTS: 


/home/ pro ject/3531/Docu/GCB. spec.doc 


* FILE MODULES: 

• 

* bul ld_stat us_popup {) 

* cbr show status () 


- builds the show status popup 

- processes the user's key presses and displays the popup 


MODULE NAME: build_stat us_popup () 


MODULE FUNCTION: 


This routine builds the Show Status popup. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void build_stat us_popup ( parent ) 
Widget parent; 


•Include <stdlo.h> 

•include <sys/file.h> 
•include <sys/types . h> 
finclude <sys/time.h> 
linclude <dlrent.h> 

finclude <X1 1 /Int rinsl c. h> 
linclude <X1 l/StringDefs.h> 
linclude <Xm/Xm.h> 

linclude "gcb.h" 
linclude "cbr.h" 
linclude "constant s. h" 
linclude "widgets. h" 
•include "element file.h" 


dlg_dis_status ~ cr_popup( NULLS, parent, "Display Status" ); 

FormW - cr_forra( NULLS, digdisstat us, NULL, NULL ); 
set_att r ibs ( FORM, FormW, 650, S50, XmRESlZE_NONE ); 


* Create the status labels. 

•/ 


x - 3; 

crlabel ("*, FormW, "Posit ion Name:", 0,x,-2,5, 
cr_label ("", FormW, "Comp Name:", 0,x,-2,5, 
cr_label {"*, FormW, "Element Name:", 0, x, -2,5, 
cr_label FormW, "Element Type:", 0 v x, -2,5, 
cr_label ("", FormW, "Current Directory:", 0, x, -2,5, 
cr_label FormW, "Displayer File:", 0,x,-2,5, 
cr_label ("*, FormW, "Error Log File:", 0, x, -2,5, 
cr_label {"", FormW, "Library Path:", 0,x,-2,5, 
cr_label ("", FormW, "Macros Path:", 0,x,-2,5, 
cr_label ("", FormW, "Object Table:", 0,x,-2,5, 
cr_label ("", FormW, "W/S Global Table:", 0,x, -2,5, 
cr_label ("", FormW, "Symbol Snap:", 0,x,-2,5, 
cr_label ("*, FormW, "Audit: ", 0, x, -2, 5, 
cr_label FormW, "Target Language:", 0,x,-2,5, 
cr_label (•", FormW, "User Functions Path:", 0,x,-2,5, 
cr_label FormW, "User Name:", 0,x,-2,5, 
cr label ("", FormW, "Time", 0, x, -2, 5, 
cr_label (“", FormW, "Date", 0, x, -2,5, 

x = 3; 

lbl va l pname = cr_label ("", FormW, " 0, x, -2, 30, -2) 
lbl val_cname - cr_label FormW, " 0, x, -2, 30, -2) 
lblvalename - cr_label FormW, 0, x, -2, 30, -2) 
lbl_val_type - cr_label ("" , FormW, " ", 0, x, -2, 30, -21 
lbl_val_cwd - cr_label FormW, 0, x, -2, 30, -2) 
lblvalcf low - cr_label ("", FormW, 0, x, -2, 30, -2) 
lbl_val_err_file - cr_label FormW, 0, x, -2, 30, -2) 
lbl^va llibpath » cr_label ( , FormW, "", 0, x, -2, 30, -2) 
lbL_val_mac_path - cr label , FormW, " 0, x, -2, 30, -2) 


x 4- 4 
x 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 
X 4- 4 


x 4- 4; 
x 4- 4; 
X 4- 4; 
X 4- 4; 
x 4- 4; 
x 4- 4; 
x 4- 4; 


PRECEDING BLANK NOT FILMED 






lbl 

val 

_msid 

- 

cr_ 

label 

FormW, "",0,x,~2,30, 

-2); 

X 

+ - 

4; 

lbl 

va 1 

ws glob 

- 

cr_ 

label 

FormW, 0, x, -2, 30, 

-2); 

X 

♦ » 

4; 

lbl 

"val" 

_snap 


cr~ 

label 

"*', FormW, "",0,x,-2,30, 

-2); 

X 

+ “ 

4; 

lbl 

val 

_audit 


cr~ 

label 

FormW, M ",0,x,-2,30, 

-2); 

X 

f- 

4; 

lbl 

val' 

language 

- 

cr_ 

label 

, FormW, HM ,0,x,-2,30, 

-2); 

X 

+ *= 

4; 

lbl 

va 1 

func path- 

cr~ 

label 

FormW, "",0,x,-2,30, 

-2); 

X 

+ “ 

4; 

lbl 

vaf 

user 

- 

cr~ 

label 

"" , FormW, •*", 0, x, -2, 30, 

-2); 

X 

+= 

12 

lbl 

val 

_time 

- 

cr_ 

label 

"* , FormW, "**,0,x,-2,30, 

-2); 

X 


4; 

lbl 

va 1 

date 

- 

cr~ 

label 

FormW, " ", 0, x, -2, 30, 

-2); 





cr_separator { NULLS, FormW, 90, IGNORE, 2, 98 ); 


CancelW - cr_command{ NULLS, FormW, "Close**, cbr show_status, CANCEL ); 
HelpW - cr_command { NULLS, FormW, "Help", cbr^help, STATUS_HELP) ; 

set_posi t ion ( CancelW, 95, IGNORE, 15, IGNORE); 
set_posit Ion ( HelpW, 95, IGNORE, 70, IGNORE); 


/MO*.....*...*.* >«***.*»*•*****••**«*** **»**«•*»•*«** **** 

* MODULE NAME: cbr_show_status ( ) 

* MODULE FUNCTION: 

* This routine pops up the Show Status popup. This routine also processes the 

* user's key presses in the popup. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***********«****************************< ___>****************************************/ 

XtCallbackProc cbr _show_status { w, client_data, call_data ) 


Widget w; 

int clientdata; 

caddr_t call_data; 

( 

char dstr(40), 

tstr (40] ; 
timet clock; 

if (Mode !- Ed it Symbol) 
return; 


/* 

* User wants to abort from viewing the status popup, take down the popup. 
V 


if ( cllent_dat a « CANCEL ) 

( 

XtUnmanageChild ( dlg_dis_status ); 
return; 

/* 

* Get the time and date from the system to display to the user. 

•/ 

clock ** time( NULL ); 

strftime( dstr, 39, *%a, %h %e, %Y", localt ime (&clock) ); 
strftime( tstr, 9, *%T", localt ime (iclock) ); 

setlabel { lbl_val_date, dstr ); 
setlabel ( lbl_val_t ime, tstr ); 

/* 

* Load and show the Status popup. 

V 

load_curr_di r { Cwd ); 
setlabel ( lblvalcwd, Cwd ); 

If ( Snap ) 

set_label ( lbl_val_snap, "On" ); 

else 

set^label ( lbl_val_snap, "Off" ); 




If ( Audit: ) 

set_label ( 1 bl _val_aud 1 t , “On" ); 

else 

set_l3bel ( lbl_val_audit, “Off" ); 


break? 

break? 

break; 


switch ( TargetLanguaye ) 

\ 

case C : set_label( lbl_val_language, "C“ ); break; 

case MOAL : set_label( lbl_val_language, “MOAL" )? break; 

case UIL : set_label( lbl_val_language, “UIL“ ); break; 

1 


switch ( Element Type ) 

1 

case ELEMENT : set_label ( lbl_val__type, "Comp Element" ) ? 

case LIB : set_label ( lbl_val_type, “Library Element" ); 

default ; set_label ( lbl_val type, NULLS ); 

) 


set_label ( lbl__val_pname, pPosltion )? 

set_label( lbl_val_cf low, OlsplayFlle ); 

set_label( lbl_val_cname, CompFile )? 

set_label( lbl_val_ename, ElementFlle ); 

set_label ( lbl__val_err_f i le, LogFlle )? 

set_ label ( lbl_val_f unc_path, UserFuncsPat h ); 

set_label ( lbl_val_l ib_path, LibPath ); 
set^label ( lbl_val_mac_path, MacrosPath ); 

set_label ( lbl_val_msid, MSIDTable )? 

set labol ( lbl_val_ws_glob, WSGlobals ); 

set label ( lbl _val user, UserName ); 

XtManageChild ( d lg_dis_status ); 

) 




sub.menus.c 



***** *-*...******.*< ****** *********** ****** 

* FILE NAME: sub_menus.c 

* FILE FUNCTION: 

* This file contains the routines which create the various Expression menu submenus: 

* Matrix submenu 

* Trig submenu 

* This file also contains the routines which process these menus. 

* SPECIFICATION DOCUMENTS: 

* /home/pro ject/3531/Docu/GCB. spec.doc 


FILE MODULES: 

cbr_matr ix () 
cbr_quaternion () 
cbr_trig () 
setup_mat r i x_menu () 
setup_trig_menu {) 


linclude <stdio.h> 

•include <X11/Intrinsic. h> 
linclude <X1 1/St ri ngDefs . h> 
linclude <Xm/Xm.h> 

•include <Xm/Form.h> 

linclude "gcb.h" 
linclude "widgets. h" 
•include "constant s. h H 
linclude “menu.h" 
linclude "symbol. h" 
linclude "gcb_parse. h" 


- process the user's button presses in the Matrix menu 

- process the user's button presses in the Quaternion menu 

- process the user's button presses in the Trig menu 

- build the Matrix menu 

- build the Trig menu 



>**************************•«****«** 

* MODULE NAME: cbr_matrix{) 

* MODULE FUNCTION: 

* This routine performs two functions: 

* 1) display the Matrix menu when the user picks Matrix op during expressions 

* 2) add the matrix op to the expression when one is selected 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*********«**«****«*******«******«*******< 

XtCallbackProc cbr_matrix{ w, client data, call_data ) 

Widget w; 

caddr_t client data, 

ca 1 ldata; 

1 

XmTextPosition pos = XmTextGetInsertionPosltion( scr_expr ); 

switch ( (int) cllent_data ) 
i 

case MS HOW : 

/* 

* Take down the math/logical elements frame and put up the matrix frame. 

* Set the Mode to MatrixMenu so the CANCEL button will know to restore 

* the math frame. Make sure we "return ()* because there is code past 

* the "switch" which only relates to adding to the expression. 

*/ 

XtUnmapWidget { f rame_mat h^menu ); 

XtMapWidget { f rame_matrix_jnenu ); 

OldMode - Mode; 

Mode ■ MatrixMenu; 
return; 



case 

M 

ADD 

: XmTextlnsert ( 

scr 

expr. 

pos, 


ADD" 

) ; break; 

case 

m" 

SUB 

: XmTextlnsert ( 

scr 

expr, 

pos. 


SUB" 

) ; break; 

case 

m ; 

[MULT 

: XmTextlnsert ( 

scr_ 

expr, 

pos, 

N 

MULT" 

); break; 

case 

m~ 

I DENT 

: XmTextlnsert ( 

scr 

expr, 

pos, 

N 

IDENT" 

); break; 

case 

m[ 

[iNV 

: XmTextlnsert ( 

scr 

expr, 

pos. 

M 

INVERSE" 

); break; 

case 

m[ 

[tran 

: XmTextlnsert ( 

scr 

expr. 

pos. 

M 

TRANSP" 

) ; break; 

case 

m[ 

[cross 

: XmTextlnsert ( 

scr 

expr, 

pos, 


CROSS" 

); break; 

case 

M~ 

[dot 

: XmTextlnsert { 

scr_ 

expr. 

pos. 

" 

DOT" 

); break; 


/* 

* Now take down the matrix menu, and parse the expression. 
V 

XtUnmapWidget ( f rame_matrix_menu ); 

XtMapWidget ( f rame_math_menu ); 

Mode - OldMode; 
doparse () ; 



Mb 33:48 



* * ****•< > 

* MODULE NAME: cbr_quaternion 0 


MODULE FUNCTION: 

This routine is just a stub routine for now. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 . - 07/17/91 

Release 1.02 - 08/28/91 


XtCallbackProc cbrquaternion ( w, cllent_data, call_data ) 

Widget w; 

caddr_t clientdata, 

call_data; 


user ack ("Sorry, the Quaternion functions are yet Implemented in the CCB"); 

1 





MODULE NAME: cbr_trig () 


MODULE FUNCTION : 


This. routine performs two functions: 

1) display the Trig menu when the user picks Trig op during expressions 

2) add the Trig op to the expression when one is selected 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


***»< >* 


XtCal IbackProc cbr_trig ( w, client_data, call_data ) 


Widget 
caddr t 


cl lent data, 
ca l l_data; 


XmTextPosit ion pos » XmTextGet Insert ionPosit ion ( scr_expr ); 

switch ( (int) client_data ) 

( 

case T_SH0W : 

/* 

* Take down the math/logical elements frame and put up the trig frame. 

* Set the Mode to TrigMenu so the CANCEL button will know to restore 

* the math frame. Make sure we "return ()" because there is code past 

* the "switch" which only relates to adding to the expression. 


XtUnmapWldget { f rame_mat h_menu ); 
XtMapWidget ( f rame_trig_menu ); 
OldMode “ Mode; 

Mode = TrigMenu; 
return; 


case 

T 

COS 

XmText Insert ( 

scr_expr, 

pos. 

M 

cos" ) 

; break 

case 

T~ 

~AC0S 

XmText Insert ( 

scr_expr. 

pos. 

■ 

acos" ) 

; break 

case 

T 

"tan 

XmText Insert { 

scr_expr. 

pos, 

* 

tan" ) 

; break 

case 

T* 

"a TAN 

XmTextlnsert ( 

scr_expr, 

pos. 

" 

atan" ) 

; break 

case 

t" 

~SIN 

XmText Insert ( 

scr_expr. 

pos, 

" 

sin" ) 

; break 

ca se 

t‘ 

"asin 

XmTextlnsert ( 

scr_expr. 

pos, 

" 

asin" ) 

; break 


Now take down the trig menu, and parse the expression. 


XLUnm.ipWi dgel ( I r. lino l.rly_mo»u ); 
XtMapWidget ( f ramejnat h_menu ); 
Mode - OldMode; 
do parse () ; 


MODULE NAME: setup_mat r lx_menu {) 

MODULE FUNCTION: 

This routine builds the Matrix menu. The Matrix menu overlays the logical 
expression menu when the user chooses to add a matrix operation to an expression 

REVISION HISTORY; 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

ft*********************************** *•< >* l*t*M»*#»...»**#».*»*»**»*****#Mti, 


/ 


I 


w[41 

- cr 

command ( 

NULLS, 

rc_mat, * 

Inverse 

", cbr_matrix. 

M_ 

I NV 

-(5) 

- cr 

command ( 

NULLS, 

rc_mat, " 

Transpose 

", cbr_matrix, 

m" 

TRAN 

w[6) 

- cr 

command ( 

NULLS, 

rc_mat, ■ 

Cross Product 

", cbr_matrix, 

m" 

"cross 

«( 7] 

- cr 

command ( 

NULLS, 

rc_mat, " 

Dot Product 

", cbr_matrlx. 

m' 

"dot 


/* 

* Set the state of the buttons to "active". 

*/ 


for { n D 0; n<8; n»* ) 
i 

XtSetArg( args[0), XmNbackground, 

(XtArgVal) WhltePixel (display. Default Screen (display) ) ); 
XtSetValues( w[n), args, 1 ); 

} 



void setup_matrix_menu ( parent, under ) 
Widget parent, under; 


Arg args [5]; 

Widget w 1 8 1 ; 
int n; 

/* 

* create frame to hold matrix menu widgets 
*/ 

frame_mat rix_menu • cr — frame ( NULLS, parent, NULL, under); 

XtSetArg{ args[0), XtNmappedWhenManaged, FALSE ); 

XtSetValues( f rame_matrix_menu, args, 1 ); 

/• 

* create form to hold rowcols and labels 
*/ 

n “ 0; 

XtSetArg( args[n), XmNwidth, 278 ); n++; 

XtSetArg( args(n), XmNheight, 464 ); n++; 

f rm_matrlx_menu - XmCreateForm ( frame_mat rix_menu, NULLS, args, n) ; 
XtManageChlld ( frm_matrix_menu ); 

/• 

* create labels in matrix menu 
V 

cr_label ( NULLS, f rnwnat rix_menu, "GCB Elements", 1, 1, 7, l, 97 ) ; 
cr_label ( NULLS, f rnwnat rix_menu, "Matrix Functions", 0, 25, 20, 1, 99 ); 

/* 

* create rowcol to hold matrix operation buttons 

*/ 

cr_separator ( NULLS, frm_mat rlx_menu, 29, 30, 1, 97 ); 
rc_mat - cr_rowcol ( NULLS, f rnwnat rix_menu, 1, XmVERTICAL, NULL, NULL); 
set^position ( rc_mat, 33, IGNORE, 25, IGNORE); 

w[0| .*■ cr__command( NULLS, rc_mat , ” Add 

w f 1 1 - cr_command( NULLS, rc_mat, " Subtract 

w[2) - cr_command( NULLS, rc_mat, " Multiply 

w ( 3 ] - cr_command( NULLS, rc_mat, *' Identity 


", cbr_matrix, M_ADD ); 
", cbrmatrix, M_SUB ); 
", cbr_matrlx, M_MULT ) ; 
", cbrjnatrlx, M_IDENT ); 


I ifcS* 


sub menus.c 


y********* * * * * ********** **************** *^_____^ 
* 

* MODULE NAME: setup trig menu () 

* !' 

* MODULE FUNCTION: 


This routine builds the Trigonometric menu. The Trigonometric menu overlays the 
logical expression menu when the user chooses to add a Trig operation to an 
expression. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 | 

* Release 1.02 - 08/28/91 



void setup_trlg_menu ( parent, under ) 

Widget parent, under; 


cbr_trig, 
cbr_trlg, 
cbr_trlg, 

/* 

* Set the state of the buttons to "active”. 

*/ 


w[3| ■ cr_command{ NULLS, rc_trlg, * Arc Tangent 
w(4) » cr_command( NULLS, rc_trlg, * Sine 

w(51 * cr command) NULLS, rc_trig, * Arc Sine 


for ( n=0; n<6; n++ ) 

1 

XtSetArg! args[0), XmNbackground, 

(XtArgVal) WhltePixel {display, DefaultScreen (display) ) ) ; 
XtSetValues! w|n), args, 1 ); 

) 


Arg args [5 |; 

Widget w[6); 
lnt n; 

/* 

* create frame to hold trig menu widgets 

*/ 

frame_trlg_menu » cr_frame( NULLS, parent, NULL, under); 
XtSetArg! args[0), XtNmappedWhenManaged, FALSE ); 
XtSetValues! frame_trlg_menu, args, 1 ) ; 

/* 

* create form to hold rowcols and labels 

•/ 


n = 0; 

XtSetArg! argsfn], XmNwldth, 278 ); n++; 

XtSetArg! args[n), XmNhelght, 464 ); n++; 

frm_trlg_menu - XmCreateForm ( frame_trlg_menu, NULLS, args, n) ; 
XtManageChllc) ( frm_trlg_menu ); 


/* 

* create labels In trig menu 

*/ 


cr_label ( NULLS, f rm_trlg_menu, "GCB Elements", 1, 1, 7, 1, 97 ); 

cr_label ( NULLS, frm_trlg_menu, “Trigonometric Functions", 0, 25, 28, 1, 99 ); 


/* 

* create rowcol to hold trig operation buttons 

*/ 

cr_separator ( NULLS, f rm_trlg_menu, 29, 30, 1, 97 ); 

rc_trlg - cr_rowcol ( NULLS, frm_trlg_menu, 1, XmVERTICAL, NULL, NULL) ; 


set_ 

position ( rc_trig, 33, 

, IGNORE, 

25, 

IGNORE) ; 





w[0| 

*» cr_command ( NULLS, 

rc trig, 

M 

Cosine 

", cbr 

trig. 

T_ 

cos 

w[l) 

- cr_command( NULLS, 

rc_t rig. 

M 

Arc Cosine 

", cbr 

trig. 

t' 

ACOS 

w [ 2] 

■ cr_command ( NULLS, 

rc_trig. 

" 

Tangent 

", cbr 

trig. 

t‘ 

TAN 



) ; 
>; 
) ; 




T_ATAN ) 
T_SIN ) 
T ASIN ) 



< > 



FILE NAME: symbol. h 


* FILE FUNCTION: 

* This file contains the constants and data strucutres used to build the GCB 

* symbol tables. The symbol table is Implemented as a linked list of symbols. 

* Procedure labels are entries on the primary linked list with subordinate 

* symbol tabic lists within each procedure. 

* REVISION HISTORV : 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 06/28/91 

* * >. ................................ 

•define MAX SYMBOL SIZE 128 


* Constants for symbol table entries. Octal bit masks for symbol table 

* attributes. 

* 

* Constants for data types of either variables or constants. 


•define SYMBOLJTYPE 077 

•define VARIABLE 01 

•define LOCAL_VAR 02 

•define GLOBALVAR 09 

•define PROCEDURE 010 

•define WS_GLOBAL 020 

•define WS_OBJECT 040 

•define CHAR 0100 

•define SHORT 0200 

•define INTEGER 0400 

•define UNSIGNED 01000 

•define FLOAT 02000 

•define DOUBLE 04000 

•define INTRINSIC 0100000 

•define INSTALLED 0200000 

•define C0MP_REF 0400000 

•define NOT_IN STALLED 0S77777 

•define LOOKUP_ONLY 0 

•define SYMBOL_DATA TYPE 07700 

•define SYMBOL_ATTRIBUTES 077700 

•define MATRIX 010000 

•define MAX_DIMENSIONS 4 

•define SUB1 0 

•define SUB2 1 

•define SUB3 ' 2 

•define SUB4 3 


struct symbol_entry 1 

Int se_type; 

short se_num dimensions; 





I 91/08/29 
: 10:t4:43 


symboLtable.c 



/A************************************* A * < _> 

A 

* FILE NAME: symbol_t able . c 

* 

* FILE FUNCTION; 


This file contains the routines which add to and lookup in the symbol table. 

The symbol table is stored as a linked list which will contain all entry points 
for a given COMP. The symbol table is structured as a single rooted, linked list 
with all global entry points defined in this root list; any local variables; those 
variables defined within an element, are stored in a similarly structured link list 
which is connected to the root linked list through a pointer. This structure allows 
the symbol table routines to be recursive In nature since each level of the symbol 
table utilizes identical C structures. Although the GCB does not allow nested 
elements, the symbol table structure defined and Implemented would allow nesting. 


FILE MODULES: 


/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA *<.. — > AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

A 

* MODULE NAME: copy_element_to_symbol_table () 

A 

* MODULE FUNCTION: 


This routine is called in element_file.c to copy an existing Element's symbol 
table information to the symbol table for a new Element's name. This routine 
is called when the user copies an existing Element to another Element. This 
routine will make sure the local variables and global variable use counts are 
properly updated for the new element. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


add_symbol_ent ry 

copy _element_to_symbol_t able 

del_elem_from_symbol_table 

decrement_symbol_use_count 

increment_symbol_use_count 

lookup_symbol 

1 ook up_l oca l_var list 

prlnt_symbol_table 

remove_symbol_entry 

rest ore_symbol_l eve 1 

return_symbol_type 

ret urn_matrix_at tributes 

ret u rn_symbo l_a 1 1 r ibut es 

set_sym_attribs 

symbo 1 _t abl e_i n 1 t 


- add a symbol entry to the symbol table 

- add a new element to the symbol table 

- delete an element from the symbol table 

- decrement a symbol's use count 

- increment a symbol's use count 

•* determine if a symbol is in the symbol table 

- retrieve the local variable list for a procedure 

- print the contents of the symbol table 

- remove an entry from the symbol table 

- read a symbol table entry from disk 

- return the type (e.g. variable) of a symbol 

- return the attributes (e.g. data type) of a matrix 

- return the attributes (e.g. data type) of a symbol 

- sets the symbol table attributes of an entry 

- initialize the symbol table to default values 

A A A A< >AAAAAA*A*AA*AAAAAAAAAAAAAAAAAAAAAAAAAAAA/ 


•include <stdio.h> 

•include <X11/Intrlnslc.h> 

•include <Xm/Xm.h> 

• include “geb.h** 

•include * symbol. h M 
•Include "var_li§t .h M 

/* 

* The following global variable serves as the root of the symbol table. The variable 

* is initialized when a new comp is initiated. 

*/ 

struct symbol_entry * symbol_table; 


int copy_element_to_symbol_table ( OldElement ) 
char "OldElement; 

i 

struct symbol_entry 


struct Ilst_elem 
int sym; 


/* 

* See if the new Element name is in the symbol table, if it Is not, add the new 

• Element name to the symbol table. 

*/ 

if (! (struct symbol_entry *) lookup_symbol (NULL, ElementFlle) ) 
if ( add_symbol_entry(NULL, ElementFlle, PROCEDURE, 0,0) ) 

error_handler ( ERR_ADD_SYMBOL, "copy_element_to_symbol_table" ); 


"new. 

/* 

ptr 

to 

new 

Element name symbol entry 

*/ 

•newEntry, 

/* 

ptr 

to 

new 

local 

variable symbol entry 

*/ 

•oldEntry, 

/* 

ptr 

to 

org 

local 

variable symbol entry 

*/ 

•org; 

/* 

ptr 

to 

original 

Element name symbol entry 

*/ 


•tllst, 

•vlist; 


/* 

* Locate the original Element name in the symbol table. 

*/ 


if (! (org = lookup symbol (NULL, 01 dElement ) ) ) 

I 

elog (1, "Copy Element: couldn't find original element in symbol table"); 
return ( ERR ) ; 

I 


/* 

* Traverse the list of local variables and add them to the new Element's 

• list of local variables. 

*/ 


org - org->se_local_vars; 
while ( org !- NULL ) 

( 


PRECEDING PAGE BLANK NOT FILMED 


symboLtable.c 



/* 


* Add a new entry Into the symbol table for the current 

* from the original Element. 

*/ 


loca 1 


variable 


if ( add_symbol_entry (El ementFile, 

org->se_symbol , 
org->se_type, 
org->se_num_di mens Ions, 
org->se_subs ( SUBl ), 
org->se_subs I SUB2 ) , 
org->se_subs ( SUB3 ), 
org->se_subs ( SUB4 ]) ) 

error_handler { ERR_ADD_SYMBOL, "copy_element_to_symbol_table" ); 


Set use count to the original entry's use count. Locate the original 
entry and then locate the new entry. Then set the new entry's use count 
to the original's use count. 


if (! (oldEntry ■ lookup_symbol (OldElement , org->se_symbol) ) ) 
i 

elog(l, M Copy Element: couldn't find original local var In symbol table"); 
return ( ERR ) ; 

) 

if (! (newEntry - lookup symbol (ElementFl le, org->se_symbol ) ) ) 

l 

elog(l, M Copy Element: couldn't find new local variable in symbol table"); 
return ( ERR ) ; 

) 

newEnt ry->se_use_count - oldEnt ry->se_use_count ; 

/* 

* Get a pointer to the next local variable in the list. 

*/ 


(Symbol Map I sym) .symbol _type — START) ) 
increment_symbol_use_count ( NULL, Symbol _Map( sym) . text ); 


/* 

* If the symbol is an IF or SET, check the expression for global vari 

* references . 

*/ 

else if ( (Symbol_Map( sym| .symbol_type — IF) M 
(Symbol_Map( sym) . symbol_type — SET)) 

( 

tlist * vlist - bulld_va relist ( Symbol_Map(sym) . Sym. If Sym. comp_expr 

ElementFlle ); 


while ( tlist ) 

I 

if ( (is_local (t llst->var_name) & GI.OBAL_VAR) ) 

increment_symbol_use_count ( NULL, tl ist->var_name ); 
tlist - tlist->next; 

) 

if ( vl 1 st ) 

dest roy_var_llst ( vlist ); 

\ 


return ( OK ); 


org - org->se__next ; 
) 


/• 

* Loop through each of the symbols locating references to global variables. 

* Increment, the use count of each global variable we encounter. 

V 

for { sym-0; sym<MAX_S YMBOLS ; sym-M- ) 

I 


/* 

* Ignore empty symbols. 

V 

if ( Symbol_Map(sym) .symbol_type NONE ) 
continue; 

/• 

* If the symbol is a GOTO, START, or STOP, increment the use count of the 

* Element /Comp name. 

*/ 

if ( ( Symbol _Map( sym ). symbol _type == GOTO) || 

(Symbol_Map Isym) . symbol_type — STOP) )) 



symbol. 


MODULE NAME: del_elem_from_symbol_table <) 

MODULE FUNCTION: 


This routine is called to delete an Element from the Symbol table. The 
specified Element file is opened up and all of the expressions are located 
within the Element so that any references to global variables can be 
decremented in the Symbol table. Also, any CALLS, ACTIVATES, or STOPS 
are located so that the use count of the Element names can be updated. 

Once the symbol table has been updated, then the Element and its local 
variables are removed from the symbol table. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


*«**«*«****«***«*********,,**,«,***«*«< >***•*■ 

int del_elem__from__symbol_table ( el_file, gel_flle ) 


char 


FILE 

char 


*el file, 
*gel~f i le; 


‘ip; 


/* element name without path or extension */ 
/* element name, path and extension */ 


elementName [MAX_NAME] , 
expr [MAXTEXT) ; 
lnt count - 0, 
rc, 

symbol_type; 

struct symbol_entry ‘symEntry; 
struct 1 ist_elem *tlist, 
•vlist ; 


* Open the Element file to be deleted and locate any global variable references 

* so we can decrement their use counts. 

*/ , 

if (! (fp = fopen (gel_f i le, "r" ) ) ) 

{ 

elog (3, "Couldn' t open Element file in del_elem_f rom_symbol_table () : %s", 
gel_file) ; 

/* 

* Couldn't open file, remove the Element name and all of its local variables 
' * from the symbol table. 

*/ 

if (! (symEntry *» lookup_symbol (NULL, el_file) ) ) 

elog (1, "Delete Element: couldn't find Element name in the symbol table"); 

else 

remove_symbol_ent ry ( NULL, symEntry ); 

return ( ERR ); 

) 


table.c 

/* 



* Locate a graphical symbol which will contain an expression or Element fil 

* name . 

V 

while ( (rc = fscanf {fp, "%d", &symbol_type) ) != EOF ) 

{ 


* If we don't get an Integer, dump the rest of the line. If we 

* get a LINE SEGMENT indicator, we are finished with the file 

* because the line info follows the symbol info. 

*/ 

if ( rc ** 0 ) 

( 

fscanf ( fp, "%*(*\nl" ); 
cont inue; 

) 


If ( symboltype 
break; 


SEGMENT KEY ) 


See if we have a symbol which may contain a reference to an 
element file or may contain references to variables. If we find 
a symbol with a reference to an Element, decrement the use count 
of the Element name. If we find a symbol with an expression, build 
list of the variables In the expression, and then decrement the use 
count of the global variables in the expression. 


switch ( symboltype ) 

( 

case START: 
case STOP: 
case GOTO: 

fscanf { f p, " % * u %*d %*d %*d %*d %*d %*d %*d %*d %*d %*d" ); 
read_element_str ( fp, elementName ); 
fscanf ( fp, "%M A \nJ" ); 

/•DEBUG* / 

elog (3, "del_sym_tab; elementName: %s", elementName) ; 

decrement_symbol_use_count ( NULL, elementName ) ; 

break; 

case SET: 
case IF: 

fscanf ( f p, " % * u %*d %*d %*d %*d %*d %*d %*d %*d %*d %*d M ); 
read_element_str ( fp, NULL ); 
fscanf ( fp, "%*u %*u" ); 

if ( symbol_type == IF ) 

fscanf ( fp,"%*u %*u %*d %*d %*d %*d" ); 

/* 

* Read the symbol's comp expression. 

*/ 


read_element_str ( fp, NULL ) ; 
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read_element_str ( fp, expr ); 
fscanf ( fp, “%*(' > \n]" ); 

/■DEBUG"/ 

elog (3, "del_sym_tab: expression: »s“,expr); 

/• 

• Now build a list of Che variables in the expression. 

*/ 

tllst - vllst - build_var_list ( expr, el_flle ); 

/* 

• Loop through the list of variables and decrement the use count 
■ of each global variable. 

*/ 

while ( tllst ) 




* MODULE NAME: lookup_symbol (] 

* MODULE FUNCTION: 

* Function lookup_symbol will search the symbol table for the specified entry and 

* return a pointer to the entry If found. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 




if ( (lslocal (tlist->var_name) i GLOBALVAR) ) 

decrement_symbol_use_count ( NULL, tl lst->var_name ); 
tllst - tlist->next; 

I 

/* 

* Freed the list of variables. 

•/ 

If 1 vllst ) 

descroy_var_llst ( vllst ); 
break; 

default : 

fscanf ( fp, “%* [ A \n| “ ) ; 
continue; 

I 

) 

/■ 

* Close the element file. 

•/ 

fclose( fp ) ; 

! 

/* 

■ Remove the Element name and all of Its local variables from the symbol 

* table. 

V 

If (! (symEntry - lookup_symbol (NULL, elf 1 le) ) ) 

( 

elog (1 , “Delete Element: couldn't find Element name In the symbol table”); 
return) ERR ); 

I 

remove_symbol_entry ( NULL, symEntry ); 
return! OK ); 


struct symbol_entry * lookupsymbol ( parent, name ) 
char ‘parent, “name; 

I 

register lnt not_done; 
struct symbolentry Hemp; 

/* 

* Initialize temp to point to the root of the symbol table. 

*/ 

temp « symbol_table; 

/• 

* If a parent was specified, first find the procedure entry In the symbol table. 

*/ 

If ( parent !*> NULL ) ( 

/* 

* Scan down the symbol table looking first for a PROCEDURE entry and then 

* determine If the symbol can be found. 

*/ 

not_done - 1; 

while ( not_done fi& temp ) 

If ( ( temp->se_type i PROCEDURE ) it 

( strcmp( temp->se_symbol , parent > — — 0 ) > ( 

temp * temp->se_local_vars; 
not_done - 0; 

I 

else 

temp = temp->se_next; 

/* 

* If temp -» NULL then that Implies the specified parent was not found. If 

* this Is the case then NULL should be returned. 

*/ 

if ( temp — NULL ) 
return ( NULL ) ; 

1 

/* 


nmtB 
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* Scan the symbol list looking for a match. If the match is found return a 

* pointer to the entry. 

*/ 

not_done = 1; 

while { not_done && temp ) 

if ( strcmp( temp->se_symbol , name ) — 0 ) 
return ( temp >; 

else 

temp - temp->se_next ; 

/* 

* If the symbol had a parent specified and no match was found in the local 

* variable list of the procedure, determine if the symbol can be resolved as 

* a global variable. 

*/ 

if ( parent != NULL ) ( 
temp - symbol_table; 
not done - 1; 

while ( not_done && temp ) 

if ( strcmp< temp->se_symbol, name ) -*» 0 ) 
return ( temp ); 

else 

temp - temp->se_next ; 

) 

/* 

* Return a NULL as no match was found. 

V 

return ( NULL ); 


MODULE NAME: lookuplocalvarlist () 


MODULE FUNCTION; 


Function lookup_local_varllst will search the symbol table for the specified parent, 
when found, the function will return a pointer to the list of local variables. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


***************************«*********< >***»< 

struct symbol_entry Mookup_local_varl 1st ( parent ) 
char *parent; 


struct symbol_entry *temp; 

/* 

* Initialize temp to point to the root of the symbol table. 


temp ® symbol_table; 

/* 

* If a parent was specified, first find the procedure entry in the symbol table. 

•/ 

if ( parent ) 

/• 

* Scan down the symbol table looking first for a PROCEDURE entry and then 

* determine if the symbol can be found. 

V 

while ( temp ) 

If { ( temp->se_type & PROCEDURE ) 

{ strcmp( temp->se_symbol, parent ) -- 0 ) ) 
return ( temp->se_local_vars ) ,* 

else 

temp = temp->se_next ; 

/* 

* Either an invalid parent or no parent was specified. Return NULL. 

*/ 

return ( NULL ); 



* MODULE NAME: add_symbol_ent ry () 


* MODULE FUNCTION: 

* 

* function add^symbolent ry will add an entry to the symbol table. The function 

* expects three arguments: 

* 

* PARENT: The name of the enclosing logical block (i.e. NULL for a global 

* variable). If the variable Is local to a procedure then the PARENT 

* will be the procedure name where the declaration occurred. 

* 

* NAME: The name of the symbol to be entered. 

* 

* ATTRIBUTES: The attributes of the symbol table entry to be made. 

* The function will return the following: 

* 

* 0: Success 

* -1: No memory 

* -2: Unknown parent 

* -3: Duplicate entry 

* 

* REVISION HISTORY: 

« 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 00/28/91 

* 



int add_symbol entry ( parent, name, attributes, num_dimensions, subl, sub2, sub3, sub4 
) 

char ‘parent, ‘name; 

int attributes; 

short num^dimenslons , subl, sub2, sub3, sub4; 


temp->se_next - NULL; 
temp->se _local_vars - NULL; 

/* 

* Set the LOCAL/GLOBAL bit based on whether or not a parent exists. If the 

* variable Is a global variable, determine if it is either a workstation 

* global or an object. 

V 

if i attributes 4 VARIABLE ) ( 

/* 

* Determine if the variable is a global variable. 

•/ 

if ( parent =» NULL ) ( 

temp->se_type | “ GLOBAL_VAR; 

/* 

* Determine if the variable is either a workstation global or an 

* object. 

*/ 

if ( st. rnemp ( name, "WS_ H , 3 ) 0 ) 

temp->se_type |= WS_GLOBAL; 
else if { name (0) — 'V' ) 

temp->se_type |- WSOBJECT; 

I 

else 

temp->sc_type |- LOCAL_VAR; 

i 

I 

else 

return ( NO_M EMORY ); 

/* 

* If the entry is the first symbol in the symbol table, then handle the special 

* case and return. 

V 


register int not_done; 

struct symbol_entry ‘temp, “symbol head; 

/* 

* If the symbol exists then do not allow it to be added. 

*/ 

if { lookup_symbol ( parent, name ) ) 
return ("~DUPLICATE__ENTRY ); 

/• 

* Allocate space for the symbol and establish all default (initial values). 
*/ 

if { temp - (struct symbol_entry *)malloc( sizeof( struct symbol_entry ) ) ) { 
s t rcpy ( t emp-> se_s ymbo 1 , name ) ; 
temp->se_type - attributes; 
temp->se_use_count • 0; 

temp->se_num_dimensions - num_di mens ions; 
temp->se_subs( SUBl ] - subl; 

temp->se_subs I SUB2 ) - sub2; 

temp“>se_subs( SUB3 | - sub3; 

temp->se_subs ( SUB4 ) - sub4; 


If ( symbol_table ■« NULL ) { 
symbol _t able ** temp; 
return ( SUCCESS ) ; % 

1 

/* 

* The symbol needs to be added to the symbol table linked list. If a parent was 

* specified then find the local variable symbol list. 

*/ 

symbol_head = symbol_t able; 

If ( parent !** NULL ) ( 
not_done - 1; 

while ( notdone && symbol_head ) 

if ( ( symbol_head->se_type 4 PROCEDURE ) 44 

( strcmp( symbol_head->se_symbol, parent ) -■ 0 ) ) ( 
not_done - 0; 

/* 

* If the symbol to be added is the first local variable, then add it 

* to the list and return, otherwise set the local variable so that the 
“ list can be traversed. 

*/ 
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if ( symbol_head->se_local_vars =» NULL ) ( 
symbol_head->se_local_vars =■ temp; 
return ( SUCCESS ) ;. 

) 

else 

symbol_head = symbol_head->se_local_vars; 

1 

else 

symbol_head - symbol head->se_next; 

if { symbol_bead -- NULL ) 

return ( UNKNOWN_PARENT ) ; 

1 

/* 

* The variable symbol_head now points to the head of the symbol list, traverse to 

* the end of the list and add the newlw allocated symbol. 

*/ 

while ( symbol_head->se_next ) 

symbol_head - symbol_head->se_next ; 
symbol_head“>se_next - temp; 

/* 

* Issue a successful error code. 

V 

return ( SUCCESS ); 


/ ***.*..M.M**M*..,MM*.**,.****.M***< > 

* 

* MODULE NAME: return_symbol_type () 


* MODULE FUNCTION: 

* Function returnsymboltype will return the symbol type. A -l is returned if the 

* symbol cannot be found. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**•««*.. »*******«**«««« ******** *******.««..****. ***************** .****/ 

lnt returnsymboltype ( parent, name ) 
char “parent, “name; 


struct symbol^entry “temp; 

/* 

* Fetch a pointer to the symbol entry. If NULL Is returned then the symbol was 

* not found ... a -1 should be returned. 

•/ 

If t temp - lookup_symbol ( parent, name ) ) 
return ( temp~>se_type s SYMBOLTYPE ) ; 

else 

return! ERR ); 



MODULE NAME: ret urn_symbol_at t ributes {) 


‘ MODULE FUNCTION: 

* Function return_symbol_attributes will return the symbol attributes (if it is not a 

* procedure) . 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

4 Release 1.02 - 08/20/91 

* *“***/ 

int return_symbol_attributes ( parent, name ) 

char ‘parent, ‘name; 


struct symbol_entry ‘temp; 

/* 

* Fetch a pointer to the symbol entry. If NULL is returned then the symbol was no 
t 

‘ found ... a -1 should be returned. 

*/ 

if ( ( temp - lookup_symbol ( parent, name ) ) && 

( ! (temp->se_type & PROCEDURE ) ) ) 
return ( temp->se_type & SYMBOLATT RIBUTES ); 

else 

return ( ERR )? 


* MODULE NAME: return_mat ri x_at tributes () 

* 

* 

* MODULE FUNCTION: 

• 

* Function return_mat rix_attrlbutes will return the number of rows and columns associate 
d 

‘ with the MATRIX variable. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


int return_matrix_attributes ( parent, name, dimensions, subl, sub2, sub3, sub4 ) 
char ‘parent, ‘name; 

short ‘dimensions, ‘subl, ‘sub2, *sub3, ‘sub4; 

< 

struct symbol_entry ‘temp? 

/* 

* Fetch a pointer to the symbol entry. If NULL is returned then the symbol was not 

* found ... a -1 should be returned. 

‘/ 

if ( ( temp “ lookup_symbol ( parent, name ) ) &4 ( temp->se_type & MATRIX ) ) 1 
‘dimensions - temp->se_num_dimensions; 

‘subl - temp->se_subs[ SUB1 1? 

*sub2 - temp->se_subs ( SUB2 ); 

*sub3 - temp->se_subs ( SUB3 J; 

‘sub4 “ temp->se_subs ( SUB4 I; 

return ( 0 ); 

) 

else 

return { ERR ); 
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* .****.**.*****.•.*< >" ******** ]/ 

* MODULE NAME: increment_symbol_use_count () 


* MODULE FUNCTION: 

* Function increment_symbol_use_count will increment the use count of a symbol. This 

* function exists so that symbols can be deleted. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**************************************** <_____>* ***************************************/ 
int increment_symbol_use_count ( parent, name ) 
char 'parent, 'name; 


i 

struct symbol_entry 'temp; 

/* 

* Lookup the symbol, If found, increment the use count. 
V 

if ( temp - lookupsymbol ( parent, name ) ) 
return ( temp->se_use_count ♦+ ); 

else 

return ( ERR ); 

) 


< > 

MODULE NAME: remove_symbol_entry () 


MODULE FUNCTION: 

Function removesymbolent ry is invoked to remove a symbol from the symbol table 
(which occurs when the symbol's use count goes to zero). This routine will also 
remove an Element's local variable list automatically when the Element is to be 
deleted. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


****************************************< >****************************************/ 

void remove_symbol_entry ( parent, ent ry_to_delete ) 
char 'parent; 

struct symbolentry 'ent ry_to delete; 

1 

struct symbolentry 'temp, 

'tempi, 

'head; 

/* 

* If the entry to be deleted is not in the root of the symbol table (which can 

* be determined if the parent is not NULL), find the list which is owned by the 

* parent. 

V 

head = symbol_table; 
if ( parent != NULL ) ( 

/' 

* Scan down the symbol table looking first for a match to the parent. The 
' loop will not fail as this routine would not have been invoked if the 

' parent did not exist in the symbol table. 

*/ 

temp = symboltable; 

while { strcmp( temp->se_symbol, parent ) !■= 0 ) 
temp = temp->se next; 

/* 

* Establish the pointer to the head of the list. 

*/ 

head » temp->se_local_vars; 

1 

/* 

* Now that the list and the entry are established, delete the entry. If the 

* pointer is to the header of a local list of variables (i.e. not a pointer to 

* the head of the symbol table), the pointer to the beginning of the local 
» variable list is update. 
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if ( head -- ent ry_to_de lete ) [ 
if { head !• symbol_table ) 

temp->se__local_vars - ent ry_tio_delece->se_next ; 

else 

symbol_table - ent ry_to_delete->se_next; 

} 

else { 

/* 

* Search down the list looking for the element to be deleted. 

V 

while ( head~>se_next !“ ent ry_to_delete ) 
head - head->se_next ; 

/• 

* The next field now points to the element to be deleted, remove the 

* element from the linked list. 

*/ 


< ********** 

* MODULE NAME: decrement_symbol_use_count () 

* MODULE FUNCTION: 

* Function decremcnt_symbol_uso_count will decrement the use count o( a symbol. This 

* function exists so that symbols can be deleted. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.01 - 08/01/91 

* Release 1.02 - 08/28/91 

* * ***•*“< * / 

int decrement_symbol_use_count ( parent, name ) 


head->se_next - entry to_delet e-*>se_next ; 

1 

/* 

* If the entry to be deleted Is an Element name (global) and has a local variable 

* list, free the variables in the list. 

V 

if ( parent NULL ) 

i 

temp - entry_to_delete->se_local_vars; 
while ( temp ) 

( 

tempi - temp; 

temp - t emp->se_local_vars; 
free( tempi ); 

) 

I 


char ‘parent, ‘name; 

struct symbolentry *temp; 

/* 

* Lookup the symbol, if found, decrement the use count. 

*/ 

If ( temp - lookup_symbol ( parent, name ) ) ( 

/• 

* Decrement the use count. If the value is less than or equal to zero then 

* the element should be deleted from the symbol table unless the function is 

* an intrinsic. 

* */ 

temp->se_usa_count — ; 


/* 

* Free the space being utilized by the entry that was just deleted. 
*/ 

free { entry_to_delete ); 

) 


If ( (temp->se_use_count >0) | I (temp->se__type & INTRINSIC)) 
return ( temp->se_use_count ); 

/* 

* Don't delete the entry if It is an Element name (PROCEDURE). We don't 

* ever want to delete Elements from the symbol table because their local 

* variables are in the symbol table. 

V 


If ( temp->se_type & PROCEDURE ) 
return ( temp->se_use_count ); 


/* 

• We have a symbol table entry whose use count Is zero and It is not an 

* Intrinsic or Element name, so remove the entry. 

*/ 


remove_symbol__entry ( parent, temp ); 
return ( 0 ); 

) 

else 

return ( ERR ); 

) 





MODULE NAME: pr lnt_symbol_table () 


* MODULE FUNCTION: 

* This routine prints the symbol table. This routine is Included for development and 

* debugging purposes. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

A*************************************** < — >* A**************************************/ 

void print_symbol_table() 

( 

struct symboi_entry ‘tempi, *temp2; 

fprintf! stdout, "\n\nGCB Symbol Table:\n\n“ ); 
tempi - symboltable; 

/* 

* Print the entries at the root of the symbol table. 

*/ 

while! tempi ) I 

fprintf! stdout, “Name: %-15s”, templ->se_symbol ); 
fprlntf! stdout, “\tType: %-7o“, tempi ->se_type s SYMBOL_TYPE ) ; 
fprintf! stdout, "\tflttr: %-7o", tempi ->se_type t SYMBOLDATATYPE ) ; 
fprintf! stdout, "\t\tUse: %d\n", templ->se_use_count ) ; 

/* 

* If the entry has a local variable list (which implies that the entry is 

* a procedure), print the contents of the local variable list. 

*/ 

if ( tempi ->se_local_vars ) 1 

temp2 =■ templ->se_local_vars; 

fprintf! stdout, "\n\tLocal Variable List:\n\n“ ) ; 
while! temp2 ) ( 

fprintf! stdout, "\tName: t-15s", temp2->se_symbol ) ; 
fprintf! stdout, “\tType: »-7o", temp2->se_type t SYMBOL_TYPE ); 
fprintf! stdout, “\tAttr: %-7o", temp2->se_type t SYMBOL_DATA_TYPE ) ; 
fprintf! stdout, "\t\t Use: %d\n", temp2->se_use_count ); 
temp2 - temp2->se_next ; 

I 

fprintf! stdout, “\n" ) ; 

) 

tempi ■* templ->se_next; 

) 


) 


fprintf! stdout, "\nEND of GCB Symbol Table\n\n\n“ ) ; 
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MODULE NAME: sa ve_symbo l_level ( ) 

MODULE FUNCTION: 

Function save_symbol_level Is invoked to save out a single level of the symbol table 
to the specified file. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


if ( temp->se_local_vars ) 

if ( save_symbol_level ( temp->se_local_vars, output_file ) 
return ( -1 ) ; 

/* 

* Go to the next entry on the list. 

V 

temp “ temp->se_next ; 


/* 

• Issue a successful return code. 
V 

return ( 0 ) ; 


static 1 nt save_symbol_level ( symbol_level_head, outputfile ) 


1 


struct symbol_ontry * symbo l_lovel head; 
FILE *output_f ile; 

int number_ent ries; 
struct symbol_entry *temp; 


/* 

• Establish a pointer to tho symbol table and count the number ot entries on 

* the current level. , 

•/ 


temp - symbol_level_head; 

number_entries - 0; 

while ( temp ) ( 

number_entries++; 
temp - temp->se_next ; 

) 

/* 

* Write each entry to the output file, if a procedure is encountered with local 

* variables then recursively call this routine to write the local variable list. 

*/ 

if ( fwrite ( ,&number_ent ries, sizeof( int ), 1, output_file ) == 0 ) | 
fprlntf( stderr, "Could not save the number of entries\n" ); 
return ( -1 ) ; 

I 


temp - symbol_level_head; 
while( temp ) { 

/* 

* Write out the entry. 

•/ 

if .( fwrite ( temp, sizeof{ struct symbol_entry ), 1, output_file ) 0 ) | 

fprintf (. stderr, "Could not write out a symbol entry\n" ); 
return ( -1 ); 

■ 1 
/* 

* If the entry has local variables, recursively call this routine with a 

* pointer to the local variable list. 


VI/08/29' | 
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* MODULE NAME: symbol__t able save {) 


* MODULE FUNCTION: 

a 

* Function symbol_table_save will store the symbol table to the specified open file. 

* The file format will be; 

* - The number of symbols on the main list will be saved 

* - Each symbol will be saved, if the symbol has a local variable list, a count 

* of the local variables will be saved along with any local variables. 


* REVISION HISTORY: 

A 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 


int symbol_table_save ( output_flle } 


FILE * out put _f i le; 

return ( save_symbol_level (symboltable, output_f i le) ); 


MODULE NAME: restoresymbollevel 


MODULE FUNCTION: 


Function restore_symbol_level is invoked to restore the symbol table from the 
specified data file. 


REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


static int restore_symbol_level ( input file, parent ) 

FILE * lnput_f i le; 
char ‘parent; 

1 

int number_entries, i? 

struct symbol_entry temp, *temp_symbol ; 


Read the number of entries on the current level of the symbol table level. 


if ( fread( inumberentries, slzeoff int ), 1, input_file ) == 0 ) { 

fprintf( stderr, "Could not restore the number of entries\n" ); 
return ( -1 ) ; 

1 


* For each entry on the list, read in the data and insert into the symbol 

* table with the specified parent. If an item has local variables, recursively 

* invoke this routine to retrieve the variables. 

*/ 

for { 1 = D; i < number_entries; i++ ) 1 

/* 

* Read the entry and add to the symbol table list. 

*/ 

if ( fread( itemp, sizeof{ struct symbol_entry ), 1, input_file ) == 0 ) ( 
fprintf( stderr, "Could not read a symbol entry\n" ); 
return ( -1 ) ; 

I 

if ( add_symbol_entry ( parent, 

temp. se_symbol, 

temp. se_type, 

temp. se_num_dimensions, 

temp. sesubs [ SUB1 ], 

temp. se_subs( SUB2 ), 

temp. se_subs ( SUB3 1, 

temp, se subs I SUB4 ) J J«= 0 ) 

return! -1 ); 


temp symbol = lookup_symbol ( parent, temp. se_symbol ); 
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temp_symbol->se_use_count - temp.se use count; 


/* 

* If the entry has local variables, recursively call this routine with a 

* pointer to the local variable list. 

*/ 


/‘ ****** ********** .•**•******.*•***•<—. 

* 

* MODULE NAME; setsymattribs ( ) 

* 

* MODULE FUNCTION: 


I 


if t t emp. se_)ocal_vars ) 

if ( restc>re_symbol_level ( lnput^flle, temp. sesymbol ) !- 0 ) 
return ( -1 ); 


/• 

* Issue a successful return code. 

*/ 


return ( 0 ) ; 


This routine is used to the set the INSTALLED attribute of Element file entries 
in the Comp symbol table. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 

**•*«•**«•*«**** *•**•*«**•****•*«*•***< >***•• ••••*• 


/ 


void set_sym_att r ibs ( name, attrib, set ) 

char *name; 

int attrib, 

set; 


struct symbol_entry *temp; 

/* 

• Lookup the symbol, if found, set the attributes. If the Element filename 

• is not found in the symbol table, don't worry about it. The user may be 

• editing an Element which is in the current Comp directory but is not yet 

• CALLED or ACTIVATED by the Comp. In this case, the Element filename would 

• not yet be in the symbol table. 

*/ 

if ( temp - lookup_symbol (NULL, name) ) 

i 

if ( set ) 

temp->se_iype |- atlrlb; 

el se 

temp->se_type attrib; 

I 

else 

[ 

elog (3, *set_sym_attribs: didn't find Element: %s M ,name); 
return; 


< > 


< > 


9 timtiii 
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MODULE NAME: symbol_table_restore () 


MODULE FUNCTION: 

Function symbol_table_restore the symbol table from the named file. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt symbol_table_restore ( lnput_flle ) 

FILE ‘Input file; 

I 

/* 

* Initialize the current symbol table to NULL and Invoke the routine to 

* recursively recreate the symbol table. 

*/ 

symbol_table - NULL; 

return! restore_symbol_level ( Input file, NULL ) ); 

I 


MODULE NAME: symboltablelnlt () 

MODULE FUNCTION: 

Function symbol_table_lnlt will Initialize the symbol table. 
REVISION HISTORY: 


Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void symbol_table_lnlt () 

I 

/* 

* Initialize the symbol table root. 
*/ 


/ 


symbol_table = NULL; 

/* 

* Add all the Intrinsic function names to the root of the symbol table. 

*/ 


add symboj entry ( 

NULL, 

“cos". 

PROCEDURE 

addsymbolentry ( 

NULL, 

"acos", 

PROCEDURE 

add_symbol_entry ( 

NULL, 

-sin-. 

PROCEDURE 

add symbol _entry { 

NULL, 

-asin-, 

PROCEDURE 

add_symbol _ ent ry { 

NULL, 

"tan". 

PROCEDURE 

add_symbol_entry ( 

NULL, 

•atan". 

PROCEDURE 

add_symbol_entry ( 

NULL, 

-power-, 

r PROCEDURE 

add_symbol_entry ( 

NULL, 

•log". 

PROCEDURE 

add symbol _en try ( 

NULL, 

"nlog", 

PROCEDURE 

add_symbol_entry ( 

NULL, 

■exp". 

PROCEDURE 

add_symbol_entry ( 

NULL, 

"sqrt" , 

PROCEDURE 


INTRINSIC I DOUBLE, (short) 0, (short) 0, 
(short)0, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short)0, (short)0, 
(short)0, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)O, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)0, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short)0, (short)0, 
(short)O, (short)O, (short)O ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short) 0, (short )0, (short )0 ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)0, (short)O, (short)0 ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)0, (short)0, (short)O ) ; 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)0, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short)0, (short)0, 
(short)0, (short)0, (short)0 ); 

INTRINSIC | DOUBLE, (short) 0, (short) 0, 
(short)0, (short)0, (short)0 ); 


/* 

* Increment the use count of each Intrinsic function. 
*/ 


Increment 

symbol 

use 

count ( 

NULL, 

-cos") ; 

increment^ 

symbol 

use 

count ( 

NULL, 

-acos-) 

lncrement_ 

symbol 

use 

count ( 

NULL, 

-sin-) ; 

Increment^ 

symbol 

use 

count ( 

NULL, 

-asin“) 

increment^ 

symbol 

_use_ 

count ( 

NULL, 

-tan-) ; 

increment_ 

symbol 

use 

count ( 

NULL, 

-atan") 

increment_ 

symbol 

use 

count ( 

NULL, 

-power- 
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) 


1 ncrement^ symbol uso_count ( 
1 ncrement_symbol use_count ( 
lncrement_symbol_use_count ( 
lncrement_symbol_use_count ( 


NULL, 

"log") 

NULL, 

“nlog" 

NULL, 

"exp-) 

NULL, 

"sqrt " 
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******** 




FILE NAME: 


symbol s . c 


FILE FUNCTION: 

This file contains the routines which create and manipulate the graphical 
symbols in the work area. 


SPECIFICATION DOCUMENTS: 

/home /pro ject /3531 /Docu/GCB. spec.doc 


FILE MODULES: 

check_rect () 
clear_cell_map_sym () 
cl aim_cells () 
lnit_cel l_map ( ) 
lnlt_symbol_array () 
install_symbol () 
next_ava i l_sym ( ) 
num_cells {) 
remove_symbol () 
set_cell_map_sym () 
set_current_sym 0 
set_ midpt 0 
update_pos_ t iolds {) 
update_symbol_pos () - 


checks area for symbols and lines not within area, 
clears the cells occupied by the parameter area, 
claims the cells to be occupied by a symbol 
initializes the Cell_Map array, 
initializes the Symbol_Map array. 

adds widget with parameter location and type to Symbol_Map 
returns first Symbol_Map entry w/o type; sets current_symbol 
determines the number of cells a given length will require, 
deletes symbol from schematic and symboljnap. 
sets the cells a given symbol will occupy, 
sets the next available entry to be the parameter widget, 
adjust midpt of symbol canvas to nearest snap point 
updates position Helds of a SymbolMap entry after a move, 
moves and redraws a symbol, updates its Symbol_Map fields. 


nclude <stdio.h> 
include <X11/Intrinsic. h> 
include <Xm/Xm.h> 

Include "gcb.h" 
include "widgets. h" 
include “lines. h" 
include “element_file.h" 
include M symbol. h" 


MODULE NAME: checkrect () 

MODULE FUNCTION: 


This routine checks the specified area for symbols and lines other than 
lines and symbols within the area or lines entering or leaving the area. 


REVISION HISTORY : 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


* > * * * * 




int check_rect ( type, cell_x, cell_y, celi_w, cell_h, b_ulcx, b_uicy, b_w, b_l ) 
int type, cellx, celly, cellw, cell_h, bulcx, bulcy, bw, b_l; 


Int y, i, j, x, xx, yy, w, h; 

LineLlst *templlst; 

Symbol *from, *to; 

if ( (cell_x < 0) || (cell_y < 0) ) 
return! 0 ) ; 


* Compute absolute position; make sure it is inside logical work area. 

*/ 

xx » cel l_x * CELL_SIZE; 
yy - cel l_y * CELL_SIZE; 
w “ cellw * CELLSIZE; 
h - cell h * CELL SIZE; 


if ( ({xx + w) > 1140) 
return ( 0 ); 


II ((yy + h) > 1140) ) 


Check each cell in rectangle to be occupied; if something is there: 

1) if we are copying, fail since there is no way around the obstacle. 

2) if it is a symbol cell and it will move or a line cell and it will 

move or be deleted, allow it. 


for ( y=cell_y, i=0; i<cell_h; y++, i + + ) 

for ( x=cell_x, j=0; j<cell_w; x++, j++ ) 
if ( Cel l_Map[y | (x| . cell_type != NONE ) 
i 

if ( type == CopyBox ) 

/* 

* always fall on copy 
V 


return { 0 ) ; 

switch ( Cell Map[y ) (x] .cell_type ) 
I 


1 ®| 1 _ 

JiipW:4® 


i 


return) 1 ); 
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case SYMBOL_CELL: 

if ( ! sym_wlthln_box (Cel l_Map!y] [ x ) . cell_entry. symbol, 
b_ulcx, b_ulcy, b_w, b_l ) ) 

I 

/•DEBUG*/ 

elog(3,"sym *1 in way, not in box\n", 
compute_label_lndex !Cell_Map[y) [ x ) .cel l_entry. symbol ) ) ; 
return! 0 ) ; 

I 

break; 

case LINE_CELL: 

templlst - Cell_Map[y] (x| .cellentry. lines; 
while ( templlst ) 

I 

if ( ! 1 1 ne_enters_box (tempi 1 st->llne, b_ulcx, b_ulcy, 
b_w, b_l) ) 

( 

from = (Symbol *) tempi lst->l lne->from; 
to - (Symbol * ) templlst->llne->to; 

/•DEBUG*/ 

elog (3, "line connecting llandkl not In box\n*, 
compute_label_index ( from) , compute_label index (to) ) ; 
return) 0 ); 

) 

templlst - (LineLlst “) tempi 1 st->next ; 

I 

brea k ; 

) 


MODULE NAME: clear_cell_map_sym () 

MODULE FUNCTION: This module clears the cells occupied by the parameter area. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void clearcellmapsym ( type, cell_x, celly, width, height ) 

lnt type, 
cellx, 
cell_y, 
height, 
width; 

1 

register lnt 1, 

*.y; 


* Set cell map to symbol type and set pointer to either symbol structure 

* or LineLlst structure. 

*/ 

for ( y-ce 1 1 _y, 1-0; lchelght; y++, 1++ ) 

for ( x-cell_x, J-0; j<wldth; x+t, Ji+ ) 

( 

Cell_Maply) lx) .cel l_type - NONE; 

Cel l_Map|y | (x) .cel l_entry. symbol - NULL; 

I 


) 


******* 


*< > 



MODULE NAME: claim_cells() 


MODULE FUNCTION: 

This routine clears the cells presently occupied by a symbol and 
claims the cells to be occupied by the moved symbol from the ulcx and y 
parameters to the limits of the width and height parameters. 

If the celis can't be claimed, the routine reclaims the symbol's 
previous position. If it can't do that, it panics and dies. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int claim_cells{ w ) 

Widget w; 

{ 

Symbol * symbol; 

XWindowAttributes attribs; 

int cellwidth, cellheight, cellx, cell y; 

/* 

* get window x and y 
V 

if (1 XGetWindowAttributes (display, XtWindow(w) ,sattribs) ) 
error_handler ( ERR_SYMJVTTRIBS, "claim_cel Is" ); 

cell_width - num_cells{ attribs. width ) ; 
cellheight « num_cells( att ribs . height ); 
cell_x - attribs. x / CELL_SIZE; 
cel l_y = attribs. y / CELL_SIZE; 

if (! (symbol - (Symbol * ) get_sym_map_entry (w) ) ) 

i 

user_ack ("Fatal Error: can not find sym map entry in claim cells"); 
exit ( ERR ) ; 

} 

elog (3, "claim cells: clearing cells at %d %d, width %d height %d\n", 

symbol->cell_x, symbol ->cell_y, symbol->cell_width, symbol->cell_helght) ; 

/* 

* clear current position. 

*/ 

clear_cell_map_sym ( SYMBOL_CELL, 
symbol->cel l_x, 
symbol->cel l_y, 
symbol“>cel l_width , 
symbol->cel l_height ); 

/• 

* set new position. 

*/ 




MODULE NAME: f ree_cel lmap_symbols 0 


MODULE FUNCTION: 

This routine frees the cells occupied by the parameter symbol. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 0'//n/91 

Release 1 .02 - 08/28/91 


void free cellmap symbols!) 

I 

register lnt 1,3; 

for ( 1-0; 1<CELL_R0WS; 1++ ) 

for (j-0; j<CELL_COLS; jtt ) 

If ( Cel l_Map( 1 1 ( 3 I . cel l_type — SYMBOL_CELL ) 

I 

Cell_Map[ 1 ) ( j 1 . cel l_type - NONE; 

Cell_Map[l | (31 .cellentry. symbol - NULL; 

) 

I 
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MODULE NAME: lnlt_cel l_map () 

MODULE FUNCTION: 

This routine Initializes the Cell_Map array. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void init_cell_map() 

I 

register lnt 1,3; 

for ( 1-0; KCELL ROWS; 1 + + ) 

for ( 3-0; 3<CELL_COLS; j*+ ) 

1 

Cell_Map[i | 131 .cell_type - NONE; 
Cell_Map[l ) [ 3) .cellentry. symbol - NULL; 
1 
l 





MODULE NAME: lnit_symbo l_array { ) 


MODULE FUNCTION: 

This routine initializes the Symbol_Map array. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void init symbol_array () 

{ 

register int 1; 

for ( i-0; i <MAX_S YMBOLS ; i++ ) 

1 

Symbol_Map [i J . symbol_type - NONE; 

Symbol_Map ( i ) . next - NULL; 

) 

Begin_Sym - NULL; 




I* MODULE NAME: lnstall_symbol () 


MODULE FUNCTION: 


This routine adds the parameter widget with the parameter location and type 
to the SymbolMap array. 

This routines assumes that the X and Y coordinates that are passed to this 
routine are the upper left coordinates of a cell. The placement and movement 
routines must “snap’' the symbols into cells during movement. 


/ 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


int install_symbol ( type, x, y, height, width, text, canvas, font ) 

int type, 

x, 

Vi 

height , 
width; 

char *text; 

Widget canvas; 

Font font; 

1 

int cell_height, 

cell_width, 
cell_x, 
cell_y; 

int pos, 

attributes - 0; 

XWindowAtt ributes attrlbs; 

Arg args[l); 


/ 


/* 

* Snap ulcx and y to closest snap point 

* and reset parameters x and y to reflect snapped position 
*/ 

if ( Snap ) 

set^midpt ( canvas ); 

if (! XGetWindowAttributes (display, XtWindow (canvas) , sattribs) ) 
error_handler ( ERR_SYM_ATTRIBS, "instal ^symbol" ); 

x =* attribs.x; 
y *=• attribs.y; 

/* 

* Determine cell map x and y. 

*/ 

cell_x « x / CELL_SIZE; 
celly - y / CELLSIZE; 


i 




/* 

* Determine cell width and height. 

*/ 


cell_width - num_cells( width ); 
cell_height - num_cells{ height ); 

/* 

* Grab the cell map cells for this symbol. 

*/ 

if ( ! (set_cell_map_sym ( SYMBOL_CELL, (Symbol M M Symbol _Map{ next symbol )) , 
cell_x, cell_y # 
cell_width , cell height))) 

1 

if (type — TEXT) 

user^ack (“Cel Is are already occupied, can not place TEXT there"); 

else 

user_ack ("Cells are already occupied, can not place Symbol there"); 
return ( ERR ); 

) 

Symbol _Map [ nextsymbol ]. cel l_x - cell__x; 

Symbol_Map (nextsymbol ). cel l_y - cell_y; 

Symbol_Map [nextsymbol ) .cel l_width - cell width; 

Symbol_Map(nextsymbol 1 .cel l_height - cell_helght; 

/* 

* Inlt line draw pointers. 

*/ 

If ( type — IF ) 

I 

Symbol_Map[ nextsymbol ) .Sym.I fSym.t rue_line - NULL; 

Symbol_Map [nextsymbol ] .Sym. I fSym. false_l lne - NULL; 

) 

else 

Symbol_Map (nextsymbol | . next » NULL; 

Symbol_Map [nextsymbol ). from - NULL; 

/* 

* Set Symbol_Map fields 
V 

Symbol_Map [ nextsymbol ] . symbol_type - type; 

Symbol_Map [nextsymbol | . key - SymKey++; 

Symbol_Map [nextsymbol ) .ulcx - x; 

Symbol_Map [nextsymbol ) .ulcy - y; 

Symbol_Map(nextsymbol ). height - height; 

Symbol_Map[ nextsymbol ] .width - width; 

Symbol_Map [nextsymbol ) .text - text; 

Symbol_Map [nextsymbol ) .mycanvas - canvas; 

Symbol_Map (nextsymbol ). font - font; 

/• 

* put text in Symbol__Map entry according to symbol type 
*/ 

switch ( type ) 
i 


case IF: 
case SET: 
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elog (3, "install : element name %s not found; adding to sym tab", text); 
attributes [» PROCEDURE; 

if { add_symbol_entry (NULL, text , attributes, 0, 0, 0, 0, 0) ) 
error_handler ( ERR _ADD_SYMBOL, " inst al l_symbol " ); 

} 

/* 

* increment reference count 
*/ 

elog (3, " lnstal 1 : element name found; incr use count to %i\n", 
increment_symbol__use_count { NULL, text ) ) ; 

break; 
default ; 
break; 

) 


/****. *.*.*•.*.**.*.*..****.*•*... *.***.*< > ,****..*M»*«t*M*.*M*t***Mi*M 

* MODULE NAME: next a vail sym () 

* MODULE FUNCTION: looks for first entry in Symbol_Map that has no 

* symbol type; sets currentsymbol to that entry and returns 

* its number in the Symbol Map. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

A************************************** * ********************************** 


if ( type ! ■ TEXT ) 

/* 

* element is Incomplete. 
V 

upd_status (0) ; 


int nextavallsymO 

{ 

int i; 

/• 

* Check next unused slot out from array of widgets. 

*/ 


SaveNeeded *=* 1; 
return ( nextsymbol ) ; 


for ( i = 0; i < MAX_S YMBOLS - 1; 1++ ) 

if ( Symbol_Map[i] .symbol type — NONE ) 
i 

nextsymbol - I; 

current symbol = symbols (nextsymbol ] « (Widget ) create_new_sym (} ; 
return ( nextsymbol ); 

) 

/* 

* couldn't find an available symbol 

*/ 


userack ("You have run out of symbols; delete some or increase MAX SYMBOLS" ) ; 
return ( ERR ); 




* > 

* MODULE NAME: num_cells() 


MODULE FUNCTION: 

This module determines the number of cells a given length will require. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt num_cells( length ) 
lnt length; 

( 

11 ( length < CELL_SIZE ) 
return! 1 ); 

If ((length % CELL_SIZE) -- 0 ) 
return) length / CELL_SIZE ); 

return) (length/CELL SIZE) + 1 ); 

I 
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MODULE NAME: removesymbol ( ) 


MODULE FUNCTION: 

This routines assumes that the X and Y coordinates that are passed to this 
routine are the upper left coordinates of a cell. The placement and movement 
routines must "snap* the symbols Into cells during movement. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void remove_symbol ( symbol ) 

Widget symbol; 
i 

int cell_helght, 

cell_width, 
cel l_x, 
cell_y, 
symtype, 
sym; 

XWindowAtt rlbutes attrlbs; 

Arg argsjll; 

if ( ! XGetWi ndowAtt rlbutes (display, XtWindow (symbol) , iattrlbs) ) 
errorhandler ( E R R_S YM_ATT RIBS, "remove_symbol " ); 

/* 

* clear symbol map entry 
*/ 

for ( sym°0; sym<MAX_SYMBOLS; sym+ + ) 

If { Symbol_Map(sym) .mycanvas -- symbol ) 

1 

elog (3, "removing sym# %d\n", sym); 

/* 

* set event for undo 

* set global text variables so draw_symbol has them; 

* this is necessary since in Motif there is no way to link >1 

* piece of data with a widget, and the symbol_type is already linked. 

*/ 

XtSetArg( args(0), XmNuserData, £sym_type ); 

XtGetValues( symbol, args, 1 ); 

if { (sym_type -■ IF) | | (sym_type — SET) ) 

( 

symtext - Symbo l_Ma p [ sym 1 .Sym. I fSym.log ical_expr; 
exprtext - Symbol_Map [sym| . Sym. IfSym. comp_expr; 

) 

else 

sym_text - Symbol_Map [ sym) . text ; 
setsymbolevent ( Symbol_Map[sym) ); 



/* 

* delete all lines entering and leaving symbol 

*/ 


delete__lines ( symbol ) ; 

if ( Symbol_Map( sym] .symbol_type == BEGIN ) 

Begin_Sym = NULL; 

/* 

* for goto, start and stop: decrement the element/comp use count 
*/ 

if ( (Symbol_Map [sym) . symbol_type == GOTO) || 

( Symbo l_Map[ sym 1 . symbol _type -- START) || 

( Symbol _Map [sym] . symbol_type •» STOP) ) 
i 

el og (3 , "remove: deer use count to %i\n", 

decrement_symbol_use_count { NULL, Symbol _Map [sym 1 .text ) ); 

) 

else if ( (Symbol_Map[ sym) . symbol_type «*» IF) || 

(Symbol_Map[sym) . symbol_type -- SET) ) 

/* 

* delete from the symbol table all references to the variables in 

* this symbol's expression. 

V 

1 

/• 

* set last variable list so undo can restore vars to 

* symbol table. 

*/ 

set_last_var_list ( Symbol_Map[sym) . Sym. If Sym. comp expr )? 

change_l ist_use_count { current_symbol # 

Symbol_Map [sym] . Sym. If Sym. comp_expr, 0 ); 

1 

Symbol_Map[sym) .symbol_type - NONE; 

XClearWlndow ( display, XtWindow (symbol ) ); 

XtUn/papWidget ( symbol ); 

/* 

* removing this symbol may change element status to complete 
*/ 

if ( complete (0, LINES_AND_EXPR) « ERR ) 
upd_status( 1 ); 
else upd_status( 0 ); 

SaveNeeded - TRUE; 

break; 

) 

/* 

* Determine cell map x and y. 

V 

cell_x = attribs.x / CELL_SIZE; 
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— 

* MODULE NAME: set_cell_map_sym () 

* MODULE FUNCTION: This module checks Che area Co be occupied by Che symbol; 

* if It is ok, the cells occupied by the symbol are set. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

...../ 


lnt set_cell_map_sym( type, sym_ptr, cell_x, cell_y, width, height ) 

int type, 

cell_ x, 
cell_y, 
height, 
width; 

void *sym_ptr; 


I 

register int 

LI ncLl sc 
lnt 

Symbol 


1 , 1 , 

x,y, z; 

•111st; 

XX, yy. w, h, rejected - 0; 
•symbolptr; 


/• 

* can't set cells outside of canvas 
*/ 


If | ( ce 1 1 _x < 0 ) || ( ce 1 1 _ y < 0 ) ) 
return 10); 

/* 

* If this claim will fall when we zoom out or back In, 

* can't be allowed 

*/ , 

xx - cel l_x * CELLSIZE; 
yy - cel l_y • CELL_SIZE; 
w - width * CELL_SIZE; 
h - height * CELL_SIZE; 

1 f I Zoomed ) 

( 

If ( ((xx + w) > = op (1 190, 2)1 II ((yy + h) >- op(1140,2)> ) 
return ( 0 ) ; 

I 

else If ( ((xx + w) > 1140) || ( (yy + h) > 1140) ) 

return ( 0 ) ; 

/* 

* Go through cells first to see If all can be set. 

* If not, return without changing any. 

*/ 


for ( y=cell_y, 1-0; Kheight; y++, 1++ ) 

for ( x-cell_x, j-0; jcwldth; x++, j++ ) 

1 

If ( (y > = CELL_ROWS| || (X >- CELL_COLS) ) 

I 

/•DEBUG"/ 

elog(3,"set cell map sym: y or x > cel l_rows/cols\n") ; 
return! 0 ); 

) 

else If ( Cell_Map(y| (x| ,cell_type !- -1 ) 

I 

if ( Mode ! - GhostMoveBox ) 

I 

if ( CellMaplyl [x) ,cell_type — LINE_C£LL ) 

I 

/* 

* allow IF, SET, and PRINT to grow over their own lines 

* In edit mode. Everything else Is disallowed. 

*/ 

111st - (LlneLlst •) Cell Map [y 1 (xl . cel 1 entry. 1 lnes; 
symbol_ptr - (Symbol *)sym_ptr; 
lf ( (symbol_ptr->symbol_type I- IF) 

(symbol_ptr->symbol_type I- SET) cs 
(symbol_ptr->symbol_type I- PRINT) ) 
rejected - 1; 


/• 

* If, set, and print can grow only over their own lines 

•/ 

if ( (lllst->llne->from !- (struct Symbol •) symbol_ptr) t 
(lllst->llne~>to I- (struct Symbol •) symbolptr) ) 
rejected - 1; 

/* 

* must be editing to allow growth. 

•/ 

If ( Mode !- EdltSymbolContents ) 
rejected - 1; 

if ( rejected ) 
return! 0 ) ; 

I 

el se 

return ( 0 ) ; 

I 

) 

1 

/• 

* Set cell map to symbol type and set pointer to either symbol structure 

• or LlneLlst structure. 

•/ 


for ( y-cell_y, 1*0; Kheight; y + + , 1 + + ) 

for ( x-cell_x, j-0; jcwldth; x++, j++ ) 

( 

Cel IMaply 1 (x| .cel l_type - type; 

Cell_Maptyl [x| .cell entry. symbol - (Symbol *) sym_ptr; 

I 

return ( 1 ) ; 
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} 


k************************************** *< > * ******************************* 

MODULE NAME: set_midpt() 

MODULE FUNCTION: adjust midpt of symbol canvas to nearest snap point 


* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

****************************** **********< >*********** 

void set_midpt ( canvas ) 

Widget canvas; 


XWindowAtt ributes attribs; 
lnt x, y; 

int snap_cell - CELL_SIZE * (Zoomed ? 10 : 15); 

lnt mldx, mldy, snapx, snapy; 

Window w - XtWlndow( canvas ); 

if ( ! XGetWi ndowAttr ibut es (display, w, &att ribs) ) 
error handler ( ERR_SYM_ATTRI BS, M set ml dpt" ); 

x = attribs. x; 
y • attribs. y; 

if ( x < 0 ) 

/* 

* going off the left edge - move symbol to the left edge. 

*/ 

XMoveWindow( display, w, 0, attribs. y ); 

else if ( (x + attribs. width) > (MAINCANVASWIDTH + MAINJTANVAS_WIDTH/2 - 350) ) 
/* 

* going off the right edge - move symbol to the right edge. 

V 


XMoveWindow( display, w, 

x - ( (x + attribs. width) - (MAIN_CANVAS_WIDTH+MAIN_CANVAS__WIDTH/2 - 350)), 
attribs. y ); 

if ( y < 0 ) 

/* 

* going off the top edge 

*/ 

XMoveWindow{ display, w, attribs. x, 0 ); 


else if ( (y + attribs. height) > MAIN_CANVAS_HEIGHT + MAIN_CANVAS_HEIGHT/2 ) 



/* 

" going off the bottom edge 

*/ 


XMoveWindow( display, w, attrlbs.x, 

y - ( (y + attrlbs. height) -MAIN_CANVAS_HEIGHT) ); 

mldx - attrlbs.x t ( attrlbs. width / 2 ); 
mldy - attrlbs. y + ( att ribs .height 12); 

/• 

* compute # of snap_cells In x direction 

*/ 

snapx - mldx / snap_cell; 

/* 

* compute # of snap_cells In y direction 

*/ 

snapy « mldy / snap coll; 

/* 

* reset mldpt of symbol to nearest snap pt; 

* do we go forward or backward In x direction 
V 


If ( 1 (snapx) ) mldx » snap_cell; 
else If ( (mldx % snapcell) <- (snapcell / 2) ) 
mldx - snapcell * snapx; 

el so 

mldx - snap_ccll * snapx t snapcell; 


/* 

* do we go up or down In y direction 

*/ 


If ( ! (snapy) ) mldy - snap_coll; 

else If ( (mldy I snap_cell) <• (snap_cell / 2) ) 
mldy - snap_cell * snapy; 

else 

mldy - snap_cell * snapy + snap_cell; 


/* 

* set ulcx and y of canvas from new mldpt 

*/ 


symbols.c 





* 

* MODULE NAME: set_current_sym {) 


MODULE FUNCTION: as the name Implies, sets the next available entry to be the 
parameter canvas. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


*< — - — >* 


void set_current_sym ( symbol ) 


Widget 

symbol ; 

Symbol 

•tempsym, 

/* 



* Set the global var currentsymbo l to be the parameter widget. This 

* makes edit, for example, much easier by allowing all functions to work 

* off the global variable. 

V 


if ( (tempsym ** (Symbol *) get_sym_map_ent ry (symbol ) ) !- NULL ) 
currentsymbol • tempsym~>mycanvas; 

else 

i 

user_ack (“Fatal Error: can not set current symbol"); 
exit ( ERR ) ; 

) 

} 


) 


XMoveWi ndow( display, w, mldx- {attrlbs .width/2) , mldy- (attrlbs .helght/2) ); 
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*< >* 


MODULE NAME: update_pos_f ie Ids ( ) 

MODULE FUNCTION: 

This module updates the position fields of a SymbolMap entry after a move. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


/*********** **************************** *< >******************************•*** 

MODULE NAME: update_symbol_pos () 

MODULE FUNCTION: 

This routines assumes that the X and Y coordinates that are passed to this 
routine are the upper left coordinates of a cell. The placement and movement 
routines must ■snap" the symbols into cells during movement. 

REVISION HISTORY:. 

cr 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 




*******/ 


void update_pos__f ields ( symbol, canvas, ulcx, ulcy ) 

Symbol * symbol; 

Widget canvas; 

int ulcx, ulcy; 

I 

XWindowAttrlbutes attribs; 

if ( ! XGetWi ndowAt tributes (display, XtWindow (canvas) , 6a tt ribs) ) 
error_handler ( ERRSYMATTRIBS, "updateposf ields" ); 

/* 

* update position fields in Symbol_Map entry for this symbol 

*/ 

symbol->ulcx « ulcx; 
symbol->ulcy - ulcy; 

symbol ->cell_x = ulcx / CELL_SIZE; 
symbol ^cell^y » ulcy / CELL_SIZE; 


int update_symbol_pos ( w ) 
Widget w; 


Arg 
int 
int 

XWindowAtt ributes 
/* 

* find SymbolMap entry corresponding to this widget. 

V 

for ( syra=0; s ym <MAX_S YM BOLS ; sym++ ) 

if ( Symbol_Map[sym| .mycanvas — » w ) 

< 

found+- + ; 
break; 

) 


args ( 1 ) ; 
newx, newy; 

sym_type, sym, found - 0; 
attribs; 


symbol->widt h - at tribs . width; 
symbol->height - att ribs . height ; 

/* 

* update hgight and width in case edit has changed them. 
*/ 

symbol->cell_width = num_cells( at tribs. width ); 
symbol->cell_height - num_cells( attribs. height ); 


if ( (! (found)) || ( Symbol_Map[ sym J . symbol _type — NONE) ) 

I 

elog (3, "update sym pos: couldn't find synAn") ; 
return ( ERR ) ; 

1 

else 

elog (3, "update sym pos: sym* %d\n", sym); 


/* 

* set event for undo. Also, 

* set global text variables so draw_symbol has them; 

* this is necessary since in Motif there is no way to link >1 

* piece of data with a widget, and the symbol_type is already linked. 
*/ 


XtSetArg{ args (01, XmNuserData, &sym_type ); 
XtGetValues{ w, args, 1 ); 


if ( (syra_type == IF) | | (sym_type == SET) ) 

( 

sym_text ■ Symbol_Map[sym] .Sym. IfSym. logicalexpr; 
expr text = Symbol_Map (sym) . Sym. IfSym. comp expr; 

) 

else 
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sym_text - Symbol_Map(sym] .text; 


* save original position for undo. 


set_symbol_event ( Syrobol_Map [syral ); 
/* 


* Snap ulcx and y to closest snap point 

• and reset newx and y to reflect snapped position 

•/ 

1 f ( Snap ) 

set_mldpt ( w ) ; 

/* 


• Grab the cell map cells for this symbol. 

*/ 


If ( ! (claim cells) w )) ) 

I 

/• 

* Move parentcanvas back to old position 

*/ 

If ( Symbol_Map(syml ,symbol_type -- TEXT 1 

user_ack (“Cells are already occupied, can not move TEXT there"); 

else 

user_ack ("Cells are already occupied, can not move Symbol there") ; 

XMoveWlndow( dlsplay.XtWlndow (w) , Symbol_Map(sym| .ulcx, Symbol _Map[sym| .ulcy ) ; 
return! 0 ) ; 

I 

delete_l ines ( w ) ; 

/* 

* Inlt line draw pointers. 

*/ 

If ( Symbol_Map( sym J . symbol_type ■■ IF ) 

< 

Symbol_Map(sym] . Sym. I f Sym. true_l lne - NULL; 

Symbol Map( sym| . Sym, I f Sym. fa lse_ll ne - NULL; 

1 

else 

Symbol_Map (sym| . next - NULL; 


return! 1 ); 



FILE NAME: term set.h 


FILE FUNCTION: 


This file Is a bitmap of the sets of allowable next tokens at each stage In 
the parse. A set bit In an array Indicates that the corresponding token, listed 
In next_lnputs .h. Is allowable at this point. 


SPECIFICATION DOCUMENTS: 


/home/pro ject/3531/Docu/GCB. spec.doc 


FILE MODULES: 


lnt term_set [24] [NUM_BUTTONS 1 = I 


/*0*/ (0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,/*, 

0,0,0|,*/ 

/*1*/ (0,0,0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,01,/*, 

0,0,0),*/ 

/* 2 * / ( 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01 ,/*, 

0,0,01,*/ 

/*3*/ (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,01,/*, 

0,0,0),*/ 

/*4*/ (0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,0, 0, 0) ,/*, 

0,0,0),*/ 

/ * 5 * / (1,1, 1,1, 1,0, 0,1, 0,0, 0,0, 0,0, 0,0, 0,0, 1,0, 0,1, 0,0, 0,0, 1,1, 1,1, 1,1, 1,1, 1,1,1),/*, 

1,1,11,*/ 

/ * 6 * / ( 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01 ,/*, 

0,0,0),*/ 

/*7*/ (0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,/*, 

0,0,0),*/ 

/* 8 */ ( 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01 ,/*, 

0,0,0),*/ . 

/* 9* / ( 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) , / *, 

0,0,0),*/ 

/*10*/ 10,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0),/*, 

0,0,0),*/ 

/*11*/ (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),/*, 

0,0,0),*/ 

/* 12 */ ( 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01 ,/*, 

0,0,0),*/ 

/*13*/ (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,/*, 

0,0,0),*/ 

/ * 14 */ (0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0,0),/*, 

0,0,0),*/ 

/* 15*/ ( 1, 1, 1, 1, 1, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1 ),/*, 

1,1,0),*/ 

/*16*/ (0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,0,0,0,0,0,0,0,1,0,1,01,/*, 

0,0,0),*/ 

/*17*/ (0,0,0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,01,/* 

0,0,0),*/ 

/ * 18 */ (0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ,/* 
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PILE NAME: CexC.C 

FILE FUNCTION: 

Prints and clears text In the work area. 


* SPECIFICATION DOCUMENTS: 

* 

* /home/pro ject/3531 /Docu/GCB. spec.doc 


FILE MODULES: 

clear_text {) 
set_tcxt 0 


erases a given string at a given position. 

draws a given string, Including newlines, at a given position. 


MODULE NAME: c learnt ext 0 

MODULE FUNCTION: 

This routine erases a given string at a given position by changing 
of the graphics context to the background color and then redrawing 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/20/91 


the function 
the text. 


void clear_text ( canvas_pw, x, y, string ) 


•Include <stdlo.h> 

•include <X1 1/Intrinslc. h> 
•include <Xm/Xm.h> 


Widget canvas_pw; 
lnt x,y; 

char ‘string; 


•include "gcb.h" 
•include “widgets. h" 
•Include “lines. h" 


/‘ 

* Set the X function to the background color and then draw the text, this 

* clear It by making It the same as the background. 

*/ 


XSetFunction ( display, LDgc, GXcopy ); 

XSetForeground ( display, LDgc, LDbackground ); 

XDrawString( display, XtWi ndow (canvaspw) , LDgc, x, y, string, st rlen (st rl ng) ); 


/* 

* Reset back to the default mode. 
*/ 


! 


XSet Function { display, LDgc, GXxor ); 

XSetForeground ( display, LDgc, BlackPlxel (display, DefaultScreen (di splay)) 
LDbackground ) ; 


preceding page blank not filmed 
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/*«*************«*********************** * < > A*************************************** 

* 

* MODULE NAME: setjiext {) 

* 

* MODULE FUNCTION: 

* 

* This routine draws a given string, including newlines, at a given position. 

* 

* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

< — 

void settext ( canvas, gc, x, y, string ) 

Widget canvas; 

GC gc; 

lnt x,y; 

char 'string; 

I 

char but (MAX_TEXT| , 

*s - string; 
lnt 1, k, 

1 - o; 

while ( *s ) 

( 

k - 0; 

/* 

* print 1 line at a time into symbol canvas 
*/ 

for (1-0; ( ( * s ) ss ('s!-'\n')); 1 + + ) 

1 

buf[l] - *s + + ; 
k + t; 

I 

buf [k | - NULL; 


* step over new line 
'/ 

If ( »s — ' \n* ) 

*s++; 

XDrawStrlng( display, XtWlndow (canvas) , 

gc, x, y + j * (Zoomed 1 8 : 17), buf, strlen(buf) ); 

/* 

* null fill buf again 

'/ 

for ( 1-0; l<k; 1++ ) 
buf ( 1) - '\0'; 


t 9I/08/2M 
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1 


j+ + ; 
) 




"Enter Number", 

■Status Popup", 

■Select Root Element", 
"Dlsplayer", 

"User Acknowledge", 
■Work Station Globals", 
"Enter String", 

"Act lvate-Stop Comp", 


I 91/08/29 I 
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undo.c 



/ft*********************************** 

* FILE NAME: undo.c 


************************************* 


int type; 

struct linetypelist *next; 
Ilnetypelist; 


FILE FUNCTION: 

This file contains the routines which save symbol and line placement events 
and restore the most recently added or deleted line or symbol 

SPECIFICATION DOCUMENTS: 

/home/ pro ject/ 3531 /Docu/GCB. spec.doc 


FILE MODULES: 


/* 

* this structure records the last event if it was a symbol event 
•/ 


typedef struct 
i 

linetypelist 

LineLlst 

Line 

Line 

Line 

Symbol 

} symbol struct; 


‘type; 

* 11 ; 

*next; 

•true; 

•false; 
symbol ; 

/•symbol that was added or deleted, with its lines*/ 


copy^line 
copy_l ineseg {) 
f ree_l lnel ists () 
f ree^segment s () 
restore_line () 
restore_moved_symbol () 
restore_symbol () 
restore_to_l lne ( > 
set_line_event () 
set_symbol_event () 
set_null_undo_event {) 
undo () 


•Include <stdio.h> 

•include <X11/Xlib.h> 
•include <X11/Intrinsic. h> 
•Include <Xm/Xm.h> 


returns a copy of the line parameter 
returns a copy of the 1 ineseg parameter 
free all lines associated with a symbol, 
free all segments in a line. 

restores the parameter line with its labels, if any 
restores moved symbol to original site; redraws lines, 
adds/deletes the last symbol to be deleted/added, 
redraws the line(s) leaving a symbol, 
save the most recent line event 
save the most recent symbol event 

set last event to null so we don't undo when we can't, 
reverses the most recent line or symbol op 

***** 


/* 

* this structure records the last event 

*/ 


struct Event_type 




( 

int 

type; 

/•symbol or line*/ 


int 

add; 

/•true for add, false for delete */ 

int 

x_of fset ; 



int 

union { 

y_of fset ; 

/•scrollbar offsets at time of 

event*/ 

symbolstruct 

ss; /* 

symbol + lines that was added or 

deleted*/ 

linestruct 

Is; /* 

line that was added or deleted*/ 


} event; 




| last event; 





/* 

* global variables 
V 


linclude "gcb.h" 

•Include "widgets. h" 
•include "lines. h" 
•include "element_f i le . h" 

•define SYMBOL 1 
•define LINE 2 
•define MOVE 3 


/* 

* structure definitions 

*/ 


int restoring ■■* 0; 

int moved_symbol - 0; 

Symbol old_symbol; 

/* 

* function prototypes 
*/ 

LineSeg *copy_l ineseg () ; 

Line •copy line () ; 

void restore line () , free_linelists () , restore_to_line () , restore_symbol {) ; 


typedef struct 

1 

LineSeg Mine; 

Symbol to, from; 

J linestruct; /Mine that was added or deleted, w/ its symbols*/ 

/* 

* one of the linetypelist structures matches each logical line in the 

* llnellst structure and identifies the type of the line 
V 


typedef struct 
1 



preceding page blank not filmed 




/ 

* MODULE NAME: set_l i ne_event () 

* MODULE FUNCTION: 

* This routine records the last event as a line add/delete. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

........................ ................ .. 
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else If ( line 


symbol->Sym. IfSym. true_llne ) 


1 

last event .event . Is. 1 1 ne - 

JlI neSeg *) copyl ineseg t symbol ->Sym.lfSym. true_l ine->l 1 ne) ; 
lastevent .event . 1 s. from. Sym. IfSym. fal se_l lne » NULL; 

I 

else 


/ 


1 


I 

elog (1 , “setllneevent : line from If sym with no true or false line") 
exit ( ERR ) ; 

1 

) 

else lastevent .event . Is . line - 

(LineSeg * ) copy_llneseg ( llne->llne ); 


void set_line_event { line ) 

Lino "line; 

I 

Symbol "symbol; 

if ( (((line) it (1 1 ne->l 1 ne) ) ) 

I 

user^ack ("invalid line ptr“) ; 
exit ( ERR | ; 

1 

lastevent .type - LINE; 

/* 

* Record whether we are adding or deleting a line. 
*/ 


If ( (Mode -- LineDraw) || (restoring) ) 
last_event .add - TRUE; 
else last_event.add - FALSE; 

symbol - (Symbol • ) 1 lne->from; 

If ( ! (symbol) ) 

user_ack(“no from symbol”); 

/* 

* Record symbols connected by this line. 

*/ 

last_event . event . 1 s . 1 com " "(Symbol ") 1 1 ne->from; 
last_event .event . Is. to - "(Symbol *)lIne->to; 

/• 

* Copy line; record whether It Is a true/false or next line. 

*/ 

if ( symbol->symbol_type — IF ) 

( 

If ( line -- symbol->Sym . I fSym. fal se_l lne ) 

I 

last_event .event . 1 s. 1 1 ne - 

(LineSeg * ) copy_l Ineseg (symbol->Sym. IfSym. fa lse_l 1 ne->l 1 ne) ; 
last_event .event . Is. from. Sym. IfSym. true_line - NULL; 

1 



MODULE NAME: set_symbol_event 0 

MODULE FUNCTION: 

This routine records the last event as a symbol add/delete/move. 


* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

A************************************** * * ********** 

void set_symbol_event { symbol ) 

Symbol symbol; 


int sym; 

LineList *templist, ‘newlist; 

linetypelist *newtype; 

Symbol *temp; 

el og (3, "setting symbol event"); 

last event. type - SYMBOL; 

/* 

* Record whether we are adding or deleting a symbol. 

*/ 

if ( Mode AddSymbol ) 
last_event .add - TRUE; 
else if { Mode »» DragSymbol ) 
last event. add -= MOVE; 
else 1 asl cvunl . add - FALSE; 
la st_event .event . ss. symbol - symbol; 

/* 

* find Symbol_map entry corresponding to last_event's canvas 

*/ i 

for ( sym=0; sym<MAX_SYMBOLS; sym+ + ) 

if ( Symbol_Map[sym] .mycanvas — last_event . event . ss . symbol .mycanvas ) 
break; 

if ( symbol . symbol_type == IF ) 

{ 

/* 

* copy true and false lines 
V 

if ( symbol . Sym. IfSym. true_l lne ) 
lastevent .event . ss. true - 

{Line *) copy_line( symbol .Sym. I f Sym. true_line) ; 
else last_event .event . ss. true - NULL; 
if ( symbol . Sym. If Sym. fa lse_line ) 
last_event .event . ss. false = 

(Line *) copy_line{ symbol .Sym. I fSym . false_l ine ); 





I 


I I 91/08/2W 
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I • 

else newtype->type - NEXT^PTR; 

newtype->next - (struct llnetypellst *) last_event . event . ss .type; 
last_event .event .ss. type - (llnetypellst *)newtype? 

templlst - (LineLlst *) tempi ist->next ? 

) 


/• 

* maintain moved_symbol - If we are getting new symbol event, 

* we can't be looking at a moved symbol 
V 


moved symbol - FALSE; 

1 
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MODULE NAME: undo() 

MODULE FUNCTION: 

This routine undoes the previous add/delete/move of a symbol or a line. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void undo() 

{ 

Symbol 

LlneSeg 


from, to; 
* llneseg; 


if ( last_event.type “=■ 0 ) 

/* 

* If undo Is called before any action Is taken, just return 
*/ 

return; 

If ( last event. type -» SYMBOL ) 

( 

elog(3,"last event type Is sym”) ; 
restore_symbol () ; 

1 

el se 

/* 

* lastevent Is of LINE type. 

*/ 


If ( last_event . add ) 

I • 

/* 

* record that we are deleting a line. 
*/ 

restoring - 0; 


* Remember the line we are deleting so we can undo the undo. 

*/ 

set_line_event ( Cell_Map[LDllneY) [LDlineX] ,cell_entry. llnes->llne ) 
deleteline () ; 

) 

e 

1 

/* 

* record that we are adding a line. 

‘/ 

restoring - 1; 

/* 

* restore line and update fields In symbols It connects 

*/ 

llneseg = last_event .event . Is . 1 1 ne; 
from - last_event .event . Is. from; 
to - lastevent . event . Is . to; 

If ( f rom. symbol _type IF ) 

I 

If ( ( rom. Sym. I f Sym. t ruo_l 1 ne ) 

restoreline ( llneseg, 1, from.mycanvas, to.mycanvas ); 
else If ( from. Sym. IfSym.false_line ) 

restoreline ( llneseg, 2, from.mycanvas, to.mycanvas ) ; 

) 

else restorel lne ( llneseg, 0, from.mycanvas, to.mycanvas ); 


/* 


Record this line event for undo 


set_l ine_event ( LDllnePtr ); 

/* 

* if we undo this undo, record that we last added a line. 

*/ 

restoring = 0; 


/* 

* set global line pts 
*/ 

llneseg = last_event .event . Is. line; 

/* 

* set LDllne[XY) to first cell In this line that is of line type 
*/ 


f 1 nd_l lne_cel 1 ( llneseg ); 


< > 



MODULE NAME: copy_line and copy_l ineseg () 

free_linel ists and f ree_segments <) 

MODULE FUNCTION; 

As the so 1 f document i ng names Imply, these routines copy the parameter 
1 Ineseg or line Into a newly allocated structure 

and free the line and line segment structures on each new setting of 
last event. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

***********•**< >*********** 

LlneSeg *copy_l ineseg ( lineseg ) 

LineSeg *lineseg; 

{ 

LlneSeg ‘locseg - lineseg; 

LlneSeg ‘new, *temp - NULL; 

/* 

• get to last segment of line 

•/ 

if ( locseg ) 

while ( locseg->next ) 

locseg - (LlneSeg *) locseg->next ; 

/* 

* save copy of logical line structure 
*/ 

while ( locseg ) 

( 

new - (LlneSeg •) malloc( si zeof (LlneSeg) ); 

•new = * locseg; 

new->next$ - (struct LlneSeg *)temp; 

temp - (LlneSeg *)new; 

locseg - (LlneSeg • ) locseg->prev; 

) 

return temp; 


Line *copy__line( line ) 

Line ‘line; 

{ 

Line * new; 

new - (Line •)malloc( sizeof(Line) ); 

new->llne - (LlneSeg 4 ) copy_lineseg ( line->line ); 

new->from - line->from; 

new->to - llne->to; 

new->key - llne->key; 




* free each one, then free line. 

* finally, free llnelist. 

*/ 

newlist “ last_event .event .ss. 11 ; 
while ( newlist ) 

( 

savellne = newlist->llne; 
free_line( savellne ); 
savellst - newlist; 

newlist - (LlneList * ) newl ist->next; 
free( savellst ); 

1 /‘while*/ 

) /‘If*/ 

else 

/* 

* lastevent was a line add or delete; free the malloc'ed 

* line segment structures 
*/ 

f ree_segment s ( last _e vent .event . Is. 1 inel ; 





starc_Llnd( LDsldo - NEXT PTR ); 

el se 

I 

user_ack ("invalid line type in restore!*); 
exit ( ERR ) ; 

) 


while ( llneseg ) 

( 

draw_llne () ; 

if ( llneseg - (LineSeg *) llneseg~>next ) 
I 

mld_Llne () ; 


LDstartX ■ 1 lneseg->start_x; 
LDstartY - 1 lneseg->start_y; 
LDendX - llneseg->end_x; 
LDendy - lineseg->end y; 

1 

) 

end Llne () ; 

I 



E 


C 


MODULE NAME: restore_moved_symbol 0 

MODULE FUNCTION: 

This routine restores a moved symbol to its original location and redraws 
the lines that were deleted when it was moved. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 01/17/91 

Release 1.02 - 08/28/91 


void restore_moved_symbol ( symbol ) 


Symbol * symbol; 


int. 

sym, i ; 

Arg 

args ( 1 ) 

XWindowAtt ributes 

attribs, 


XtSetArg( args[0), XmNuserData, 4sym ); 

XtGetValuest last_event .event .ss .symbol .mycanvas , args, 1 ); 

/* 

* Ignore Jastevent; restore symbol to Its 

* new, moved location with no lines. 

* delete moved symbol's lines 
*/ 

delete_l ines ( last_event .event . ss. symbol .mycanvas ); 

XMoveWindow ( display, XtWl ndow (last_cvent .event . ss. symbol . mycanvas) , 
old_symbol . ulex, 
o 1 d_symbo 1 . u 1 cy ) ; 

/* 

* clear Symbol_Map. symbol _type for reinstallation 

V 

symbol ->symbol_type = NONE; 

nextsymbol - compute_label_index ( symbol ); 

if (! XGetWindowAttributes (display, 

XtWindow (last_event. event . ss. symbol .mycanvas) , sattribs) ) 
errorhandler ( ERR_SYM_ATTRIBS, "restore ms" ); 

if ( (sym ==» GOTO) | ( (sym — START) ( | (sym -- STOP) ) 

CallType - last_event . event . ss. symbol . Sym. ElemSym. comp_type; 
if ( (i - instal l_symbol ( sym, 
attribs.x, 
attribs .y, 
att ribs . height, 
attribs. width, 

lastevent .event . ss. symbol .text, 
old_symbol .mycanvas, 

last event .event .ss. symbol . font) ) < 0 ) 



10:14:57 


user_ack {"restore symbol failed"); 


/• 

* record that this is a restore of the 

* move, so to undo this restore, we must 

* use last_event, since lastevent 

* recorded the lines leading to and from the originial location. 
*/ 


moved symbol - FALSE; 
I 


undo.c 



/**********************•*«•**************< >***«************** 

MODULE NAME: rest oresymbol () 

MODULE FUNCTION: 

This routine adds/deletes the last symbol to be deleted/added. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 

ft*************.************************; >***•••***•* 


void restore_symbol () 
1 

int 

Li neSeg 

LineLlst 

linetypelist 

Symbol 

Arg 

XWindowAtt ributes 
extern int 


sym, 1; 

‘llneseg; 

•tempi 1st; 

*t emptype; 

•symbol, from, to; 
args ( S ) ; 
attribs; 

compute_label_index () ; 


if { last_event .add == TRUE ) 
1 


/* 

• last event was symbol add; delete symbol 

V 

removesymbol ( lastevent .event . ss . symbol .mycanvas ); 

) 

else 

l 

/• 

• retrieve type of last added symbol. 

V 


XtSetArg{ args[0J, XmNuserData, &sym ); 

XtGetValues( last_event .event . ss .symbol .mycanvas , args, 1 ); 

symbol *= (Symbol * ) get_sym_map_ent ry ( last_event .event . ss . symbol .mycanvas) ; 

if { last_event . add «*= MOVE ) 
i 

/* 

* remove symbol from its new location, restore to its previous: 

* clear cells at present location 
*/ 


clearcel 1 __map_sym ( SYMBOL CELL, 
symbol -> ce 1 l__x , 
symbol ->cell_y, 
symbol ->cell width, 
symbol->cell_height ) ; 
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/* 

* if this symbol is the same as previous restored symbol, 

* we are restoring a moved symbol - user moved symbol, 

* undid the move, then undid the undo 
V 

if ( moved_symbol ) 

i 

restore_moved_symbol ( symbol ); 
return; 

1 


attribs .y, 
att ribs .height, 
att ribs .width, 

lastevent .event . ss .symbol .text, 
last_event .event . ss. symbol .my canvas, 
last_event .event . ss. symbol . font) ) < 0 ) 
user_a c)c (• rest ore symbol fa 1 led" ) ; 


/* 

• reinstall the line leaving this symbol 

*/ 


else 

1 

/* 

* restoring original location - use last event 

V 

XMoveWlndow( display, 

XtWi ndow (last_event . event . ss .symbol .mycanvas) , 
last_event .event .ss. symbol .ulcx, 
last_event .event .ss. symbol .ulcy ) ; 

old^_symbol - * (Symbol •) symbol; 

/• 

* clear Symbol_Map. symbol type for reinstallation 

V 

symbol ->symbol type - NONE; 

} 

i 

/* 

* set global text fields for the draw_symbol routine 
V 

if i (sym — IF) || (sym == SET) ) 

1 

sym_text - symbol->Sym. I fSym. logical_expr; 
expr_text - symbol ~> Sym. If Sym. comp_expr; 

I 

else 

sym__text - symbol->text ; 

draw__symbol ( sym, last_event . event . ss . symbol .mycanvas, WAgc, 
last_event .event .ss. symbol . font ) ; 

next symbol » compute_label_i ndex ( symbol ); 

if (! XGetWi ndowAttributes (display , 

XtWindow (last_event. event. ss. symbol. mycanvas) , iattribs) ) 
error^handler ( ERR_SYM_ATTRIBS, "restore sym" ); 

if ( (sym — GOTO) | | (sym «== START) | \ (sym == STOP) ) 

CallType - last_event . event . ss . symbol . Sym. El emSym. comp_type; 


* reinstall this symbol with its attributes. 
V 

if ( (i - lnstal l_symbol ( sym, 
attribs .x. 


restoretol Ine ( sym ) ; 

if ( last_event. event.ss.il ) 

/* 

* go through recorded line list; restore each recorded line 

* and update fields in the symbols the line connects. 

V 

( 

tempi 1st = last_event . event . ss . 1 1 ; 
temptype - last_event. event .ss. type; 
while ( templist ) 

( 

from « * (Symbol *) templist->l ine->from; 
to - ‘(Symbol *) templist->llne->to; 
lineseg - (LineSeg *) tempi ist->line->l lne; 
if ( tempt ype->type — TRUE_PTR ) 

restoreline ( lineseg, T, from. mycanvas, to. mycanvas ); 
else if ( temptype->type -- FALSEPTR ) 

restoreline ( lineseg, 2, I rom. mycanvas, to. mycanvas ); 
else restore_llne( lineseg, 0, from. mycanvas, to. mycanvas ); 
templist - (LlneLlst *) tempi ist->next; 
temptype “ (linetypel 1st *) tempt ype->next; 

1 


/* 

* set mode to addsymbol so new last_event will be 

* of add type, unless last_event was a move, in which 

* case set Mode to Drag so it will be recorded as a move 
*/ 

if ( lastevent .add !« MOVE ) 

[ 

Mode = AddSymbol; 

/* 

* record this event for undo 

*/ 

set symbol event ( Symbol_Map ( i 1 ); 

/* 

• restore previous mode 
*/ 

Mode = EdltSymbol; 

1 

/* 

* record that this is a re-install of a moved symbol 


-.V -;$i-;<sS'X -x-: -x-.vxl 


undo.c 


moved_symbol » TRUE; 


* show the rei nst^lled symbol. 
V 


XtMapWJdget( last event . event . ss . symbol .mycanvas ); 


>*****«**«*< 

MODULE NAME: restore_to_l ine () 

MODULE FUNCTION: 

This routine redraws the line(s) leaving a symbol. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void rest ore_to_l ine ( sym ) 
int sym; 

1 


Symbol 

LineSeg 


from, to; 
‘lineseg; 


draw ilnc(s) from symbol the way It was recorded. 


if ( sym »=» IF ) 

I 

/* 

• restore true and false lines, if any. 

V 

if ( lastevent .event . ss. true ) 

l 

if ( lineseg - (LineSeg *) last event .event .ss.true->line ) 

[ 

from = ‘(Symbol ‘ ) last_event .event . ss . true->from; 
to = ‘(Symbol *) last^event .event . ss . true->to; 
restorel ine ( lineseg, 1, from. mycanvas, to. mycanvas ); 
) 

) 

if ( last_event .event . ss . false ) 

i 

if ( lineseg = (LineSeg *) lastevent .event .ss. false->l Ine ) 

( 

from = ‘{Symbol *) last_event .event .ss. false->from; 
to = ‘(Symbol *) last^event . event . ss . false->to; 
restoreline ( lineseg, 2, from. mycanvas, to. mycanvas ); 
) 

) 

} 

else 

1 

/* 

• determine symbols this line connects; restore next line. 

*/ 

if { last_event .event . ss . next ) 

{ 






mm'z 



from - * {Symbol *) last_event .event . ss. next->f rom; 
to * ‘(Symbol *) last_event .event .ss. next->to; 
lineseg - (LlneSeg *) last_event. event. ss.next->line; 
restore^!! ne ( lineseg, 0, f rom.mycanvas, to.mycanvas ); 



/***«***« ******* ft*************** **«••«***< 

* FILE NAME: utils. c 

* FILE FUNCTION: 

* This file contains the routines which augment the routines in the other files. 


* FILE MODULES: 

* arm_tgl() - set the parameter toggle active. 

* ask() - gets yes/no response from user. 

* busy 0 - changes cursor to clock. 

* complete 0 - determines If the element is complete 

* compute_label_index O • - determines index of symbol into Symbol_Map array. 

* disarm_tgl () - set the parameter toggle inactive. 

* display_f i le () - fills the help window with text from the help file. 

* elogO - writes a message to the error log file 

* errorhandler () - called when the GCB detects errors. 

* get_f ilename_ptr {) - extracts from a path name the name before the last / 

* get_sym_map_entry () - given a widget, returns its SymbolMap entry. 

* load_font() - performs the Xl.ib calls to load the specified font. 

* load hel p_t i le () - searches the help file tor the parameter string. 

* open_read_defaults () - reads from user's defaults file. 

* process_popup () - manages user_ack; does local processing til user responds 

* redraw sym num () - redraws symbol with specified index into Symbol_Map. 

* redraw_sym_type () - redraws all symbols of specified type. 

* set_att ribs ( ) - sets width, height; and resize policy resources 

* set_posi t i on 0 - sets position of widget using Position resource. 

* set_user_dat a () - sets XmNUserData resource of parameter widget. 

* upd_mode_panel () - updates mode panel 

* upd_pos_panel {) - updates uppper left area with user name, etc. 

* upd_status{) - updates status area 

* user_ack() - pops up a message requiring user response. 

* whirl!) - draws | or - to show GCB' s progress in initialization. 

* write_defaults () - at exit, writes current settings to defaults file. 

a************************************ * **< >* A**********************************, 

•include <stdio.h> 

•include <X11/Intrinsic. h> 

•include <Xm/Xm.h> 

•include "gcb.h" 

•include "widget^.h” 

•include “constant s . h” 

•include "element_f i le .h" 

•Include " symbol. h" 

•include "gcb_j>arse. h" 

•Include "cursors. h" 

extern lnt PopupStat(); 


FILE *openFile ( ) ; 



MODULE NAME: ask () 


MODULE FUNCTION: 

This routine gets yes/no response from user. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt ask ( prompt ) 


char 

•prompt; 

Arg 

args (1 J ; 

extern 

int Ask_Resp; 

void 

process_popup () ; 

/* 

* Setup the prompt string 


V 

. XtSetArg{ args(O), XmNlabelStrlng, 

XmStringCreate (prompt , XraSTRING_DEFAULT_CHARSET) ); 
XtSetValues( lbl_ask, args, 1 ); 

/• 

• Set the size (width) of the prompt. 

*/ 

XtSctArg( args(0J, XmNwldth, (200f(8*strlen (prompt) ) ) ); 

XtSetValues( frm_ask, args, 1 ); 

process_popup ( dlg_ask, WAIT ); 
return ( Ask_Resp ) ; 


) 


MODULE NAME: busy() 


MODULE FUNCTION: 

This routine changes cursor to clock. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void busy( win, flag ) 

Widget win; 

lnt flag; 


if ( flag ) 

XDef IneCursor ( display, XtWlndow (win) , clock_cursor ); 

else 

XUndef IneCursor ( display, XtWlndow (win) ); 

XFlushl display ); 

) 
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> 

* MODULE NAME: complete () 


/* 

* find > = 1 end symbol 
V 


* MODULE FUNCTION: 

* This routine determines if the element is complete; if it has a begin and at 

* least 1 end, and all its expressions are complete and correct. 

* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

*.»*..•*..**.< 


int complete (start , type) 
int start, type; 

{ 

int i, endpresent - FALSE, j; 

/* 

* if there is a BeginSym and at least 1 End and every symbol 

* except the Ends has a next line and every symbol except the Begin has a line 

* entering it, and the expressions in the IF/SETs are complete, comp status is 

* complete. 

*/ 


if ( type == JUST_EXPR ) 

/* 

* if we are just checking expressions, make sure that each 

* expression is syntactically correct and complete. 

*/ 


ior ( l=start; i <MAX_S YMBOLS ; iff ) 

if ( Symbol_Map{ 1 J .symbol_type !« NONE ) 

if ( (Symbol_Map [i ) . symbol_type -- IF) || 

(Symbol_Map[i] .symbol_type =» SET) ) 

■ i 

/* 

* set global var so parser will know what kind of 

* expression to expect. 

*/ 


return ( ERR ); 
\ 


if ( Symbol_Map[i) .symbol_type == IF ) 

SetSym = 0; 

el se 

SetSym * 1; 

if ( (parse_expression (Symbol_Map[ i ] . Sym . I fSym. comp_expr) ) !- 
PARSE_SUCCESS ) 
return ( i ) ; 

) 


if ( ! (Begin_Sym) ) 

return ( NO_B£GIN ); 


for ( 1=0; i<MAX_S YMBOLS; 1++ ) 

if ( SymbolMapl i ] .symboltype ■■ END ) 

( 

end_present = TRUE; 
break; 

I 

if ( ! (end present )) 
return ( NO_END ) ; 

for < i =start; i <MAX_S YMBOLS; if+ ) 

il ( Symbol _Map( i J .symboltype != NONE ) 

l 

/* 

* line entering this symbol? 

*/ 


if ( (Symbol_Map[i ) . from «■« NULL) && 

( (Symbol_Map( i ) . symbol_type ! - BEGIN) && 
(Symbol_Map[ i ) .symboltype !“ TEXT) ) ) 
return ( i ) ; 

else if ( Symbol_Map( 1 ) . symbol _type «» IF ) 

I 

/* 

* line leaving this IF symbol? 

•/ 


if { (Symbol_Map [ i ) . Sym. IfSym. true__llne -■ NULL) || 
(Symbol_Map[i | .Sym. I fSym. false_line -- NULL) ) 
return ( i ); 

1 

else if ( (Symbol Map[ 1 ) .next == NULL) && 

( (Symbol_Map[ i 1 .symbol_type ! “ END) && 

(Symbol_Map[ i ] .symbol_type !- TEXT) ) ) 

[ 

/* 

* no line leaving this symbol. 

*/ 

return ( i ) ; 

) 

if ( type == LINES_AND_EXPR ) 

( 


/* 

* check for correctness and completeness of expression. 
*/ 


if ( (Symbol_Map( 1 ) .symbol_type==IF) || (Symbol_Map [ i ) . symbol_type==SET) ) 

I 

/* 

* set global var so parser will know what kind of 

* expression to expect. 

*/ 


IF ) 


/ 


< > 


If ( Symbol_Map( i J . symbol_type « 

SetSym = 0; 

else 

SetSym » 1; 

j - parse_expresslon ( Symbol_Map [1 ) . Sym. If Sym. comp_expr ); 
If ( j !- PARSE SUCCESS ) 


this symbol's expression is Incomplete. 


return { i ); 


MODULE NAME: comput e_label_index { ) 

MODULE FUNCTION: 

Function compute_label_index will determine the Index of the symbol Into the 
global array. 

REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 00/28/91 


int compute_label_l ndex ( symbol ) 

Symbol * symbol; 

I 

/• 

* Compute the offset of. the parameter into the Symbol_Map array. 
*/ 


rcturn( ( (lnt) symbol - (lnt) Symbol Map ) / sizeof{ Symbol ) ); 

I 


< > 
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/*************************************** *< -> *************************** 

* MODULE NAME: di splay_f lie 0 

* MODULE FUNCTION: 

* This routine tills the help window with text from the help file. 


* REVISION HISTORY: 

• 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

• Release 1.02 - 08/28/91 

/ 

void dlsplayfile (mode, file) 

lnt mode; 

char "file; 

( 

FILE * fp; 

register lnt 1 - 0, 

ptr “ 0; 

char c, 

st ring ( 101 1 ; 

Arg args[l); 

/* 

* Open the file. 

*/ 

If ( (fp = (FILE * ) openFl le ( file, "r" )) == NULL ) 

( 

el og (1 , “dl splayf 1 le : open file failed"); 
return; 

) 


/* 

* set help text widget editable. 

*/ 

Xt SetArg ( args(0], XmNedltable, TRUE ); 

XtSetValues( txtflle, args, 1 ); 

/* 

* Read data from the file. Read 100 bytes at a time and add to the text widget's 

* string. 

*/ 


XmTextSetStrlng ( txt_file, NULLS ); 
while ( ptr 1= EOF ) 

( 

while ( 1 < 100 a ( string! 1 ) - c - getc ( fp ) ) 
i++; 

string! i I = NULL; 

XmTextReplace ( txt_flle, ptr, ptr, string ); 
if ( c -= EOF ) 
ptr = EOF; 


EOF ) 
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else 


I 

ptr +- 1; 
1 - 0; 

) 


* Close the file and setup the help string. 

*/ 

fclosc ( fp ) ; 

/* 

• set help text widget inedltable. 

*/ 

XtSetArg( args[0), XmNedltable, FALSE ); 
XcSetValues( txt_flle, args, 1 ); 

XtManageChl Id { dig file ); 




MODULE NAME: elog{) 

MODULE FUNCTION: 

This routine prints a formatted string to the user's log file. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


void elog( 

level, format 

str. 

argl, arg2, arg3, arg4, arg5, 

a; 

char 

*format_st r; 

/* 

printf format string 

*/ 

int 

argl. 

/* 

argl value 

*/ 


arg2. 

/* 

arg2 value 

*/ 


argl. 

/* 

argl value 

*/ 


arg4 , 

/* 

arg4 value 

*/ 


arg5. 

/* 

argS value 

*/ 


arg6. 

/• 

arg6 value 

*/ 


level; 

/» 

1 -normal mode, 3-debug mode 

*/ 


FILE * fp; 

char dstr[10), 

tstr [10] ; 
timet clock; 


* Ignore debug level messages if we are in normal operations mode. 

*/ 

if 1 level > ErrorLogLevel ) 
return; 


/* 

* Open log file, if this doesn't work, return. 

*/ 


if ({fp “ fopen(LogFile, "a") ) ==■ NULL) 
return; 


/* 

* Add new line to log file, close the file. 

*/ 


clock » time( NULL ); 

strftime( dstr, 9, "ID", localtime (&clock) ); 
strftime{ tstr, 9, "%T“, localtime (ficlock) ); 


fprintf{ fp, “%s %s - ", dstr, tstr ); 

fprintf{ fp, format str, argl, arg2, arg3, arg4, arg5, arg6 ); 
fprintff fp, *\n" ); 


f close ( fp ) ; 

} 


/*************************************** * < > **************************************** 

* 

* MODULE NAME: error_handler () 

* 

* MODULE FUNCTION: 


This routine is called when the GCB detects errors. This routine is called 
to display a message to the user, log an error to the logfile, and then 
possibly exit, depending on the type of error. 


* REVISION HISTORY: 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

**************************************** * *************A*«***********************/ 

void errorhandler ( error_num, module ) 

char ‘module; 

int error num; 

y 

( 

switch ( error_num ) 

{ 

case ERR_SYM_ATTRIBS : 

user_ack ("Fatal error: can't get symbol attributes - exiting"); 
elog(l,"%s: Fatal error: can't get symbol attributes - exiting", module) ; 
exit ( ERR ) ; 
break; 

case ERRADDSYMBOL : 

userack ("Fatal error: could not add Element name to symbol table - exiting"); 
elog(l,"%s: Fatal: could not add Element name to symbol table", module) ; 
exit ( ERR ) ; 
break; 

case NOELEMENT : 

user_ack ("Can' t add symbol, invalid Element. Please select or create an Element"); 
break; 

case LIB_ELEM_SYM : 

user ack ("Sorry but the GCB only allows a restricted set of symbols in Lib Elements") 

break; 

} 





MODULE NAME: get_f i lename_ptr () 

MODULE FUNCTION: 

This routine extracts from a path name the name before the last / 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


char ‘get_f ilename_pt r ( filename ) 
char ‘filename; 
i 

char *ptr; 
ptr - filename; 

/* 

* Find the end of the string. 

•/ 

while ( *ptr ! - NULL ) 
ptr++; 

/* 

* Move back one char at a time until either the 

* start of the string is found, or a "/" Is found. 
*/ 

while { ptr != filename ) 
if ( ‘ptr *• ' /' ) 
return ( ++ptr ); 

else 

ptr--; 
return! ptr \ ; 

) 


utils.c 


MODULE NAME: get_sym_map_entry ( ) 

MODULE FUNCTION: 

This routine, given a widget, returns its Symbol_Map entry. 
REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


Symbol *get_sym_map_ent ry ( symbol ) 

Widget symbol; 

1 

int i; 

for ( i-0; 1 <MAX_S YMBOLS ; H+ ) 

if ( SymbolMapI i 1 .mycanvas •• symbol ) 
return! tSymbol_Map[ i 1 ); 

clog (1 , "get_sym_map_entry: failed, returning 0*') ; 

return! NULL ); 




MODULE NAME: load_font () 

MODULE FUNCTION: 

This routine performs the XLlb calls to load the specified font. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


lnt load_font ( font, fnt_list ) 

char 'font; 

XmFontl.lsc "fnt_llst; 

I 

XFontStruct *font_struct - NULL; 

font_struct - XLoadQueryFont ( display, font ); 

If (! font_struct) 

( 

user_ack ( “Couldn't XLoad font"); 
return ( ERR ); 

I 

*fnt_llst - XmFontLlstCreate ( font_struct, XmSTRING_DEFAULT_CHARSET ); 
return) 0 ); 

) 



utils.c 



MODULE NAME: load_help_f i le () 

MODULE FUNCTION: 

This routine searches the help file for the parameter string. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.02 - 08/28/91 


void load_help_f i le { str ) 
char *str; 


char cmd [ 256 ]; 

/* 

* Build a temporary file containing the help text for the current token. 

*/ 

strcpy( cmd, "more +/\042* M ); 
strcat ( cmd, str ); 
strcat( cmd, “\042 " ); 
strcat ( cmd, Swd ); 
strcat ( cmd, "/GCBDoc" ); 

strcat ( cmd, " > /tmp/gcb. tmp 2>/tmp/gcb.err" ); 

if ( system ( cmd ) -■ ERR ) 

1 

user _ack ("Error reading documentation file, help text is not available"); 
return; 

) 



MODULE NAME,' openFileO 


MODULE FUNCTION: 

This routine makes a Unix call to open the file with the specified mode. 


* REVISION HISTORY: 

* 

* Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

* Release 1.02 - 08/28/91 

* 

< >* ** * ******* 

FILE *openFile( file, option) 

char *file, 

•option; 


FILE • f i lePtr; 

char explain( 250) , 

tmpString [ 22 ) ; 

if {! (fllePtr - fopen ( file, option))) 

I 

switch ( optionfO) ) 

i 

case * r' : strcpy{ tmpString, -reading" ); 

break; 

case 'a' : strcpy( tmpString, "appending" ); 

break; 

case 'w' : strcpy( tmpString, "writing" ); 

break; 

default : strcpy{ tmpString, "bad open file option" ) ; 

) 

sprintf( explain, "Can not open %s for %s", file, tmpString ); 
user_ack ( explain); 
return ( NULL ) ; 

I 

else 

return ( fi lePtr ); 
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MODULE NAME; open_read_defaults () 

MODULE FUNCTION: 

This routine reads from user's defaults file. 


REVISION HISTORY: 

Graphical Comp Builder - MOTIF Release 1.0 - 07/17/91 

Release 1.01 - 08/01/91 
Release 1.02 - 08/28/91 


int open_read_defaults () 

{ 

FILE *fp; 

int rc; 

char option[132], 

value (132) , 
valuestr | 132) ; 

/• 

• Open the defaults file. 

•/ 

if ( ! (fp “ fopen (DefaultsFlle, "r") ) ) 
return ( NOTFOUND ); 

/* 

• Loop through the options. Set the global vars used by the 

• GCB to the value in the defaults file. 

*/ 

while (fscanf (fp, "%s% ( A \n| ", opt ion, valuestr) !- EOF ) 

I 

/* 

* Throw out comment lines and lines with no value for the 

* specified option. Take the raw value string, which may 

* contain leading spaces and tabs, and extract just the 

* good stuff. 

V 

value[0) - '\0'; 

rc - sscanf( valuestr, "%s", value ); 

if ((option(0) -- 'f') || (rc < 1)) 

cont i nue; 

/* 

* We have a valid option and a value to go with it, determine 

* which option and set flags accordingly. 

•/ 

el se 

1 

if (! strcmp (option, "LIBRARY_PATH") ) 
strcpy( LibPath, value ); 




If (! strcmp (option, "DISPLAY_FILE") ) 
strcpyl DlsplayFlle, value ); 

If (! strcmp (option, "COMP_FILE") ) 

I 

strcpy( CompFlle, value ); 
strcpy( CompDlr, value ); 
strcatt CompDlr, ’.DIR” ); 
strcpyl GCompFile, value ) ; 
strcatl GCompFile, CMP_EXT) ; 

I 


If (! strcmp (opt Ion, "ELEMENTJl'YPE") ) 
If (I st rcmp (value, "LIB" ) ) 
ElementType - LIB; 

else 

ElementType = ELEMENT; 
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If (! st rcmp (opt Ion, "DISPLAY_TOGGLE" ) ) 
LogOrCompText - atol ( value ); 


* Throw out any unknown options. 
*/ 

el se 

1 


return{ OK ) ; 


If 


(! strcmp (option, ”ELEMENT_FILE") ) 

( 

If (ElementType -* LIB) 

1 


strepy ( 
st rcat ( 
streat ( 
streat ( 
I 

else 


GElementFlle, 
GElementFlle, 
GElementFl le, 
GElementFlle, 


LibPath ) ; 

value ) ; 
ELEXT ) ; 


( 

strepy ( GElementFlle, value ); 
strcatl GElementFlle, EL_EXT ); 
I 

strcpyl ElementFile, value ) ; 

I 


If (! strcmp (opt 1 on, "LOG_FILE") ) 
strepy ( LogFile, value ); 


if ( ! strcmp (optl on, " LOG_I,EVEL" ) ) 
ErrorLogLevel - atoll value ) ,- 

If (i st rcmp (opt Ion, "MACROS_PATH") ) 
strepy ( MacrosPath, value ) ; 

If ( !. st rcmp (option, M OBJECT_TABI.E" ) ) 
strcpyl MSIDTable, value ); 

If (! strcmp (opt Ion, "POSITION") ) 
strepyf pPosltion, value ) ; 

If ( ! strcmp (option, "POSITION_PATH") ) 
strcpyl PositlonPath, value ) ; 

If (! st rcmp (opt ion, ”TARGET_LANG") ) 

If ( strcmp(value, "C") == 0 ) 
TargetLanguage - C; 
else If ( st rcmp (val ue, "MOAL") == 0 ) 
TargetLanguage - MOAL; 

If (! st rcmp (opt Ion, "USER_FUNCS_PATH”) ) 
strcpyl UserFuncsPat h, value ) ; 

If (! strcmp (option, "WS_GLOBALS") ) 
strcpyl WSGlobals, value ); 




